rendered paste body } 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')