projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1956c88
)
add port option, RT#7051
author
ivan
<ivan>
Wed, 27 Jan 2010 05:21:21 +0000
(
05:21
+0000)
committer
ivan
<ivan>
Wed, 27 Jan 2010 05:21:21 +0000
(
05:21
+0000)
FS/FS/part_export/thirdlane.pm
patch
|
blob
|
history
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', },
#'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',
'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'
'Export tenants, DIDs and admins to Thirdlane PBX manager',
'options' => \%options,
'notes' => <<'END'
-Exports tenants
and DID
s to Thirdlane PBX manager using the XML-RPC API.
+Exports tenants
, DIDs and admin
s to Thirdlane PBX manager using the XML-RPC API.
END
);
END
);
@@
-251,9
+252,11
@@
sub _export_delete {
sub _thirdlane_command {
my($self, @param) = @_;
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');
warn "$me connecting to $url\n"
if $self->option('debug');