diff options
| -rw-r--r-- | FS/FS/part_export/thirdlane.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/FS/FS/part_export/thirdlane.pm b/FS/FS/part_export/thirdlane.pm index e7a2901af..1ea5bb868 100644 --- 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'); |