Return to CurrentTorrents.pl CVS log | Up to [local] / openbsd / OpenBSDTorrents |
version 1.7, 2005/03/28 22:52:01 | version 1.8, 2005/03/31 01:14:58 | ||
---|---|---|---|
|
|
||
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); | ||
#print "Adding $_\n"; | #print "Adding $_\n"; |