version 1.19, 2006/05/15 19:47:04 |
version 1.21, 2006/11/06 23:17:59 |
|
|
#!/usr/bin/perl -T |
#!/usr/bin/perl |
#$RedRiver: MakeTorrents.pl,v 1.18 2005/05/20 16:25:35 andrew Exp $ |
# -T |
|
#$RedRiver: MakeTorrents.pl,v 1.20 2006/07/24 18:03:53 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
return 1 if $StartDir ne $OBT->{BASENAME}; |
return 1 if $StartDir ne $OBT->{BASENAME}; |
|
|
foreach my $subdir (@$dirs) { |
foreach my $subdir (@$dirs) { |
next if $subdir eq '.'; |
next if $subdir =~ /^\./; |
next if $subdir eq '..'; |
|
Process_Dir("$basedir/$subdir") |
Process_Dir("$basedir/$subdir") |
} |
} |
} |
} |
|
|
|
|
my $t = BT::MetaInfo::Cached->new( |
my $t = BT::MetaInfo::Cached->new( |
{ |
{ |
cache_root => |
cache_root => '/tmp/OBTFileCache' |
$OBT->{DIR_HOME} . '/FileCache' |
|
} |
} |
); |
); |
|
|