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

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.13 and 1.15

version 1.13, 2005/05/02 22:43:53 version 1.15, 2005/05/04 01:48:35
Line 14 
Line 14 
   
 use YAML;  use YAML;
   
 justme();  #justme();
   
 my $Name_Filter = shift || '';  my $Name_Filter = shift || '';
 if ($Name_Filter =~ /^(\w*)$/) {  if ($Name_Filter =~ /^(\w*)$/) {
Line 23 
Line 23 
         die "Invalid filter: $Name_Filter";          die "Invalid filter: $Name_Filter";
 }  }
   
   my %Possible_Torrents;
   Process_Dir($OBT->{DIR_FTP});
   
 my %files;  my %files;
   my %keep;
   my @delete;
 foreach my $DIR ($OBT->{DIR_NEW_TORRENT}, $OBT->{DIR_TORRENT}) {  foreach my $DIR ($OBT->{DIR_NEW_TORRENT}, $OBT->{DIR_TORRENT}) {
         opendir DIR, $DIR          opendir DIR, $DIR
                 or die "Couldn't opendir $DIR: $!";                  or die "Couldn't opendir $DIR: $!";
Line 57 
Line 62 
                         epoch     => $epoch,                          epoch     => $epoch,
                 };                  };
   
                   unless (exists $Possible_Torrents{$name}) {
                           print "Would remove $_\n";
                           push @delete, $files{$ext}{$name}{$epoch};
                   }
         }          }
         closedir DIR;          closedir DIR;
 }  }
   
 my %keep;  
 my @delete;  
 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 71 
Line 78 
                 #print "\t$epoch\n";                  #print "\t$epoch\n";
                 my $torrent = $files{torrent}{$name}{$epoch}{path};                  my $torrent = $files{torrent}{$name}{$epoch}{path};
   
                   if (
                           keys %{ $files{torrent}{$name} } == 1 &&
                           $files{torrent}{$name}{$epoch}{dir}
                                   eq $OBT->{DIR_TORRENT}
                   ) {
                           #print "Skipping torrent for $name there is only one.\n";
                           next;
                   }
   
   
                 my $t;                  my $t;
                 eval { $t = BT::OBTMetaInfo->new( $torrent ); };                  eval { $t = BT::OBTMetaInfo->new( $torrent ); };
   
Line 89 
Line 106 
                         next;                          next;
                 }                  }
   
                 if (  
                         keys %{ $files{torrent}{$name} } == 1 &&  
                         $files{torrent}{$name}{$epoch}{dir}  
                                 eq $OBT->{DIR_TORRENT}  
                 ) {  
                         #print "Skipping torrent for $name there is only one.\n";  
                         next;  
                 }  
   
                 my $hash = $t->info_hash_cached($torrent);                  my $hash = $t->info_hash_cached($torrent);
                 $hash = unpack("H*", $hash);                  $hash = unpack("H*", $hash);
   
Line 169 
Line 177 
                 }                  }
         }          }
 }  }
   
   sub Process_Dir
   {
           my $basedir = shift;
   
           my ($dirs, $files) = Get_Files_and_Dirs($basedir);
           if (@$files) {
                   my $dir = $basedir;
                   $dir =~ s/^$OBT->{DIR_FTP}\///;
                   my $torrent = Name_Torrent($dir);
                   $torrent =~ s/-.*$//;
                   $Possible_Torrents{$torrent} = 1;
           }
   
           foreach my $subdir (@$dirs) {
                   next if $subdir eq '.';
                   next if $subdir eq '..';
                   Process_Dir("$basedir/$subdir")
           }
   }
   
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.15
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>