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

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.6 and 1.7

version 1.6, 2005/03/25 03:12:05 version 1.7, 2005/03/28 22:52:01
Line 7 
Line 7 
 use BT::MetaInfo;  use BT::MetaInfo;
 use Time::Local;  use Time::Local;
   
 use lib 'lib';  use lib '/usr/local/bin/OpenBSDTorrents/lib';
 use OpenBSDTorrents;  use OpenBSDTorrents;
   
 %ENV = ();  %ENV = ();
Line 30 
Line 30 
   
         my $epoch = timegm(0,$min,$hour,$mday,$mon,$year);          my $epoch = timegm(0,$min,$hour,$mday,$mon,$year);
   
         print "Adding $_\n";          #print "Adding $_\n";
   
         $files{$name}{$epoch} = {          $files{$name}{$epoch} = {
                 file      => $_,                  file      => $_,
Line 65 
Line 65 
                 my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s;                  my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s;
   
                 unless (-d "$BaseDir/$path") {                  unless (-d "$BaseDir/$path") {
                         print "Deleting $files{$name}{$epoch}{file} the path doesn't exist.\n";                          #print "Deleting $files{$name}{$epoch}{file} the path doesn't exist.\n";
                         push @delete, $files{$name}{$epoch}{file};                          push @delete, $files{$name}{$epoch}{file};
                 }                  }
   
                 if (keys %{ $files{$name} } == 1) {                  if (keys %{ $files{$name} } == 1) {
                         print "Skipping torrent for $name there is only one.\n";                          #print "Skipping torrent for $name there is only one.\n";
                         next;                          next;
                 }                  }
   
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>