projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r11022,
[freeside.git]
/
bin
/
move-customers
diff --git
a/bin/move-customers
b/bin/move-customers
index
e9f2982
..
a7ea197
100755
(executable)
--- a/
bin/move-customers
+++ b/
bin/move-customers
@@
-18,8
+18,10
@@
use FS::part_svc;
use FS::cust_bill_ApplicationCommon;
use FS::svc_Common;
use FS::cust_event;
use FS::cust_bill_ApplicationCommon;
use FS::svc_Common;
use FS::cust_event;
+use FS::svc_domain;
+use FS::cust_pkg;
-my $DANGEROUS =
1
;
+my $DANGEROUS =
0
;
my $DRY = 0;
#ssh -p 2222 -L 1080:66.209.32.4:7219 -L 5454:localhost:5432 66.209.32.4
my $DRY = 0;
#ssh -p 2222 -L 1080:66.209.32.4:7219 -L 5454:localhost:5432 66.209.32.4
@@
-32,43
+34,38
@@
my $source_pw = '';
#my @source_agents = ( 2, 7, 3, 4, 5, 1 );
my @source_agents = ( 1, 2, 3, 4, 5, 7 );
#my @source_agents = ( 2, 7, 3, 4, 5, 1 );
my @source_agents = ( 1, 2, 3, 4, 5, 7 );
-my $dest_agent_typenum = 1
; #XXX change for production
+my $dest_agent_typenum = 1
2;
-my $dest_refnum =
1; #XXX change for production
+my $dest_refnum =
60;
-my $dest_legacy_credit_reasontype =
4; #XXX change for production
+my $dest_legacy_credit_reasontype =
5;
-my $dest_pkg_classnum =
1; #XXX change for production
+my $dest_pkg_classnum =
6;
-#XXX change for production
my %domsvc_map = (
my %domsvc_map = (
- 1 =>
1
,
- 3653 =>
1
,
- 7634 => 1,
+ 1 =>
20450
,
+ 3653 =>
20162
,
+ 7634 =>
2045
1,
);
);
-#XXX change for production
#testing
#testing
+#my %eventparts = (
+# 'CARD' => [ 1, ],
+# 'CHEK' => [],
+# 'BILL' => [],
+# 'DCHK' => [],
+# 'DCRD' => [],
+# 'COMP' => [],
+#);
+#production
my %eventparts = (
'CARD' => [ 1, ],
my %eventparts = (
'CARD' => [ 1, ],
- 'CHEK' => [],
- 'BILL' => [],
- 'DCHK' => [],
- 'DCRD' => [],
+ 'CHEK' => [
2,
],
+ 'BILL' => [
5,
],
+ 'DCHK' => [
12,
],
+ 'DCRD' => [
15,
],
'COMP' => [],
);
'COMP' => [],
);
-#production
-#my %eventparts = (
-# 'CARD' => [ 1, ],
-# 'CHEK' => [ 2, ],
-# 'BILL' => [ 5, ],
-# 'DCHK' => [ 12, ],
-# 'DCRD' => [ 15, ],
-# 'COMP' => [],
-#)
-
-# XXX set passwordmin conf to 4
-# XXX set passwordmax conf to 21
#--
#--
@@
-87,6
+84,10
@@
$FS::cust_bill_ApplicationCommon::skip_apply_to_lineitems_hack = 1;
$FS::cust_bill_ApplicationCommon::skip_apply_to_lineitems_hack = 1;
$FS::svc_Common::noexport_hack = 1;
$FS::svc_Common::noexport_hack = 1;
$FS::cust_bill_ApplicationCommon::skip_apply_to_lineitems_hack = 1;
$FS::svc_Common::noexport_hack = 1;
$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
my $void_paynum = 2147483646; #top of int range
@@
-129,7
+130,7
@@
while ( my $agentrow = $agent_sth->fetchrow_hashref ) {
warn "importing customers for $src_agent\n";
warn "importing customers for $src_agent\n";
- my $agent = qsearchs('agent', { 'agent' => $src_agent } );
+ my $agent = qsearchs('agent', { 'agent' => $src_agent
, 'disabled' => ''
} );
if ( $agent ) {
if ( $agent ) {