openbsd/OpenBSDTorrents/ServerTorrents.pl - diff

Return to ServerTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.10, 2005/04/07 00:05:28

version 1.16, 2005/05/07 20:01:01

Line 4

use warnings;

use diagnostics;

use BT::MetaInfo;

use LWP::UserAgent;

use Time::Local;

use lib 'lib';

use OpenBSDTorrents;

use BT::MetaInfo::Cached;

%ENV = ();

Line 117

print "Uploading $file\n";

my $t;

eval { $t = BT::MetaInfo->new("$OBT->{DIR_TORRENT}/$file"); };

eval {

$t = BT::MetaInfo::Cached->new(

$file,

{

cache_root =>

$OBT->{DIR_HOME} . '/FileCache'

}

);

};

if ($@) {

warn "Error reading torrent $file\n";

return undef;

Line 125

Line 134

my $size = $t->total_size;

my $i;

my $i = 0;

while ($size > 1024) {

$size /= 1024;

$i++;