version 1.6, 2005/03/29 00:28:50 |
version 1.9, 2005/04/04 03:14:17 |
|
|
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) { |
|
chomp; |
if (/^([^\/]+)$/) { |
if (/^([^\/]+)$/) { |
$_ = $1; |
$_ = $1; |
} else { |
} else { |
die "Invalid character in $_: $!"; |
die "Invalid character in $_: $!"; |
} |
} |
next unless /\.torrent$/; |
next unless /\.torrent$/; |
chomp; |
|
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})/; |
|
|
|
my $time = "$year.$mon.$mday $hour:$min"; |
|
|
|
$mon--; |
|
|
my $epoch = timegm(0,$min,$hour,$mday,$mon,$year); |
my $epoch = timegm(0,$min,$hour,$mday,$mon,$year); |
|
|
$files{$name}{$epoch} = { |
$files{$name}{$epoch} = { |
|
|
mday => $mday, |
mday => $mday, |
hour => $hour, |
hour => $hour, |
min => $min, |
min => $min, |
|
time => $time, |
epoch => $epoch, |
epoch => $epoch, |
}; |
}; |
|
|
|
|
#print "\t$epoch\n"; |
#print "\t$epoch\n"; |
my $torrent = $files{$name}{$epoch}{file}; |
my $torrent = $files{$name}{$epoch}{file}; |
unless (exists $server_torrents{$torrent} ) { |
unless (exists $server_torrents{$torrent} ) { |
my $time = |
#my $time = |
$files{$name}{$epoch}{year} . '-' . |
# $files{$name}{$epoch}{year} . '-' . |
$files{$name}{$epoch}{mon} . '-' . |
# $files{$name}{$epoch}{mon} . '-' . |
$files{$name}{$epoch}{mday} . ' ' . |
# $files{$name}{$epoch}{mday} . ' ' . |
$files{$name}{$epoch}{hour} . ':' . |
# $files{$name}{$epoch}{hour} . ':' . |
$files{$name}{$epoch}{min} . ':00'; |
# $files{$name}{$epoch}{min} . ':00'; |
|
|
Upload_Torrent($torrent, $time); |
Upload_Torrent($torrent, $files{$name}{$epoch}{time}); |
} |
} |
next; |
next; |
} |
} |