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

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

version 1.32, 2010/03/03 18:13:07 version 1.33, 2010/03/03 18:15:31
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$RedRiver: CurrentTorrents.pl,v 1.31 2010/02/26 22:58:20 andrew Exp $  #$RedRiver: CurrentTorrents.pl,v 1.32 2010/03/03 18:13:07 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 194 
Line 194 
   
     my $name  = $keep{$hash}{name};      my $name  = $keep{$hash}{name};
     my $epoch = $keep{$hash}{epoch};      my $epoch = $keep{$hash}{epoch};
     my $reason = $keep{$hash}{reason};      my $reason = $keep{$hash}{reason} ? $keep{$hash}{reason} . q{ } : q{};
   
     #if ($reason && $reason ne 'only') {      #if ($reason && $reason ne 'only') {
     #    print "Keeping $reason instance of [$file] [$hash]\n",      #    print "Keeping $reason instance of [$file] [$hash]\n",
Line 217 
Line 217 
     }      }
   
     if ( !$seeding{$hash} ) {      if ( !$seeding{$hash} ) {
         print "Starting seed of [$file] [$hash]\n";          print "Starting seed of $reason[$file] [$hash]\n";
         if (!$client->add(          if (!$client->add(
                 filename     => "$dir/$file",                  filename     => "$dir/$file",
                 download_dir => $OBT->{DIR_FTP},                  download_dir => $OBT->{DIR_FTP},
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>