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

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

version 1.16, 2010/03/08 20:19:37 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.15 2010/03/03 18:23:46 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;
         }          }
 }  }
   
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>