Return to ServerTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.14, 2005/05/05 21:33:42 | version 1.15, 2005/05/06 21:05:00 | ||
---|---|---|---|
|
|
||
print "Uploading $file\n"; | print "Uploading $file\n"; | ||
my $t; | my $t; | ||
eval { $t = BT::MetaInfo::Cached->new("$OBT->{DIR_TORRENT}/$file"); }; | eval { | ||
$t = BT::MetaInfo::Cached->new( | |||
$torrent, | |||
{ | |||
cache_root => | |||
$OBT->{DIR_HOME} . '/FileCache' | |||
} | |||
); | |||
}; | |||
if ($@) { | if ($@) { | ||
warn "Error reading torrent $file\n"; | warn "Error reading torrent $file\n"; | ||
return undef; | return undef; |