| version 1.15, 2005/05/04 01:48:35 |
version 1.16, 2005/05/05 02:09:43 |
|
|
| use diagnostics; |
use diagnostics; |
| |
|
| use Time::Local; |
use Time::Local; |
| |
use Fcntl ':flock'; |
| |
|
| use lib 'lib'; |
use lib 'lib'; |
| use OpenBSDTorrents; |
use OpenBSDTorrents; |
|
|
| next; |
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; |
my $t; |
| eval { $t = BT::OBTMetaInfo->new( $torrent ); }; |
eval { $t = BT::OBTMetaInfo->new( $torrent ); }; |
| |
|
|
|
| next; |
next; |
| } |
} |
| |
|
| my $hash = $t->info_hash_cached($torrent); |
$hash = $t->info_hash_cached($torrent); |
| $hash = unpack("H*", $hash); |
$hash = unpack("H*", $hash); |
| |
|
| |
undef $t; |
| |
|
| |
} |
| |
|
| $files{torrent}{$name}{$epoch}{info_hash} = $hash; |
$files{torrent}{$name}{$epoch}{info_hash} = $hash; |
| |
|
| undef $t; |
|
| |
|
| if (exists $keep{$name}) { |
if (exists $keep{$name}) { |
| if (exists $keep{$name}{$hash}) { |
if (exists $keep{$name}{$hash}) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to CurrentTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents