فهرست منبع

more updates to konversation.pm

Torbjorn Svensson 19 سال پیش
والد
کامیت
17aa6efea0
1فایلهای تغییر یافته به همراه6 افزوده شده و 3 حذف شده
  1. 6 3
      modules/Pisg/Parser/Format/konversation.pm

+ 6 - 3
modules/Pisg/Parser/Format/konversation.pm

@@ -79,15 +79,18 @@ sub thirdline
 
 		} elsif ($3 eq 'Kick') {
 			if ($5 =~ /^have kicked (\S+) from the channel \((.+)\).$/ ) {
-				$hash{kicker} = $1;
-				$hash{kicktext} = $2;
-			} elsif ($5 =~ /^has been kicked from the channel by (\S+) \((.+)\).$/ ) {
 				$hash{kicker} = $hash{nick};
 				$hash{nick} = $1;
 				$hash{kicktext} = $2;
+			} elsif ($5 =~ /^has been kicked from the channel by (\S+) \((.+)\).$/ ) {
+				$hash{kicker} = $1;
+				$hash{kicktext} = $2;
 			} else {
 				return;
 			}
+			print $line;
+			print Dumper \%hash;
+			print "\n\n";
 
 		} elsif ($3 eq 'Topic') {
 			if ($5 =~ /the channel topic to "(.*)"\.$/) {