version 1.5, 2005/04/01 01:35:56 |
version 1.6, 2005/04/07 00:00:31 |
|
|
return undef unless $dir; |
return undef unless $dir; |
|
|
if ($dir ne 'skip') { |
if ($dir ne 'skip') { |
$dir = "$BaseName/$dir"; |
$dir = $OBT->{BASENAME} . "/$dir"; |
} else { |
} else { |
$dir = ''; |
$dir = ''; |
} |
} |
|
|
##open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; |
##open STDERR, '>&STDOUT' or die "Can't dup stdout: $!"; |
|
|
print "Making torrents for $dir\n"; |
print "Making torrents for $dir\n"; |
exec($HomeDir . '/regen.sh' . " $dir &"); |
exec($OBT->{DIR_HOME} . '/regen.sh' . " $dir &"); |
#exec($HomeDir . '/regen.sh', "$dir"); |
#exec($HomeDir . '/regen.sh', "$dir"); |
} |
} |