[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.17

version 1.14, 2009/10/20 20:03:25 version 1.17, 2010/05/19 23:19:43
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.16 2010/03/08 20:19:37 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 16 
Line 16 
 %ENV = ();  %ENV = ();
   
 my $last_dir = '';  my $last_dir = '';
   my $last_file = '';
 while (<>) {  while (<>) {
         #print;          #print;
         chomp;          chomp;
Line 38 
Line 39 
                 if ($last_dir && $last_dir ne $dir) {                  if ($last_dir && $last_dir ne $dir) {
                         StartTorrent($last_dir);                          StartTorrent($last_dir);
                 }                  }
                   elsif ($last_file && $last_file ne $file
                           && $last_file =~ /$INSTALL_ISO_REGEX/xms) {
                           StartTorrent("$dir/$file");
                   }
   
                 $last_dir = $dir;                  $last_dir = $dir;
                   $last_file = $file;
         }          }
 }  }
   
Line 80 
Line 87 
                 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 113 
   
         }          }
   
           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.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>