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

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.31 and 1.32

version 1.31, 2010/02/26 22:58:20 version 1.32, 2010/03/03 18:13:07
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$RedRiver: CurrentTorrents.pl,v 1.30 2010/02/25 18:03:01 andrew Exp $  #$RedRiver: CurrentTorrents.pl,v 1.31 2010/02/26 22:58:20 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 196 
Line 196 
     my $epoch = $keep{$hash}{epoch};      my $epoch = $keep{$hash}{epoch};
     my $reason = $keep{$hash}{reason};      my $reason = $keep{$hash}{reason};
   
     if ($reason && $reason ne 'only') {      #if ($reason && $reason ne 'only') {
         print "Keeping $reason instance of [$name] [$hash]\n",      #    print "Keeping $reason instance of [$file] [$hash]\n",
             "\t", $file, "\n";      #        "\t", $file, "\n";
     }      #}
   
     if ( $dir eq $OBT->{DIR_NEW_TORRENT} ) {      if ( $dir eq $OBT->{DIR_NEW_TORRENT} ) {
         print "Moving $file to current torrents\n";          print "Moving $file to current torrents\n";
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>