[BACK]Return to CurrentTorrents.pl CVS log [TXT][DIR] Up to [local] / openbsd / OpenBSDTorrents

Diff for /openbsd/OpenBSDTorrents/CurrentTorrents.pl between version 1.18 and 1.22

version 1.18, 2005/05/06 21:02:47 version 1.22, 2006/07/24 19:03:53
Line 1 
Line 1 
 #!/usr/bin/perl -T  #!/usr/bin/perl -T
 #$Id$  #$RedRiver: CurrentTorrents.pl,v 1.21 2006/05/15 18:47:04 andrew Exp $
 use strict;  use strict;
 use warnings;  use warnings;
 use diagnostics;  use diagnostics;
Line 73 
Line 73 
   
 foreach my $name (keys %{ $files{torrent} }) {  foreach my $name (keys %{ $files{torrent} }) {
         next unless $name =~ /^$Name_Filter/;          next unless $name =~ /^$Name_Filter/;
         print "Checking $name\n";          #print "Checking $name\n";
   
         foreach my $epoch ( sort { $b <=> $a } keys %{ $files{torrent}{$name} } ) {          foreach my $epoch ( sort { $b <=> $a } keys %{ $files{torrent}{$name} } ) {
                 #print "\t$epoch\n";                  #print "\t$epoch\n";
Line 93 
Line 93 
                         $t = BT::MetaInfo::Cached->new(                          $t = BT::MetaInfo::Cached->new(
                                 $torrent,                                  $torrent,
                                 {                                  {
                                         cache_root =>                                          cache_root => '/tmp/OBTFileCache'
                                         $OBT->{DIR_HOME} . '/FileCache'                                          #$OBT->{DIR_HOME} . '/FileCache'
                                 }                                  }
                         );                          );
                 };                  };

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.22

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>