X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=blobdiff_plain;f=opers.pl;fp=opers.pl;h=f8d178d59e3d870318c0943976bf487fdc01036b;hp=218b2d2dc8d8c34d85eb7bb3de68729b471179ce;hb=707ebbe12e6aaada84a123ae0c36215d49b5223d;hpb=0a342794e65a5975f4574d143a600cad8eaa9c7d diff --git a/opers.pl b/opers.pl index 218b2d2..f8d178d 100755 --- a/opers.pl +++ b/opers.pl @@ -23,7 +23,7 @@ hook_server '352', sub { return EAT_NONE if $opers{$serv}{irc_lc($nick)}; $opers{$serv}{irc_lc($nick)} = $nick; - my $host = $_[0][4] . '@' . $_[0][5]; + my $host = $_[0][4] . '@' . strip_code $_[0][5]; my %chans; push @{$chans{$_->{type}}}, $_ for grep $_->{server} eq $serv, get_list 'channels';