my $serv = get_info 'server';
my $nick = $_[0][7];
if (!$opers{$serv}{$nick}) {
$opers{$serv}{$nick} = 1;
my $host = $_[0][4].'@'.$_[0][5];
my %chans;
my $serv = get_info 'server';
my $nick = $_[0][7];
if (!$opers{$serv}{$nick}) {
$opers{$serv}{$nick} = 1;
my $host = $_[0][4].'@'.$_[0][5];
my %chans;