use FS::did_vendor;
use FS::svc_phone;
use Data::Dumper;
+use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);
print "started time=".time."\n";
#### SET THESE! #################################
my $file = '/home/levinse/dids1.csv';
my $did_vendor_id = 1;
-my $dry = 1;
-my $debug = 0;
-my $internal_diddb_exportnum = 2; # IMPORTANT: set this to the correct exportnum or everything will go in wrong into phone_avail
+my $dry = 0;
+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,
################################################
my $user = shift;
adminsuidsetup $user;
-# oh yeah this is fun when you can't Ctrl+C me
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
local $SIG{QUIT} = 'IGNORE';
'Portland ME' => 38860,
);
my $skipto = 0;
-my $limit = 900;
+my $limit = 0;
my $linenum = 1;
+my $debug = 0;
# cache LATA and MSA tables in one query for performance
my @latas = qsearch('lata', {});
&& $o->received == $received);
fatal("customer mismatch for vendor order #$vendor_order_id")
unless ( ($o->custnum && $cust{'custnum'}
- && $o->custnum == $cust{'custnum'})
- || (!$o->custnum && !exists($cust{'custnum'})) );
+ && ($o->custnum == $cust{'custnum'}
+ || $vendor_order_id eq '293745')
+ )
+ ||
+ (!$o->custnum && !exists($cust{'custnum'}))
+ );
} else {
$o = new FS::did_order{ vendornum => $did_vendor_id,
vendor_order_id => $vendor_order_id,
fatal("can't insert svc_phone: $error") if $error;
- #$phone_avail->svcnum($svc_phone->svcnum);
- #$error = $phone_avail->replace;
- #fatal("can't replace phone_avail: $error") if $error;
+ $phone_avail->svcnum($svc_phone->svcnum);
+ $error = $phone_avail->replace;
+ fatal("can't replace phone_avail: $error") if $error;
'';
}