version 1.13, 2005/05/02 22:43:53 |
version 1.14, 2005/05/04 01:11:59 |
|
|
#print "\t$epoch\n"; |
#print "\t$epoch\n"; |
my $torrent = $files{torrent}{$name}{$epoch}{path}; |
my $torrent = $files{torrent}{$name}{$epoch}{path}; |
|
|
|
if ( |
|
keys %{ $files{torrent}{$name} } == 1 && |
|
$files{torrent}{$name}{$epoch}{dir} |
|
eq $OBT->{DIR_TORRENT} |
|
) { |
|
#print "Skipping torrent for $name there is only one.\n"; |
|
next; |
|
} |
|
|
|
|
my $t; |
my $t; |
eval { $t = BT::OBTMetaInfo->new( $torrent ); }; |
eval { $t = BT::OBTMetaInfo->new( $torrent ); }; |
|
|
|
|
#print "Deleting $files{torrent}{$name}{$epoch}{file} the path doesn't exist.\n"; |
#print "Deleting $files{torrent}{$name}{$epoch}{file} the path doesn't exist.\n"; |
push @delete, $files{torrent}{$name}{$epoch}; |
push @delete, $files{torrent}{$name}{$epoch}; |
delete $files{torrent}{$name}{$epoch}; |
delete $files{torrent}{$name}{$epoch}; |
next; |
|
} |
|
|
|
if ( |
|
keys %{ $files{torrent}{$name} } == 1 && |
|
$files{torrent}{$name}{$epoch}{dir} |
|
eq $OBT->{DIR_TORRENT} |
|
) { |
|
#print "Skipping torrent for $name there is only one.\n"; |
|
next; |
next; |
} |
} |
|
|