version 1.15, 2005/05/06 21:05:00 |
version 1.17, 2005/05/20 18:18:13 |
|
|
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"; |
my $t; |
|
eval { |
|
$t = BT::MetaInfo::Cached->new( |
|
$_, |
|
{ |
|
cache_root => |
|
$OBT->{DIR_HOME} . '/FileCache' |
|
} |
|
); |
|
}; |
|
|
$mon--; |
if ($@) { |
|
warn "Error reading torrent $_\n"; |
|
return undef; |
|
} |
|
|
my $epoch = timegm(0,$min,$hour,$mday,$mon,$year); |
my $epoch = $t->creation_date; |
|
|
$files{$name}{$epoch} = { |
$files{$name}{$epoch} = { |
file => $_, |
file => $_, |
year => $year, |
details => $t, |
mon => $mon, |
name => $name, |
mday => $mday, |
|
hour => $hour, |
|
min => $min, |
|
time => $time, |
|
epoch => $epoch, |
epoch => $epoch, |
}; |
}; |
|
|
|
|
# $files{$name}{$epoch}{hour} . ':' . |
# $files{$name}{$epoch}{hour} . ':' . |
# $files{$name}{$epoch}{min} . ':00'; |
# $files{$name}{$epoch}{min} . ':00'; |
|
|
Upload_Torrent($torrent, $files{$name}{$epoch}{time}); |
Upload_Torrent($files{$name}{$epoch}); |
} |
} |
next; |
next; |
} |
} |
|
|
|
|
sub Upload_Torrent |
sub Upload_Torrent |
{ |
{ |
my $file = shift; |
my $torrent = shift; |
my $time = shift; |
my $t = $torrent->{'details'}; |
|
|
|
my $file = $torrent->{'file'}; |
print "Uploading $file\n"; |
print "Uploading $file\n"; |
|
|
my $t; |
|
eval { |
|
$t = BT::MetaInfo::Cached->new( |
|
$torrent, |
|
{ |
|
cache_root => |
|
$OBT->{DIR_HOME} . '/FileCache' |
|
} |
|
); |
|
}; |
|
|
|
if ($@) { |
|
warn "Error reading torrent $file\n"; |
|
return undef; |
|
} |
|
|
|
my $size = $t->total_size; |
my $size = $t->total_size; |
|
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = |
|
gmtime($t->creation_date); |
|
$year += 1900; |
|
$mon++; |
|
my $time = sprintf "%04d.%02d.%02d %02d:%02d", |
|
$year, $mon, $mday, $hour, $min; |
|
|
my $i = 0; |
my $i = 0; |
while ($size > 1024) { |
while ($size > 1024) { |