- $message =~ /\s*(\S+)\s+(.+)\sby\s(\S+)/;
- $channel = $1;
- $mode = $2;
- $nick = $3;
- IRC::print "$time \003".$color_grey." MODE\t$channel \002$mode\002 by $nick\n";
+ if($message =~ /\s*(\S+)\s+(.+)\sby\s(\S+)/)
+ {
+ $channel = $1;
+ $mode = $2;
+ $nick = $3;
+ IRC::print "$time \003$color_grey MODE\t$nick set \002$mode\002 on $channel\003\n";
+ }
+ else
+ {
+ return 0;
+ }
+ }
+ elsif($note_type =~ /AUTH/)
+ {
+ #teclis as cehb
+ $message =~ /(\S+)\sas\s(\S+)/;
+ $nick = $1;
+ $account = $2;
+ IRC::print "$time \003$color_darkgreen AUTH\t$nick as \003$color_yellow*$account\003\n";
+ }
+ elsif($note_type =~ /KILL/)
+ {
+ #Sore (mem0ry@Toronto-HSE-ppp3667456.sympatico.ca, on Pyro.US.AfterNET.Org) by AuthServ (Ghost kill on account Sorea (requested by Eros).)
+ if($message =~ /(\S+)\s\(([^@]+)\@([^,]+)\,\son\s(\S+)\)\sby\s(\S+)\s(.*)\)/)
+ {
+ $nick = $1;
+ $user = $2;
+ $host = $3;
+ $server = $4;
+ $killer = $5;
+ $message = $6;
+ IRC::print "$time \003".$color_darkred." KILL\t$nick (\003$color_darkgrey$user\003$color_grey@\003$color_darkgrey$host\003$color_darkred) on $server by $killer (\003$color_white$quitmsg\003$color_darkred)\003\n";
+
+ }
+ else
+ {
+ return 0;
+ }