openbsd/OpenBSDTorrents/CurrentTorrents.pl - diff

Return to CurrentTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.16, 2005/05/05 02:09:43

version 1.17, 2005/05/05 22:52:45

Line 9

use lib 'lib';

use OpenBSDTorrents;

use BT::OBTMetaInfo;

use BT::MetaInfo::Cached;

%ENV = ();

Line 88

next;

}

my $meta_file = $torrent;

$meta_file =~ s/\.torrent$/.$OBT->{META_EXT}/;

my $hash = undef;

if (-e $meta_file) {

#print "Reading meta file: $meta_file\n";

open my $meta, $meta_file

or die "Couldn't open $meta_file: $!";

flock($meta, LOCK_SH);

binmode $meta;

$hash = do { local $/; <$meta> };

flock($meta, LOCK_UN);

close $meta;

} else {

my $t;

eval { $t = BT::OBTMetaInfo->new( $torrent ); };

eval { $t = BT::MetaInfo::Cached->new( $torrent ); };

if ($@) {

warn "Error reading torrent $torrent\n";

Line 123

Line 106

next;

}

$hash = $t->info_hash_cached($torrent);

my $hash = $t->info_hash;

$hash = unpack("H*", $hash);

undef $t;

}

$files{torrent}{$name}{$epoch}{info_hash} = $hash;