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

Diff for /openbsd/OpenBSDTorrents/NewTorrents.pl between version 1.15 and 1.17

version 1.15, 2010/03/03 18:23:46 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.14 2009/10/20 19:03:25 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 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.15  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>