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 = 2; # IMPORTANT: set this to the correct exportnum or everything will go in wrong into phone_avail
+my $internal_diddb_exportnum = 1; # IMPORTANT: set this to the correct exportnum or everything will go in wrong into phone_avail
# optionally set this one (probably not)
my %custname2num = (); # MyCust => 12345,
### LATA ###
- fatal("no lata found for latanum $latanum") unless exists($latas{$latanum});
+ fatal("no lata found for latanum $latanum") unless exists($latas{$latanum})
+ || $latanum == 460;
# unsurprisingly, our idea of a LATA name doesn't always match their idea
# of the same. Specifically, they randomly expand the state portion and
$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 ###