summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorlevinse <levinse>2011-06-16 00:33:29 +0000
committerlevinse <levinse>2011-06-16 00:33:29 +0000
commitd6244a2850a30ea44e3149909cd9f3a6fcc17b20 (patch)
treedd28191d6d92c4968550626264fa85397385b420
parente4ddd58aa20702f35734537cf7fe30f0a9acc920 (diff)
DID inventory/import / bulk DID orders - phase 2, RT12754
-rw-r--r--bin/import-did-inventory5
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/import-did-inventory b/bin/import-did-inventory
index 298e159f4..01fa2e8af 100644
--- a/bin/import-did-inventory
+++ b/bin/import-did-inventory
@@ -94,11 +94,12 @@ $latas{460} = 'SOUTHEAST FL GR-EA';
$latas{952} = 'TAMPA FLORIDA';
$latas{524} = 'KANSAS CITY';
+my $parser = new DateTime::Format::Natural( 'time_zone' => 'local' );
sub parsedt {
my ($dt,$min,$max) = (shift,shift,shift);
- my $parser = new DateTime::Format::Natural( 'time_zone' => 'local' );
+ $dt = "$dt 00:00:00";
my $epoch = $parser->parse_datetime($dt);
- warn "dt=$dt min=$min max=$max epoch=$epoch\n";
+ warn "dt='$dt' min=$min max=$max epoch=$epoch\n";
return $epoch->epoch
if ($parser->success && $epoch->epoch >= $min && $epoch->epoch <= $max);
fatal("invalid date $dt (min=$min, max=$max)");