version 1.10, 2005/04/07 00:05:28 |
version 1.15, 2005/05/06 21:05:00 |
|
|
use warnings; |
use warnings; |
use diagnostics; |
use diagnostics; |
|
|
use BT::MetaInfo; |
|
use LWP::UserAgent; |
use LWP::UserAgent; |
use Time::Local; |
use Time::Local; |
|
|
use lib 'lib'; |
use lib 'lib'; |
use OpenBSDTorrents; |
use OpenBSDTorrents; |
|
use BT::MetaInfo::Cached; |
|
|
%ENV = (); |
%ENV = (); |
|
|
|
|
print "Uploading $file\n"; |
print "Uploading $file\n"; |
|
|
my $t; |
my $t; |
eval { $t = BT::MetaInfo->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; |
|
|
|
|
my $size = $t->total_size; |
my $size = $t->total_size; |
|
|
my $i; |
my $i = 0; |
while ($size > 1024) { |
while ($size > 1024) { |
$size /= 1024; |
$size /= 1024; |
$i++; |
$i++; |