===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.22
retrieving revision 1.24
diff -u -r1.22 -r1.24
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2006/07/24 19:03:53	1.22
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2007/11/02 03:36:01	1.24
@@ -1,11 +1,13 @@
 #!/usr/bin/perl -T
-#$RedRiver: CurrentTorrents.pl,v 1.21 2006/05/15 18:47:04 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.23 2007/10/01 20:17:23 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
 
 use Time::Local;
 use Fcntl ':flock';
+use File::Basename;
+#use YAML;
 
 use lib 'lib';
 use OpenBSDTorrents;
@@ -13,8 +15,6 @@
 
 %ENV = ();
 
-use YAML;
-
 #justme();
 
 my $Name_Filter = shift || '';
@@ -41,12 +41,17 @@
 		} else {
 			die "Invalid character in $_: $!";
 		}
-		my ($name, $year, $mon, $mday, $hour, $min) = 
-		   /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/;
+		my $epoch = 0;
+		my $name  = basename($_, '.torrent');
 
-		$mon--;
-		my $epoch = timegm(0,$min,$hour,$mday,$mon,$year);
+		if (my ($base, $year, $mon, $mday, $hour, $min) = 
+		   /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/) {
 
+			$mon--;
+ 			$epoch = timegm(0,$min,$hour,$mday,$mon,$year);
+			$name = $base;
+		}
+
 		#print "Adding $_\n";
 
 		$files{$ext}{$name}{$epoch} = {
@@ -54,16 +59,19 @@
 			dir       => $DIR,
 			path      => "$DIR/$_",
 			ext       => $ext,
-			year      => $year,
-			mon       => $mon,
-			mday      => $mday,
-			hour      => $hour,
-			min       => $min,
+			#year      => $year,
+			#mon       => $mon,
+			#mday      => $mday,
+			#hour      => $hour,
+			#min       => $min,
 			name      => $name,
 			epoch     => $epoch,
 		};
 
-		unless (exists $Possible_Torrents{$name}) {
+		if (
+			$name =~ m/\A $OBT->{BASENAME} /xms &&
+			! exists $Possible_Torrents{$name}
+		) {
 			print "Would remove $_\n";
 			push @delete, $files{$ext}{$name}{$epoch};
 		}
@@ -101,14 +109,16 @@
 
 		if ($@) {
 			warn "Error reading torrent $torrent\n";
+			push @delete, $files{torrent}{$name}{$epoch};
+			delete $files{torrent}{$name}{$epoch};
 			next;
 		}
 
 		$files{torrent}{$name}{$epoch}{comment}   = $t->{comment};
-		my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s;
+		my ($path) = $t->{comment} =~ /($OBT->{BASENAME}\/[^\n]+)\n/s;
 
-		unless (-d $OBT->{DIR_FTP} . "/$path") {
-			#print "Deleting $files{torrent}{$name}{$epoch}{file} the path doesn't exist.\n"; 
+		unless (-e $OBT->{DIR_FTP} . "/$path") {
+			print "Deleting $files{torrent}{$name}{$epoch}{file} the path ($path) doesn't exist.\n"; 
 			push @delete, $files{torrent}{$name}{$epoch};
 			delete $files{torrent}{$name}{$epoch};
 			next;
@@ -145,6 +155,7 @@
 }
 
 #print Dump \%files, \%keep, \@delete;
+#exit;
 
 foreach (@delete) {
 	print "Deleting '$_->{path}'\n";
@@ -198,6 +209,13 @@
                 my $torrent = Name_Torrent($dir);
 		$torrent =~ s/-.*$//;
 		$Possible_Torrents{$torrent} = 1;
+		foreach my $file (@$files) {
+			if ($file =~ /$INSTALL_ISO_REGEX/) {
+				$torrent = Name_Torrent("$dir/$file");
+				$torrent =~ s/-.*$//;
+				$Possible_Torrents{$torrent} = 1;
+			}
+		}
         }
 
         foreach my $subdir (@$dirs) {