Return to ServerTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.11, 2005/05/02 21:26:04 | version 1.13, 2005/05/05 18:48:19 | ||
---|---|---|---|
|
|
||
use warnings; | use warnings; | ||
use diagnostics; | use diagnostics; | ||
use BT::OBTMetaInfo; | |||
use LWP::UserAgent; | use LWP::UserAgent; | ||
use Time::Local; | use Time::Local; | ||
use lib 'lib'; | use lib 'lib'; | ||
use OpenBSDTorrents; | use OpenBSDTorrents; | ||
use BT::OBTMetaInfo; | |||
%ENV = (); | %ENV = (); | ||
|
|
||
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++; |