[freeside-commits] freeside/bin b-move-customers,1.1,1.2

[Erik Levinson]

Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv24378/bin

Modified Files:
	b-move-customers 
Log Message:
custom freeside migration script, RT10536

Index: b-move-customers
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/b-move-customers,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -d -r1.1 -r1.2
--- b-move-customers	12 Feb 2011 03:25:51 -0000	1.1
+++ b-move-customers	23 Feb 2011 06:02:18 -0000	1.2
@@ -20,18 +20,12 @@
 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;
@@ -41,14 +35,13 @@
   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' => [],
 );
 
 #--