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

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.35 and 1.37

version 1.35, 2010/03/08 20:19:35 version 1.37, 2010/03/16 23:40:18
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$RedRiver: CurrentTorrents.pl,v 1.34 2010/03/03 18:31:57 andrew Exp $  #$RedRiver: CurrentTorrents.pl,v 1.36 2010/03/16 22:37:32 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 58 
Line 58 
             $name = $base;              $name = $base;
         }          }
   
         #print "Adding $_\n";          #print "Adding $DIR/$_\n";
   
           if (exists $files{$ext}{$name}{$epoch}) {
               warn "Multiple torrents with $name and epoch $epoch\n";
               push @delete, $files{$ext}{$name}{$epoch};
           }
   
         $files{$ext}{$name}{$epoch} = {          $files{$ext}{$name}{$epoch} = {
             file => $_,              file => $_,
             dir  => $DIR,              dir  => $DIR,
Line 207 
Line 212 
             or die "Couldn't rename '$file': $!";              or die "Couldn't rename '$file': $!";
   
         $dir = $OBT->{DIR_TORRENT};          $dir = $OBT->{DIR_TORRENT};
         $keep{$hash}{dir} = $dir;          $keep{$hash}{dir} = $dir;
   
         if ( exists $files{txt}{$name}{$epoch} ) {          if ( exists $files{txt}{$name}{$epoch} ) {
             my $m_file = $files{txt}{$name}{$epoch}{file};              my $m_file = $files{txt}{$name}{$epoch}{file};
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.37
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>