r4387 - trunk/Docs/server/rcon2irc

[DONOTREPLY at icculus.org]

Author: div0
Date: 2008-09-06 16:03:04 -0400 (Sat, 06 Sep 2008)
New Revision: 4387

Modified:
   trunk/Docs/server/rcon2irc/rbiserver.pl
Log:
pattern fix


Modified: trunk/Docs/server/rcon2irc/rbiserver.pl
===================================================================
--- trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 19:45:25 UTC (rev 4386)
+++ trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 20:03:04 UTC (rev 4387)
@@ -86,8 +86,10 @@
 	my $slot = $store{"playerslot_$id"};
 	my $name = $config{irc_nick};
 	$name =~ s/Nex//; # haggerNexCTF -> haggerCTF
+	my $map = $store{map};
+	$map =~ s/^[a-z]*_//;
 	$ip =~ s/\./-/g;
-	my $pattern = "/nexuiz/data/home/.nexuiz/extramaps-$name/sv_autodemos/????-??-??_??-??_$store{map}_${slot}_$ip-*.dem";
+	my $pattern = "/nexuiz/data/home/.nexuiz/extramaps-$name/sv_autodemos/????-??-??_??-??_${map}_${slot}_${ip}-*.dem";
 	if(my @result = glob $pattern)
 	{
 		print "Cleaning up demos: protecting $result[0]\n";
@@ -95,7 +97,7 @@
 	}
 	else
 	{
-		print "Record set but could not find the demo.\n";
+		print "Record set but could not find the demo using $pattern\n";
 	}
 	return 0;
 } ],