From 0dd0af47222807a2f366916230c75066785b1656 Mon Sep 17 00:00:00 2001
From: div0 <div0@f962a42d-fe04-0410-a3ab-8c8b0445ebaa>
Date: Thu, 14 May 2009 09:22:35 +0000
Subject: [PATCH] print pure check details to IRC

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

diff --git a/server/rcon2irc/rbiserver.pl b/server/rcon2irc/rbiserver.pl
index 8b4908865..d651d0584 100644
--- a/server/rcon2irc/rbiserver.pl
+++ b/server/rcon2irc/rbiserver.pl
@@ -80,6 +80,18 @@ sub markmap($$$$;$)
 	out irc => 0, "PRIVMSG $config{irc_channel} :\001ACTION thinks $nick is $status\001";
 	return 0;
 } ],
+[ dp => q{pure: \*DETAIL_MISMATCH (.*) (\S+)$} => sub {
+	my ($nick, $file) = @_;
+	$nick = color_dp2irc $nick;
+	out irc => 0, "PRIVMSG $config{irc_channel} :\001ACTION thinks $nick has a modified $file\001";
+	return 0;
+} ],
+[ dp => q{pure: \*DETAIL_TIMEOUT (.*)} => sub {
+	my ($nick) = @_;
+	$nick = color_dp2irc $nick;
+	out irc => 0, "PRIVMSG $config{irc_channel} :\001ACTION thinks $nick refuses to tell us which file is modified\001";
+	return 0;
+} ],
 [ dp => q{:recordset:(\d+):.*} => sub {
 	my ($id) = @_;
 	my $ip = $store{"playerip_byid_$id"};
@@ -89,7 +101,7 @@ sub markmap($$$$;$)
 	my $map = $store{map};
 	$map =~ s/^[a-z]*_//;
 	$ip =~ s/\./-/g;
-	my $pattern = "/nexuiz/data/home-$name/data/sv_autodemos/????-??-??_??-??_${map}_${slot}_${ip}-*.dem";
+	my $pattern = "/home/nexuiz/home-$name/data/sv_autodemos/????-??-??_??-??_${map}_${slot}_${ip}-*.dem";
 	if(my @result = glob $pattern)
 	{
 		for(@result)
@@ -114,7 +126,7 @@ sub markmap($$$$;$)
 [ dp => q{:end} => sub {
 	my $name = $config{irc_nick};
 	$name =~ s/Nex//; # haggerNexCTF -> haggerCTF
-	my $pattern = "/nexuiz/data/home-$name/data/sv_autodemos/*.dem";
+	my $pattern = "/home/nexuiz/data/home-$name/data/sv_autodemos/*.dem";
 	print "Checking $pattern...\n";
 	for(glob $pattern)
 	{
-- 
2.39.2