version 1.15, 2010/03/03 18:23:46 |
version 1.17, 2010/05/19 23:19:43 |
|
|
#!/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; |
|
|
%ENV = (); |
%ENV = (); |
|
|
my $last_dir = ''; |
my $last_dir = ''; |
|
my $last_file = ''; |
while (<>) { |
while (<>) { |
#print; |
#print; |
chomp; |
chomp; |
|
|
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; |
} |
} |
} |
} |
|
|
|
|
|
|
} |
} |
|
|
|
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 { |