| version 1.7, 2005/03/28 22:52:01 |
version 1.9, 2005/04/06 23:28:05 |
|
|
| use BT::MetaInfo; |
use BT::MetaInfo; |
| use Time::Local; |
use Time::Local; |
| |
|
| use lib '/usr/local/bin/OpenBSDTorrents/lib'; |
use lib 'lib'; |
| use OpenBSDTorrents; |
use OpenBSDTorrents; |
| |
|
| %ENV = (); |
%ENV = (); |
|
|
| 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"; |