add port option, RT#7051

diff --git a/FS/FS/part_export/thirdlane.pm b/FS/FS/part_export/thirdlane.pm
index e7a2901..1ea5bb8 100644 (file)
--- a/FS/FS/part_export/thirdlane.pm
+++ b/FS/FS/part_export/thirdlane.pm
@@ -12,6 +12,7 @@ tie my %options, 'Tie::IxHash',
   #'server'           => { label => 'Thirdlane server name or IP address', },
   'username'         => { label => 'Thirdlane username', },
   'password'         => { label => 'Thirdlane password', },
+  'port'             => { label => 'Port number if not 80', },
   'prototype_tenant' => { label => 'Prototype tenant name', },
   'debug'            => { label => 'Checkbox label', type => 'checkbox' },
 #  'select_option'   => { label   => 'Select option description',
@@ -30,7 +31,7 @@ tie my %options, 'Tie::IxHash',
     'Export tenants, DIDs and admins to Thirdlane PBX manager',
   'options'  => \%options,
   'notes'    => <<'END'
-Exports tenants and DIDs to Thirdlane PBX manager using the XML-RPC API.
+Exports tenants, DIDs and admins to Thirdlane PBX manager using the XML-RPC API.
 END
 );
 
@@ -251,9 +252,11 @@ sub _export_delete {
 sub _thirdlane_command {
   my($self, @param) = @_;
 
-  my $url = 'http://'.
-              $self->option('username'). ':'. $self->option('password'). '@'.
-              $self->machine. '/xmlrpc.cgi';
+  my $url =
+    'http://'. $self->option('username'). ':'. $self->option('password'). '@'.
+    $self->machine;
+  $url.= ':'. $self->option('port') if $self->option('port');
+  $url .= '/xmlrpc.cgi';
 
   warn "$me connecting to $url\n"
     if $self->option('debug');