version 1.13, 2005/05/05 18:48:19 |
version 1.15, 2005/05/06 21:05:00 |
|
|
|
|
use lib 'lib'; |
use lib 'lib'; |
use OpenBSDTorrents; |
use OpenBSDTorrents; |
use BT::OBTMetaInfo; |
use BT::MetaInfo::Cached; |
|
|
%ENV = (); |
%ENV = (); |
|
|
|
|
print "Uploading $file\n"; |
print "Uploading $file\n"; |
|
|
my $t; |
my $t; |
eval { $t = BT::OBTMetaInfo->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; |