#'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',
'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
);
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');