openbsd/OpenBSDTorrents/ServerTorrents.pl - diff

Return to ServerTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.11, 2005/05/02 21:26:04

version 1.14, 2005/05/05 21:33:42

Line 4

use warnings;

use diagnostics;

use BT::OBTMetaInfo;

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::OBTMetaInfo->new("$OBT->{DIR_TORRENT}/$file"); };

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

if ($@) {

warn "Error reading torrent $file\n";

return undef;

Line 125

my $size = $t->total_size;

my $i;

my $i = 0;

while ($size > 1024) {

$size /= 1024;

$i++;