Return to ServerTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.6, 2005/03/29 00:28:50 | version 1.7, 2005/03/31 01:14:48 | ||
---|---|---|---|
|
|
||
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); | ||
$files{$name}{$epoch} = { | $files{$name}{$epoch} = { |