X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fimport-did-inventory;h=b05c33fb9a1292f131c40b28b1d3a6f263bf9273;hb=17cccd36c342f7db174bce29fc68d7b4a7bdfd85;hp=10cc4d9870d8a0b2064d3c021129ec0cbf1d96e7;hpb=c17319bacfdcd2fceb7348e5f96fb89a39baff4d;p=freeside.git diff --git a/bin/import-did-inventory b/bin/import-did-inventory index 10cc4d987..b05c33fb9 100644 --- a/bin/import-did-inventory +++ b/bin/import-did-inventory @@ -23,10 +23,10 @@ use Time::HiRes qw(usleep ualarm gettimeofday tv_interval); 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, @@ -179,7 +179,7 @@ sub suffer { $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 ### @@ -356,11 +356,13 @@ sub order { 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); + && 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'}