diff options
author | ivan <ivan> | 2010-04-19 01:27:00 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-04-19 01:27:00 +0000 |
commit | ad7f49821d40ffd099a45acc32ba91e0e211aede (patch) | |
tree | 8228c5db1da46fd27a84a47dc0267b4ea6a9b297 /FS | |
parent | a81b07fba385be4599feec950d5b108e3c107d0d (diff) |
communigate provisioning phase 2: add svc_domain.trailer -> communigate TrailerText, RT#7514
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/Schema.pm | 1 | ||||
-rw-r--r-- | FS/FS/part_export/communigate_pro.pm | 5 | ||||
-rw-r--r-- | FS/FS/svc_domain.pm | 1 |
3 files changed, 7 insertions, 0 deletions
diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index 2850d4f..082a03d 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -1715,6 +1715,7 @@ sub tables_hashref { 'expiration_date', @date_type, '', '', #communigate pro fields (quota = MaxAccountSize) 'max_accounts', 'int', 'NULL', '', '', '', + 'trailer', 'text', 'NULL', '', '', '', 'cgp_aliases', 'varchar', 'NULL', 255, '', '', 'cgp_accessmodes','varchar','NULL', 255, '', '', #DomainAccessModes 'acct_def_password_selfchange','char', 'NULL', 1, '', '', 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, diff --git a/FS/FS/svc_domain.pm b/FS/FS/svc_domain.pm index d6eaf25..5adbef5 100644 --- a/FS/FS/svc_domain.pm +++ b/FS/FS/svc_domain.pm @@ -419,6 +419,7 @@ sub check { my $error = $self->ut_numbern('svcnum') || $self->ut_numbern('catchall') || $self->ut_numbern('max_accounts') + || $self->ut_anything('trailer') #well || $self->ut_textn('cgp_aliases') #well || $self->ut_enum('acct_def_password_selfchange', [ '', 'Y' ]) || $self->ut_enum('acct_def_password_recover', [ '', 'Y' ]) |