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

Diff for /openbsd/OpenBSDTorrents/NewTorrents.pl between version 1.14 and 1.16

version 1.14, 2009/10/20 20:03:25 version 1.16, 2010/03/08 20:19:37
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$RedRiver: NewTorrents.pl,v 1.13 2007/11/02 02:35:07 andrew Exp $  #$RedRiver: NewTorrents.pl,v 1.15 2010/03/03 18:23:46 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 80 
Line 80 
                 return if ! %Need_Update;                  return if ! %Need_Update;
   
                 my $count = scalar keys %Need_Update;                  my $count = scalar keys %Need_Update;
                 print "Need to make $count waiting torrents\n";                  print "Have $count waiting torrents\n";
         }          }
         else {          else {
                 print "Need to make torrent for '$dir'\n";                  #print "Need to make torrent for '$dir'\n";
                 $dir = $OBT->{BASENAME} . "/$dir";                  $dir = $OBT->{BASENAME} . "/$dir";
                 $Need_Update{$dir} = 1;                  $Need_Update{$dir} = 1;
         }          }
Line 106 
Line 106 
   
         }          }
   
           print "\n";
         if (@now_update) {          if (@now_update) {
                 print "Making torrents for ", join(" ", @now_update), "\n";                  print "Making torrents for ", join(" ", @now_update), "\n";
         } else {          } else {
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.16
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>