diff options
author | ivan <ivan> | 2010-06-23 23:06:04 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-06-23 23:06:04 +0000 |
commit | e275cda3462f23538bce30f40c0e24ae47ee9508 (patch) | |
tree | 74967a26b09e90e3302507c321ae112d0b0556c2 /FS/FS/part_export/communigate_pro.pm | |
parent | 0b42654dca5eddf33ed2f35f91d12e23d9a59137 (diff) |
fix domain renames, RT#7083
Diffstat (limited to 'FS/FS/part_export/communigate_pro.pm')
-rw-r--r-- | FS/FS/part_export/communigate_pro.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm index edfd4b1..42f562c 100644 --- a/FS/FS/part_export/communigate_pro.pm +++ b/FS/FS/part_export/communigate_pro.pm @@ -383,12 +383,16 @@ sub _export_replace_svc_acct { sub _export_replace_svc_domain { my( $self, $new, $old ) = (shift, shift, shift); + #let's just do the rename part realtime rather than trying to queue + #w/dependencies. we don't want FS winding up out-of-sync with the wrong + #username and a queued job anyway. right?? if ( $old->domain ne $new->domain ) { - my $error = $self->communigate_pro_queue( $new->svcnum, 'RenameDomain', - $old->domain, $new->domain, - ); - return $error if $error; + eval { $self->communigate_pro_runcommand( + 'RenameDomain', $old->domain, $new->domain, + ) }; + return $@ if $@; } + my %settings = (); $settings{'AccountsLimit'} = $new->max_accounts if $old->max_accounts ne $new->max_accounts; |