diff options
author | ivan <ivan> | 2009-08-27 10:04:50 +0000 |
---|---|---|
committer | ivan <ivan> | 2009-08-27 10:04:50 +0000 |
commit | f407a661ea76f6cc7621e10a23ab32eb74ced115 (patch) | |
tree | c6d4d9d9d8e3a437b204f63ffdad805386bbb5f2 /bin | |
parent | c4c4db9c670aa7ce9a6e2e3d824233d37f3f6881 (diff) |
ok
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/move-customers | 52 |
1 files changed, 25 insertions, 27 deletions
diff --git a/bin/move-customers b/bin/move-customers index e9f29822a..c78b6ac25 100755 --- a/bin/move-customers +++ b/bin/move-customers @@ -18,8 +18,9 @@ use FS::part_svc; use FS::cust_bill_ApplicationCommon; use FS::svc_Common; use FS::cust_event; +use FS::svc_domain; -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 @@ -32,43 +33,38 @@ my $source_pw = ''; #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 = 12; -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 = ( - 1 => 1, - 3653 => 1, - 7634 => 1, + 1 => 20450, + 3653 => 20162, + 7634 => 20451, ); -#XXX change for production #testing -my %eventparts = ( - 'CARD' => [ 1, ], - 'CHEK' => [], - 'BILL' => [], - 'DCHK' => [], - 'DCRD' => [], - 'COMP' => [], -); -#production #my %eventparts = ( # 'CARD' => [ 1, ], -# 'CHEK' => [ 2, ], -# 'BILL' => [ 5, ], -# 'DCHK' => [ 12, ], -# 'DCRD' => [ 15, ], +# 'CHEK' => [], +# 'BILL' => [], +# 'DCHK' => [], +# 'DCRD' => [], # 'COMP' => [], -#) - -# XXX set passwordmin conf to 4 -# XXX set passwordmax conf to 21 +); +#production +my %eventparts = ( + 'CARD' => [ 1, ], + 'CHEK' => [ 2, ], + 'BILL' => [ 5, ], + 'DCHK' => [ 12, ], + 'DCRD' => [ 15, ], + 'COMP' => [], +) #-- @@ -87,6 +83,8 @@ $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::svc_domain::whois_hack = 1; +$FS::svc_domain::whois_hack = 1; my $void_paynum = 2147483646; #top of int range |