[freeside-commits] freeside/FS/FS/part_export thirdlane.pm, 1.1.2.5, 1.1.2.6

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv8182

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	thirdlane.pm 
Log Message:
add port option, RT#7051

Index: thirdlane.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/thirdlane.pm,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -d -r1.1.2.5 -r1.1.2.6
--- thirdlane.pm	26 Jan 2010 10:34:47 -0000	1.1.2.5
+++ thirdlane.pm	27 Jan 2010 05:21:22 -0000	1.1.2.6
@@ -12,6 +12,7 @@
   #'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 @@
     '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 _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');