use strict;
use vars qw( $sdbh );
-use DBI;
+use FS::DBI;
use FS::UID qw( adminsuidsetup dbh );
use FS::Schema qw( dbdef );
use FS::Record qw( qsearchs );
use FS::svc_Common;
use FS::cust_event;
use FS::svc_domain;
+use FS::cust_pkg;
my $DANGEROUS = 0;
my $DRY = 0;
# 'DCHK' => [],
# 'DCRD' => [],
# 'COMP' => [],
-);
+#);
#production
my %eventparts = (
'CARD' => [ 1, ],
'DCHK' => [ 12, ],
'DCRD' => [ 15, ],
'COMP' => [],
-)
+);
#--
$FS::svc_Common::noexport_hack = 1;
$FS::svc_domain::whois_hack = 1;
$FS::svc_domain::whois_hack = 1;
+$FS::cust_pkg::disable_agentcheck = 1;
+$FS::cust_pkg::disable_agentcheck = 1;
my $void_paynum = 2147483646; #top of int range
# source(remote) setup
-$sdbh = DBI->connect($source_datasrc, $source_user, $source_pw)
- or die $DBI::errstr;
+$sdbh = FS::DBI->connect($source_datasrc, $source_user, $source_pw)
+ or die $FS::DBI::errstr;
$sdbh->{ChopBlanks} = 1;
warn "importing customers for $src_agent\n";
- my $agent = qsearchs('agent', { 'agent' => $src_agent } );
+ my $agent = qsearchs('agent', { 'agent' => $src_agent, 'disabled' => '' } );
if ( $agent ) {