version 1.7, 2005/05/02 22:47:48 |
version 1.9, 2006/05/15 19:47:04 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl -T |
#$Id$ |
#$RedRiver: NewTorrents.pl,v 1.8 2005/05/05 01:07:16 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
my $should_fork = 1; |
my $should_fork = 1; |
|
|
if ($dir eq 'skip') { |
if ($dir eq 'skip') { |
$dir = ''; |
#$dir = ''; |
%Need_Update = (); |
%Need_Update = (); |
$should_fork = 0; |
$should_fork = 0; |
} else { |
} else { |
|
|
print "Making torrents for ", join(" ", @now_update), "\n"; |
print "Making torrents for ", join(" ", @now_update), "\n"; |
} else { |
} else { |
print "Remaking all torrents\n"; |
print "Remaking all torrents\n"; |
|
push @now_update, $dir; |
} |
} |
exec($OBT->{DIR_HOME} . '/regen.sh', @now_update); |
exec($OBT->{DIR_HOME} . '/regen.sh', @now_update); |
} |
} |