r4392 - trunk/Docs/server/rcon2irc

[DONOTREPLY at icculus.org]

Author: div0
Date: 2008-09-06 18:01:42 -0400 (Sat, 06 Sep 2008)
New Revision: 4392

Modified:
   trunk/Docs/server/rcon2irc/rbiserver.pl
Log:
fix file cleanup bug FINALLY


Modified: trunk/Docs/server/rcon2irc/rbiserver.pl
===================================================================
--- trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 20:59:22 UTC (rev 4391)
+++ trunk/Docs/server/rcon2irc/rbiserver.pl	2008-09-06 22:01:42 UTC (rev 4392)
@@ -94,7 +94,8 @@
 	{
 		for(@result)
 		{
-			next if -M $_ > 1/(24*60); # too old
+			my @l = stat $_;
+			next if $l[9] < time() - 60; # too old
 			print "Cleaning up demos: protecting $_\n";
 			chmod 0444, $_;
 		}
@@ -113,10 +114,9 @@
 	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
+		my @l = stat $_;
+		next if $l[9] >= time() - 60; # too new
 		print "Cleaning up demos: deleting $_\n";
 		unlink $_;
 	}