summaryrefslogtreecommitdiff
path: root/FS/FS/part_export/communigate_pro.pm
diff options
context:
space:
mode:
authorivan <ivan>2010-04-19 01:27:00 +0000
committerivan <ivan>2010-04-19 01:27:00 +0000
commitad7f49821d40ffd099a45acc32ba91e0e211aede (patch)
tree8228c5db1da46fd27a84a47dc0267b4ea6a9b297 /FS/FS/part_export/communigate_pro.pm
parenta81b07fba385be4599feec950d5b108e3c107d0d (diff)
communigate provisioning phase 2: add svc_domain.trailer -> communigate TrailerText, RT#7514
Diffstat (limited to 'FS/FS/part_export/communigate_pro.pm')
-rw-r--r--FS/FS/part_export/communigate_pro.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index 7f5cece..37cc6ef 100644
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -141,6 +141,8 @@ sub _export_insert_svc_domain {
if $svc_domain->max_accounts;
$settings{'AdminDomainName'} = $svc_domain->parent_svc_x->domain
if $svc_domain->parent_svcnum;
+ $settings{'TrailerText'} = $svc_domain->trailer
+ if $svc_domain->trailer;
my @options = ( $create, $svc_domain->domain, \%settings );
@@ -325,6 +327,8 @@ sub _export_replace_svc_domain {
my %settings = ();
$settings{'AccountsLimit'} = $new->max_accounts
if $old->max_accounts ne $new->max_accounts;
+ $settings{'TrailerText'} = $new->trailer
+ if $old->trailer ne $new->trailer;
$settings{'DomainAccessModes'} = $new->cgp_accessmodes
if $old->cgp_accessmodes ne $new->cgp_accessmodes;
$settings{'AdminDomainName'} =
@@ -865,6 +869,7 @@ sub communigate_pro_command { #subroutine, not method
my( $machine, $port, $login, $password, $method, @args ) = @_;
eval "use CGP::CLI";
+ die $@ if $@;
my $cli = new CGP::CLI( {
'PeerAddr' => $machine,