===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/ServerTorrents.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/03/24 00:22:09	1.1
+++ openbsd/OpenBSDTorrents/ServerTorrents.pl	2005/03/24 00:42:07	1.2
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: ServerTorrents.pl,v 1.1 2005/03/24 00:22:09 andrew Exp $
+#$Id: ServerTorrents.pl,v 1.2 2005/03/24 00:42:07 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -98,7 +98,10 @@
 }
 
 foreach my $file (keys %server_torrents) {
-	unless (exists $files{$file}) {
+	my ($name, $year, $mon, $mday, $hour, $min) = 
+	   $file =~
+	   /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/;
+	unless (exists $files{$name}) {
 		Delete_Torrent($file);
 	}
 }