version 1.3, 2005/03/25 03:13:45 |
version 1.4, 2005/03/28 23:36:44 |
|
|
} |
} |
StartTorrent($last_dir); |
StartTorrent($last_dir); |
|
|
sleep(90); |
sleep(300); |
|
|
StartTorrent('skip'); |
StartTorrent('skip'); |
|
|
|
|
|
|
if ($dir ne 'skip') { |
if ($dir ne 'skip') { |
$dir = "$BaseName/$dir"; |
$dir = "$BaseName/$dir"; |
|
} else { |
|
$dir = ''; |
} |
} |
|
|
# This actually needs to be a sub that forks off |
# This actually needs to be a sub that forks off |
# the generation of this, and the running of the update script. |
# the generation of this, and the running of the update script. |
print "MakeTorrents.pl $BaseName/$dir\n"; |
|
|
|
defined(my $pid = fork) or die "Can't fork: $!"; |
defined(my $pid = fork) or die "Can't fork: $!"; |
|
|
|
|
# or die "Can't write /dev/null: $!"; |
# or die "Can't write /dev/null: $!"; |
#open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; |
#open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; |
|
|
exec('/home/andrew/OpenBSDTorrents/regen.sh', "$dir"); |
print "Making torrents for $dir\n"; |
|
exec($HomeDir . '/regen.sh', "$dir"); |
} |
} |