| version 1.8, 2005/04/01 01:20:15 |
version 1.9, 2005/04/04 03:14:17 |
|
|
| 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--; |
$mon--; |
| |
|
| my $epoch = timegm(0,$min,$hour,$mday,$mon,$year); |
my $epoch = timegm(0,$min,$hour,$mday,$mon,$year); |
|
|
| 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; |
| } |
} |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to ServerTorrents.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / openbsd / OpenBSDTorrents