Преглед изворни кода

er, really fix joins for mbot logs....

sbingner пре 25 година
родитељ
комит
acb634e7f9
1 измењених фајлова са 2 додато и 1 уклоњено
  1. 2 1
      pisg.pl

+ 2 - 1
pisg.pl

@@ -883,8 +883,9 @@ sub parse_thirdline
                 $hash{newmode} = $5;
 
             } elsif ($4 eq 'JOIN') {
+                $3 =~ /^([^!]+)!/;
                 $hash{newjoin} = $1;
-                $hash{newjoin} =~ s/!.*//;
+                $hash{nick} = $1;
 
             } elsif ($4 eq 'NICK') {
                 $hash{newnick} = $5;