openbsd/OpenBSDTorrents/CurrentTorrents.pl - diff

Return to CurrentTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.18, 2005/05/06 21:02:47

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 93

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

$torrent,

{

cache_root =>

cache_root => '/tmp/OBTFileCache'

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

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

}

);

};