[BACK]Return to CurrentTorrents.pl CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.23 and 1.25

version 1.23, 2007/10/01 21:17:23 version 1.25, 2008/11/14 18:18:31
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$RedRiver: CurrentTorrents.pl,v 1.22 2006/07/24 18:03:53 andrew Exp $  #$RedRiver: CurrentTorrents.pl,v 1.24 2007/11/02 02:36:01 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 79 
Line 79 
         closedir DIR;          closedir DIR;
 }  }
   
   #print Dump \%files;
 foreach my $name (keys %{ $files{torrent} }) {  foreach my $name (keys %{ $files{torrent} }) {
         next unless $name =~ /^$Name_Filter/;          next unless $name =~ /^$Name_Filter/;
         #print "Checking $name\n";          #print "Checking $name\n";
Line 92 
Line 93 
                         $files{torrent}{$name}{$epoch}{dir}                          $files{torrent}{$name}{$epoch}{dir}
                                 eq $OBT->{DIR_TORRENT}                                  eq $OBT->{DIR_TORRENT}
                 ) {                  ) {
                         #print "Skipping torrent for $name there is only one.\n";                          print "Skipping torrent for $name there is only one.\n";
                         next;                          next;
                 }                  }
   
Line 109 
Line 110 
   
                 if ($@) {                  if ($@) {
                         warn "Error reading torrent $torrent\n";                          warn "Error reading torrent $torrent\n";
                           push @delete, $files{torrent}{$name}{$epoch};
                           delete $files{torrent}{$name}{$epoch};
                         next;                          next;
                 }                  }
   
                 $files{torrent}{$name}{$epoch}{comment}   = $t->{comment};                  $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") {                  unless (-e $OBT->{DIR_FTP} . "/$path") {
                         #print "Deleting $files{torrent}{$name}{$epoch}{file} the path doesn't exist.\n";                          print "Deleting $files{torrent}{$name}{$epoch}{file} the path ($path) doesn't exist.\n";
                         push @delete, $files{torrent}{$name}{$epoch};                          push @delete, $files{torrent}{$name}{$epoch};
                         delete $files{torrent}{$name}{$epoch};                          delete $files{torrent}{$name}{$epoch};
                         next;                          next;
Line 132 
Line 135 
   
                 if (exists $keep{$name}) {                  if (exists $keep{$name}) {
                         if (exists $keep{$name}{$hash}) {                          if (exists $keep{$name}{$hash}) {
                                   if ( $keep{$name}{$hash}{epoch} == $epoch ) {
                                           next;
                                   }
                                   print "Removing [$name] [$hash]\n\t",
                                            $keep{$name}{$hash}{path},
                                           "\n";
                                 push @delete, $keep{$name}{$hash};                                  push @delete, $keep{$name}{$hash};
                                 delete $files{torrent}{                                  delete $files{torrent}{
                                         $keep{$name}{$hash}{name}                                          $keep{$name}{$hash}{name}
Line 140 
Line 149 
                                 };                                  };
                                 $keep{$name}{$hash} =                                  $keep{$name}{$hash} =
                                         $files{torrent}{$name}{$epoch};                                          $files{torrent}{$name}{$epoch};
                                   print "Keeping additional instance of  [$name] [$hash]\n\t",
                                            $keep{$name}{$hash}{path},
                                           "\n";
                         } else {                          } else {
                                   print "Removing old [$name] [$hash]\n\t",
                                            $keep{$name}{$hash}{path},
                                           "\n";
                                 push @delete, $files{torrent}{$name}{$epoch};                                  push @delete, $files{torrent}{$name}{$epoch};
                                 delete $files{torrent}{$name}{$epoch};                                  delete $files{torrent}{$name}{$epoch};
                         }                          }
                 } else {                  } else {
                           print "Keeping first instance of $name [$hash]\n\t",
                                   $files{torrent}{$name}{$epoch}{path},
                                   "\n";
                         $keep{$name}{$hash} =                          $keep{$name}{$hash} =
                                 $files{torrent}{$name}{$epoch};                                  $files{torrent}{$name}{$epoch};
   
Line 207 
Line 225 
                 my $torrent = Name_Torrent($dir);                  my $torrent = Name_Torrent($dir);
                 $torrent =~ s/-.*$//;                  $torrent =~ s/-.*$//;
                 $Possible_Torrents{$torrent} = 1;                  $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) {          foreach my $subdir (@$dirs) {
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.25
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>