} elsif ($cmd eq '353') { # RAW :SERVER 353 NICK ATR CHANNEL :CONTENT # Names my $me = shift(@pars); my $atr = shift(@pars); my $chan = shift(@pars); $tmp = join(' ', @pars); if ($convert_modes) { $tmp =~ tr/!@#=%^&\$*/@%++/d; } else { $tmp =~ tr/%^&\$*//d; } ToClient(":$sender 353 $me $atr $chan $tmp"); if ($fakewho) { $tmp =~ s/^://; foreach my $n (split(' ', $tmp)) { (my $a,$n) = $n =~ /^([@%+]*)([^@%+]+)$/; ToClient(":$sender 352 $me $chan ident R-0.zuo.onet czat-s.onet.pl $n H$a :0 [---]"); } } } elsif ($cmd eq '366' and $pars[1]=~/^#/) { # RAW :SERVER 366 NICK CHANNEL :End of NAMES list. ToClient(":$sender 353 $pars[0] = $pars[1] :" . ( $convert_modes ? '@' : '!' ) ."onet-service"); ToClient($tmp); ToClient(":$sender 352 $pars[0] $pars[1] service service.onet service.onet onet-service H*@ :0 [---]") if $fakewho; ToClient(":$sender 315 $pars[0] $pars[1] :End of WHO list.") if $fakewho; } elsif ($cmd eq 'mode')