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.11, 2005/05/02 21:26:04

Line 4

use warnings;

use diagnostics;

use BT::MetaInfo;

use BT::OBTMetaInfo;

use LWP::UserAgent;

use Time::Local;

Line 117

print "Uploading $file\n";

my $t;

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

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

if ($@) {

warn "Error reading torrent $file\n";

return undef;