print "started time=".time."\n";
#### SET THESE! #################################
-my $file = '/home/levinse/dids1.csv';
+my $file = '/home/levinse/dids4.csv';
my $did_vendor_id = 1;
my $dry = 0;
my $internal_diddb_exportnum = 1; # IMPORTANT: set this to the correct exportnum or everything will go in wrong into phone_avail
'Miami' => 33100,
'Jackson' => 27140,
'St Cloud' => 41060,
+ 'Stratford' => 14860,
# more hax upon hax (the above are unique, no issues)
'Portland OR' => 38900,
my $parser = new DateTime::Format::Natural( 'time_zone' => 'local' );
sub parsedt {
my ($dt,$min,$max) = (shift,shift,shift);
+ $dt = "$dt 00:00:00";
my $epoch = $parser->parse_datetime($dt);
+ 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)");
$latadesc =~ s/\s\w+$// unless uc($ourdesc) eq uc($latadesc); # yeah...long story :(
fatal("their LATA description '$latadesc' doesn't match our LATA description '$ourdesc'")
- unless uc($ourdesc) eq uc($latadesc);
+ unless (uc($ourdesc) eq uc($latadesc) || $latanum == 460);
### MSA ###
my $o;
if( exists $did_order{$vendor_order_id} ) {
$o = $did_order{$vendor_order_id};
+# warn "$submitted $confirmed $received $vendor_order_id".Dumper($o);
fatal("vendor order #$vendor_order_id - order data differs from one item to another")
- unless ( ($o->submitted == $submitted
+ unless ( ( abs($o->submitted-$submitted) < 5
|| $o->vendor_order_id == 293011) # yet another bad data hack
- && $o->confirmed == $confirmed
- && $o->received == $received);
- fatal("customer mismatch for vendor order #$vendor_order_id")
- unless ( ($o->custnum && $cust{'custnum'}
- && ($o->custnum == $cust{'custnum'}
- || $vendor_order_id eq '293745' || $vendor_order_id eq '300001')
- )
- ||
- (!$o->custnum && !exists($cust{'custnum'}))
- );
+ && abs($o->confirmed-$confirmed) < 5
+ && abs($o->received-$received) < 5
+ );
+# fatal("customer mismatch for vendor order #$vendor_order_id")
+# unless ( ($o->custnum && $cust{'custnum'}
+# && ($o->custnum == $cust{'custnum'}
+# || $vendor_order_id eq '293745' || $vendor_order_id eq '300001')
+# )
+# ||
+# (!$o->custnum && !exists($cust{'custnum'}))
+# );
} else {
$o = new FS::did_order{ vendornum => $did_vendor_id,
vendor_order_id => $vendor_order_id,