From 6a9fd5624c4594db4f7c28594059b15aa9b9c5cf Mon Sep 17 00:00:00 2001
From: div0 <div0@f962a42d-fe04-0410-a3ab-8c8b0445ebaa>
Date: Sat, 6 Sep 2008 20:03:04 +0000
Subject: [PATCH] pattern fix

git-svn-id: svn://svn.icculus.org/nexuiz/trunk@4387 f962a42d-fe04-0410-a3ab-8c8b0445ebaa
---
 Docs/server/rcon2irc/rbiserver.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Docs/server/rcon2irc/rbiserver.pl b/Docs/server/rcon2irc/rbiserver.pl
index 570005357..2e74372e2 100644
--- a/Docs/server/rcon2irc/rbiserver.pl
+++ b/Docs/server/rcon2irc/rbiserver.pl
@@ -86,8 +86,10 @@ sub markmap($$$$;$)
 	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 @@ sub markmap($$$$;$)
 	}
 	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;
 } ],
-- 
2.39.2