| version 1.10, 2005/04/06 23:56:50 |
version 1.11, 2005/04/07 00:10:06 |
|
|
| |
|
| %ENV = (); |
%ENV = (); |
| |
|
| use YAML; |
chdir($OBT->{DIR_FTP}) || die "Couldn't change dir to " . $OBT->{DIR_FTP} . ": $!"; |
| |
|
| my $StartDir = shift || $OBT->{BASENAME}; |
my $StartDir = ''; |
| $StartDir =~ s#/$##; |
if (@ARGV) { |
| |
foreach (@ARGV) { |
| |
s#/$##; |
| |
Process_Dir($_); |
| |
} |
| |
} else { |
| |
$StartDir = $OBT->{BASENAME}; |
| |
Process_Dir($StartDir); |
| |
} |
| |
|
| chdir($OBT->{DIR_FTP}) || die "Couldn't change dir to " . $OBT->{DIR_FTP} . ": $!"; |
|
| |
|
| Process_Dir($StartDir); |
|
| |
|
| sub Process_Dir |
sub Process_Dir |
| { |
{ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to MakeTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents