diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2012-03-04 18:35:38 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2012-03-04 18:35:38 -0800 |
| commit | 8c45cfb8fd6ad6216ce18f0ab69c9e4f48ee0a8c (patch) | |
| tree | d1c4fd05d78c0d4e543e4367167c274d9bfabf14 | |
| parent | 71d596e226c4bc1b6a2522edadb99c63b448e031 (diff) | |
add "Omit TLD from domains" option, RT#16751
| -rw-r--r-- | FS/FS/part_export/netsapiens.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/FS/FS/part_export/netsapiens.pm b/FS/FS/part_export/netsapiens.pm index 286929069..775e374ca 100644 --- a/FS/FS/part_export/netsapiens.pm +++ b/FS/FS/part_export/netsapiens.pm @@ -41,6 +41,7 @@ tie my %options, 'Tie::IxHash', 'device_password' => { label=>'NetSapiens tac2 Device API password' }, 'device_url' => { label=>'NetSapiens tac2 Device URL' }, 'domain' => { label=>'NetSapiens Domain' }, + 'domain_no_tld' => { label=>'Omit TLD from domains', type=>'checkbox' }, 'debug' => { label=>'Enable debugging', type=>'checkbox' }, %subscriber_fields, %registrar_fields, @@ -105,7 +106,12 @@ sub _ns_command { sub ns_domain { my($self, $svc_phone) = (shift, shift); - $svc_phone->domain || $self->option('domain'); + my $domain = $svc_phone->domain || $self->option('domain'); + + $domain =~ s/\.\w{2,4}$// + if $self->option('domain_no_tld'); + + $domain; } sub ns_subscriber { |