version 1.4, 2005/03/24 00:20:33 |
version 1.5, 2005/03/24 00:32:02 |
|
|
$files{$name}{$epoch}{comment} = $t->{comment}; |
$files{$name}{$epoch}{comment} = $t->{comment}; |
my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s; |
my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s; |
|
|
unless (-d "$TorrentDir/$path") { |
unless (-d "$BaseDir/$path") { |
print "Deleting $files{$name}{$epoch}{file} the path doesn't exist.\n"; |
print "Deleting $files{$name}{$epoch}{file} the path doesn't exist.\n"; |
push @delete, $files{$name}{$epoch}{file}; |
push @delete, $files{$name}{$epoch}{file}; |
} |
} |