version 1.17, 2005/05/20 18:18:13 |
version 1.19, 2005/05/21 01:48:03 |
|
|
my $t; |
my $t; |
eval { |
eval { |
$t = BT::MetaInfo::Cached->new( |
$t = BT::MetaInfo::Cached->new( |
$_, |
$OBT->{DIR_TORRENT} . '/' . $_, |
{ |
{ |
cache_root => |
cache_root => |
$OBT->{DIR_HOME} . '/FileCache' |
$OBT->{DIR_HOME} . '/FileCache' |
|
|
|
|
if ($@) { |
if ($@) { |
warn "Error reading torrent $_\n"; |
warn "Error reading torrent $_\n"; |
return undef; |
next; |
} |
} |
|
|
my $epoch = $t->creation_date; |
my $epoch = $t->creation_date; |
|
|
foreach my $epoch ( sort { $b <=> $a } keys %{ $files{$name} } ) { |
foreach my $epoch ( sort { $b <=> $a } keys %{ $files{$name} } ) { |
#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} ) { |
|
#my $time = |
my $hash = $files{$name}{$epoch}{'details'}->info_hash; |
# $files{$name}{$epoch}{year} . '-' . |
$hash = unpack("H*", $hash); |
# $files{$name}{$epoch}{mon} . '-' . |
|
# $files{$name}{$epoch}{mday} . ' ' . |
next if ( |
# $files{$name}{$epoch}{hour} . ':' . |
exists $server_torrents{$torrent} && |
# $files{$name}{$epoch}{min} . ':00'; |
$server_torrents{$torrent} eq $hash |
|
); |
Upload_Torrent($files{$name}{$epoch}); |
|
} |
Upload_Torrent($files{$name}{$epoch}); |
next; |
|
} |
} |
} |
} |
|
|
|
|
my $time = sprintf "%04d.%02d.%02d %02d:%02d", |
my $time = sprintf "%04d.%02d.%02d %02d:%02d", |
$year, $mon, $mday, $hour, $min; |
$year, $mon, $mday, $hour, $min; |
|
|
|
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = |
|
localtime($t->creation_date); |
|
$year += 1900; |
|
$mon++; |
|
my $sql_time = sprintf "%04d-%02d-%02d %02d:%02d", |
|
$year, $mon, $mday, $hour, $min; |
|
|
my $i = 0; |
my $i = 0; |
while ($size > 1024) { |
while ($size > 1024) { |
$size /= 1024; |
$size /= 1024; |
|
|
torrent => [ $OBT->{DIR_TORRENT} . "/$file" ], |
torrent => [ $OBT->{DIR_TORRENT} . "/$file" ], |
url => "/torrents/$file", |
url => "/torrents/$file", |
filename => $filename, |
filename => $filename, |
filedate => $time, |
filedate => $sql_time, |
info => $comment, |
info => $comment, |
hash => '', |
hash => '', |
autoset => 'enabled', # -> checked="checked" |
autoset => 'enabled', # -> checked="checked" |