| version 1.5, 2005/03/24 00:32:02 |
version 1.9, 2005/04/06 23:28:05 |
|
|
| |
|
| #use YAML; |
#use YAML; |
| |
|
| |
justme(); |
| |
|
| my %files; |
my %files; |
| opendir DIR, $TorrentDir or die "Couldn't opendir $TorrentDir: $!"; |
opendir DIR, $TorrentDir or die "Couldn't opendir $TorrentDir: $!"; |
| foreach (readdir DIR) { |
foreach (readdir DIR) { |
|
|
| my ($name, $year, $mon, $mday, $hour, $min) = |
my ($name, $year, $mon, $mday, $hour, $min) = |
| /^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/; |
/^(.*)-(\d{4})-(\d{2})-(\d{2})-(\d{2})(\d{2})/; |
| |
|
| |
$mon--; |
| my $epoch = timegm(0,$min,$hour,$mday,$mon,$year); |
my $epoch = timegm(0,$min,$hour,$mday,$mon,$year); |
| |
|
| print "Adding $_\n"; |
#print "Adding $_\n"; |
| |
|
| $files{$name}{$epoch} = { |
$files{$name}{$epoch} = { |
| file => $_, |
file => $_, |
|
|
| my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s; |
my ($path) = $t->{comment} =~ /Files from ([^\n]+)\n/s; |
| |
|
| unless (-d "$BaseDir/$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}; |
| } |
} |
| |
|
| if (keys %{ $files{$name} } == 1) { |
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; |
next; |
| } |
} |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to CurrentTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents