===================================================================
RCS file: /cvs/openbsd/OpenBSDTorrents/CurrentTorrents.pl,v
retrieving revision 1.17
retrieving revision 1.22
diff -u -r1.17 -r1.22
--- openbsd/OpenBSDTorrents/CurrentTorrents.pl	2005/05/05 22:52:45	1.17
+++ openbsd/OpenBSDTorrents/CurrentTorrents.pl	2006/07/24 19:03:53	1.22
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-#$Id: CurrentTorrents.pl,v 1.17 2005/05/05 21:52:45 andrew Exp $
+#$RedRiver: CurrentTorrents.pl,v 1.21 2006/05/15 18:47:04 andrew Exp $
 use strict;
 use warnings;
 use diagnostics;
@@ -73,7 +73,7 @@
 
 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";
@@ -89,7 +89,15 @@
 		}
 
 		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";