Explorar el Código

Small changes/corrections to psybnc format (thanks, Marco Dieckhoff
<dieck@gmx.de>)

Morten Brix Pedersen hace 25 años
padre
commit
64a8c9ce2b
Se han modificado 1 ficheros con 5 adiciones y 3 borrados
  1. 5 3
      modules/Pisg/Parser/Format/psybnc.pm

+ 5 - 3
modules/Pisg/Parser/Format/psybnc.pm

@@ -69,13 +69,15 @@ sub thirdline
 
 
         my @arr = split(" ", $5);
         my @arr = split(" ", $5);
         if ($4 eq 'KICK') {
         if ($4 eq 'KICK') {
-            $hash{kicker} = $arr[1];
+            $hash{kicker} = $hash{nick};
+            $hash{nick} = $arr[1];
 
 
-        } elsif ($4 eq 'changes') {
-            $hash{newtopic} = "$7 $8";
+        } elsif ($4 eq 'TOPIC') {
+            $hash{newtopic} = join(" ", @arr[1..@arr]);
 
 
         } elsif ($4 eq 'MODE') {
         } elsif ($4 eq 'MODE') {
             $hash{newmode} = $arr[1];
             $hash{newmode} = $arr[1];
+            $hash{newtopic} =~ s/^://;
 
 
         } elsif ($4 eq 'JOIN') {
         } elsif ($4 eq 'JOIN') {
             $hash{newjoin} = $3;
             $hash{newjoin} = $3;