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.7, 2005/03/28 22:52:01

Line 7

use BT::MetaInfo;

use Time::Local;

use lib 'lib';

use lib '/usr/local/bin/OpenBSDTorrents/lib';

use OpenBSDTorrents;

%ENV = ();

#use YAML;

justme();

my %files;

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

foreach (readdir DIR) {

Line 28

Line 30

my $epoch = timegm(0,$min,$hour,$mday,$mon,$year);

print "Adding $_\n";

#print "Adding $_\n";

$files{$name}{$epoch} = {

file => $_,

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

#print "Deleting $files{$name}{$epoch}{file} the path doesn't exist.\n";

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

}

if (keys %{ $files{$name} } == 1) {

print "Skipping torrent for $name there is only one.\n";

#print "Skipping torrent for $name there is only one.\n";

next;

}