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"; |