All pastes #489452 Raw Edit

Szymek

public text v1 · immutable
·published 2007-05-15 15:23 UTC
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')