projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT#40641: unprovisioning preserved cancelled services
[freeside.git]
/
bin
/
b-move-customers
diff --git
a/bin/b-move-customers
b/bin/b-move-customers
index
d612447
..
026e4cc
100755
(executable)
--- a/
bin/b-move-customers
+++ b/
bin/b-move-customers
@@
-20,18
+20,12
@@
use FS::svc_domain;
use FS::cust_pkg;
my $DANGEROUS = 0;
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;
my $dest_agentnum = 3;
my $src_agentnum = 1;
@@
-41,14
+35,13
@@
my %domsvc_map = (
2 => 10375,
);
2 => 10375,
);
-# XXX
my %eventparts = (
my %eventparts = (
-
# 'CARD' => [ 1,
],
-
# 'CHEK' => [ 2,
],
-
# 'BILL' => [ 5
, ],
-
# 'DCHK' => [ 12,
],
-
# 'DCRD' => [ 15
, ],
-
#
'COMP' => [],
+
'CARD' => [ 13, 14, 15
],
+
'CHEK' => [
],
+
'BILL' => [ 13
, ],
+
'DCHK' => [
],
+
'DCRD' => [ 13
, ],
+ 'COMP' => [],
);
#--
);
#--
@@
-208,6
+201,9
@@
while ( my $customerrow = $customer_sth->fetchrow_hashref ) {
import_table( 'cust_pkg', 'custnum' => $src_custnum,
'preinsert_callback' => sub {
my($row, $object) = @_;
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 ) {
my $src_pkgpart = $row->{'pkgpart'} or die "wtf";
my $dest_pkgpart = $map{'part_pkg'}->{$src_pkgpart};
if ( $dest_pkgpart ) {