r4390 - trunk/Docs/server/rcon2irc

[DONOTREPLY at icculus.org]

Author: div0
Date: 2008-09-06 16:45:59 -0400 (Sat, 06 Sep 2008)
New Revision: 4390

Modified:
   trunk/Docs/server/rcon2irc/rbiserver.pl
Log:
debug messages; missing return


Modified: trunk/Docs/server/rcon2irc/rbiserver.pl
===================================================================
--- trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 20:35:05 UTC (rev 4389)
+++ trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 20:45:59 UTC (rev 4390)
@@ -110,11 +110,15 @@
 	my $name = $config{irc_nick};
 	$name =~ s/Nex//; # haggerNexCTF -> haggerCTF
 	my $pattern = "/nexuiz/data/home/.nexuiz/extramaps-$name/sv_autodemos/*.dem";
+	print "Checking $pattern...\n";
 	for(glob $pattern)
 	{
+		print "Writable? $_\n";
 		next if not -w $_;   # protected demo (by record, or other markers)
+		print "Old? $_\n";
 		next if -M $_ < 1/(24*60); # not old enough yet
 		print "Cleaning up demos: deleting $_\n";
 		unlink $_;
 	}
+	return 0;
 } ],