openbsd/OpenBSDTorrents/CurrentTorrents.pl - diff

Return to CurrentTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

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

version 1.22, 2006/07/24 19:03:53

Line 1

#!/usr/bin/perl -T

#$Id$

#$RedRiver: CurrentTorrents.pl,v 1.21 2006/05/15 18:47:04 andrew Exp $

use strict;

use warnings;

use diagnostics;

Line 73

foreach my $name (keys %{ $files{torrent} }) {

next unless $name =~ /^$Name_Filter/;

print "Checking $name\n";

#print "Checking $name\n";

foreach my $epoch ( sort { $b <=> $a } keys %{ $files{torrent}{$name} } ) {

#print "\t$epoch\n";

Line 89

}

my $t;

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

eval {

$t = BT::MetaInfo::Cached->new(

$torrent,

{

cache_root => '/tmp/OBTFileCache'

#$OBT->{DIR_HOME} . '/FileCache'

}

);

};

if ($@) {

warn "Error reading torrent $torrent\n";