| 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; |
| } |
} |
| |
|