openbsd/OpenBSDTorrents/CurrentTorrents.pl - diff

Return to CurrentTorrents.pl CVS log

Up to [local] / openbsd / OpenBSDTorrents

version 1.4, 2005/03/24 00:20:33

version 1.6, 2005/03/25 03:12:05

Line 14

#use YAML;

justme();

my %files;

opendir DIR, $TorrentDir or die "Couldn't opendir $TorrentDir: $!";

foreach (readdir DIR) {

Line 62

Line 64

$files{$name}{$epoch}{comment} = $t->{comment};

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

push @delete, $files{$name}{$epoch}{file};

}