r3977 - trunk/Docs/server/rcon2irc

[DONOTREPLY at icculus.org]

Author: div0
Date: 2008-07-29 09:00:45 -0400 (Tue, 29 Jul 2008)
New Revision: 3977

Modified:
   trunk/Docs/server/rcon2irc/rcon2irc.pl
Log:
new scores log format support^


Modified: trunk/Docs/server/rcon2irc/rcon2irc.pl
===================================================================
--- trunk/Docs/server/rcon2irc/rcon2irc.pl	2008-07-29 12:59:30 UTC (rev 3976)
+++ trunk/Docs/server/rcon2irc/rcon2irc.pl	2008-07-29 13:00:45 UTC (rev 3977)
@@ -1097,7 +1097,7 @@
 		return 0;
 	} ],
 
-	# scores: Nexuiz server -> IRC channel
+	# scores: Nexuiz server -> IRC channel, legacy format
 	[ dp => q{:player:(-?\d+):(\d+):(\d+):(\d+):(\d+):(.*)} => sub {
 		my ($frags, $deaths, $time, $team, $id, $name) = @_;
 		return if not exists $store{scores};
@@ -1106,7 +1106,7 @@
 		return 0;
 	} ],
 
-	# scores: Nexuiz server -> IRC channel (CTF)
+	# scores: Nexuiz server -> IRC channel (CTF), legacy format
 	[ dp => q{:teamscores:(\d+:-?\d*(?::\d+:-?\d*)*)} => sub {
 		my ($teams) = @_;
 		return if not exists $store{scores};
@@ -1114,6 +1114,22 @@
 		return 0;
 	} ],
 
+	# scores: Nexuiz server -> IRC channel, new format
+	[ dp => q{:player:see-labels:(\d+)[-0-9,*]:(\d+):(\d+):(\d+):(.*)} => sub {
+		my ($frags, $time, $team, $id, $name) = @_;
+		return if not exists $store{scores};
+		push @{$store{scores}{players}}, [$frags, $team, $name];
+		return 0;
+	} ],
+
+	# scores: Nexuiz server -> IRC channel (CTF), new format
+	[ dp => q{:teamscores:see-labels:(\d+)[-0-9,*]:(\d+)} => sub {
+		my ($frags, $team) = @_;
+		return if not exists $store{scores};
+		$store{scores}{teams}{$team} = $frags;
+		return 0;
+	} ],
+
 	# scores: Nexuiz server -> IRC channel
 	[ dp => q{:end} => sub {
 		return if not exists $store{scores};