From: octo <octo>
Date: Mon, 13 Jun 2005 14:11:01 +0000 (+0000)
Subject: Fixed parsing problem in Parser/Irssi.pm
X-Git-Url: https://git.octo.it/?p=onis.git;a=commitdiff_plain;h=c6d440ccc87a6ba7a898007776429dcdcf02fcaf

Fixed parsing problem in Parser/Irssi.pm
---

diff --git a/lib/Onis/Parser/Irssi.pm b/lib/Onis/Parser/Irssi.pm
index eade51a..0928be6 100644
--- a/lib/Onis/Parser/Irssi.pm
+++ b/lib/Onis/Parser/Irssi.pm
@@ -95,7 +95,7 @@ sub parse
 
 	# 07:03 *** |Kodachi| [~kodachi@pD9505323.dip.t-dialin.net] has joined #schlegl
 	# 14:08 *** t_sunrise [t_sunrise@pD9E53413.dip.t-dialin.net] has joined #schlegl
-	elsif ($line =~ m/^(\d\d):(\d\d) \*\*\* (\S+) \[([^\]]+)\] has joined ([#!+&]\S+)/)
+	elsif ($line =~ m/^(\d\d):(\d\d) ... (\S+) \[([^\]]+)\] has joined ([#!+&]\S+)/)
 	{
 		my $data =
 		{
@@ -111,7 +111,7 @@ sub parse
 
 	# 15:52 *** mode/#schlegl [+o martin-] by Sajdan
 	# 11:25 *** mode/#schlegl [+ooo Impy_ kyreon Sajdan] by octo
-	elsif ($line =~ m/^(\d\d):(\d\d) \*\*\* mode\/([#!+&]\S+) \[([^\]]+)\] by (\S+)/)
+	elsif ($line =~ m/^(\d\d):(\d\d) ... mode\/([#!+&]\S+) \[([^\]]+)\] by (\S+)/)
 	{
 		my $data =
 		{
@@ -127,14 +127,14 @@ sub parse
 	
 	# 15:08 *** stoffi- is now known as foobar-
 	# 13:48 *** Lucky-17 is now known as Lucky17
-	elsif ($line =~ m/^(\d\d):(\d\d) \*\*\* (\S+) is now known as (\S+)/)
+	elsif ($line =~ m/^(\d\d):(\d\d) ... (\S+) is now known as (\S+)/)
 	{
 		nick_rename ($1, $2);
 	}
 
 	# 14:00 *** kyreon changed the topic of #schlegl to: 100 Jahre Ball... kommt alle :)
 	# 15:03 *** martin- changed the topic of #schlegl to: http://martin.ipv6.cc/austellung.txt / Hat jmd Interesse?
-	elsif ($line =~ m/^(\d\d):(\d\d) \*\*\* (\S+) changed the topic of ([#!+&]\S+) to: (.+)/)
+	elsif ($line =~ m/^(\d\d):(\d\d) ... (\S+) changed the topic of ([#!+&]\S+) to: (.+)/)
 	{
 		my $data =
 		{
@@ -150,7 +150,7 @@ sub parse
 
 	# 23:31 *** |Kodachi| [~kodachi@pD9505104.dip.t-dialin.net] has quit [sleepinf]
 	# 00:18 *** miracle- [~SandraNeu@pD9E531C9.dip.t-dialin.net] has quit [Ping timeout]
-	elsif ($line =~ m/^(\d\d):(\d\d) \*\*\* (\S+) \[([^\]]+)\] has quit \[([^\]]*)\]/)
+	elsif ($line =~ m/^(\d\d):(\d\d) ... (\S+) \[([^\]]+)\] has quit \[([^\]]*)\]/)
 	{
 		my $data =
 		{
@@ -166,7 +166,7 @@ sub parse
 
 	# 15:08 *** t_sunrise [t_sunrise@p508472D6.dip.t-dialin.net] has left #schlegl [t_sunrise]
 	# 12:59 *** impy__ [impy@huhu.franken.de] has left #schlegl [impy__]
-	elsif ($line =~ m/^(\d\d):(\d\d) \*\*\* (\S+) \[([^\]]+)\] has left ([#!+&]\S+) \[([^\]]*)\]/)
+	elsif ($line =~ m/^(\d\d):(\d\d) ... (\S+) \[([^\]]+)\] has left ([#!+&]\S+) \[([^\]]*)\]/)
 	{
 		my $data =
 		{
@@ -183,7 +183,7 @@ sub parse
 	
 	# 21:54 *** stoffi- was kicked from #schlegl by martin- [bye]
 	# 12:37 *** miracle- was kicked from #schlegl by kyreon [kyreon]
-	elsif ($line =~ m/^(\d\d):(\d\d) \*\*\* (\S+) was kicked from ([#!+&]\S+) by (\S+) \[([^\]]+)\]/)
+	elsif ($line =~ m/^(\d\d):(\d\d) ... (\S+) was kicked from ([#!+&]\S+) by (\S+) \[([^\]]+)\]/)
 	{
 		my $data =
 		{