version 1.14, 2009/10/20 20:03:25 |
version 1.16, 2010/03/08 20:19:37 |
|
|
#!/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; |
|
|
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; |
} |
} |
|
|
|
|
} |
} |
|
|
|
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 { |