From abda8f1ecbf9161a3828e778aec5cb3762105475 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sun, 4 Mar 2012 18:35:37 -0800
Subject: [PATCH] add "Omit TLD from domains" option, RT#16751

---
 FS/FS/part_export/netsapiens.pm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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 {
-- 
2.11.0