use FS::cust_pkg;
my $DANGEROUS = 0;
-my $DRY = 1;
+my $DRY = 0;
-# XXX: use SSL for real version
-my $source_datasrc = '';
-my $source_user = '';
-my $source_pw = '';
+my $source_datasrc = 'dbi:Pg:dbname=benson';
-#### MANUAL ####
-# 1. Destination agent must be created with correct agentnum
-# 2. Destination refnum must be created as per below
-# 3. System domain must be created appropriately
-#####
+my $source_user = 'freeside';
+my $source_pw = '';
my $dest_agentnum = 3;
my $src_agentnum = 1;
2 => 10375,
);
-# XXX
my %eventparts = (
- # 'CARD' => [ 1, ],
- # 'CHEK' => [ 2, ],
- # 'BILL' => [ 5, ],
- # 'DCHK' => [ 12, ],
- # 'DCRD' => [ 15, ],
- # 'COMP' => [],
+ 'CARD' => [ 13, 14, 15 ],
+ 'CHEK' => [],
+ 'BILL' => [ 13, ],
+ 'DCHK' => [],
+ 'DCRD' => [ 13, ],
+ 'COMP' => [],
);
#--
import_table( 'cust_pkg', 'custnum' => $src_custnum,
'preinsert_callback' => sub {
my($row, $object) = @_;
+
+ $object->start_date(''); #bogus start dates on all packages
+
my $src_pkgpart = $row->{'pkgpart'} or die "wtf";
my $dest_pkgpart = $map{'part_pkg'}->{$src_pkgpart};
if ( $dest_pkgpart ) {