projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
5632dff
)
ssl option
author
ivan
<ivan>
Fri, 29 Jan 2010 19:52:42 +0000
(19:52 +0000)
committer
ivan
<ivan>
Fri, 29 Jan 2010 19:52:42 +0000
(19:52 +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
f2846fc
..
0537e78
100644
(file)
--- a/
FS/FS/part_export/thirdlane.pm
+++ b/
FS/FS/part_export/thirdlane.pm
@@
-13,7
+13,10
@@
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', },
+ 'ssl' => { label => 'Enable HTTPS (SSL) connection',
+ type => 'checkbox',
+ },
+ 'port' => { label => 'Port number if not 80 or 443', },
'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',
@@
-253,10
+256,11
@@
sub _export_delete {
sub _thirdlane_command {
my($self, @param) = @_;
sub _thirdlane_command {
my($self, @param) = @_;
- my $url = 'http://'. uri_escape($self->option('username')). ':'.
- uri_escape($self->option('password')). '@'.
- $self->machine;
- $url.= ':'. $self->option('port') if $self->option('port');
+ my $url = $self->option('ssl') ? 'https://' : 'http://';
+ $url .= uri_escape($self->option('username')). ':'.
+ uri_escape($self->option('password')). '@'.
+ $self->machine;
+ $url .= ':'. $self->option('port') if $self->option('port');
$url .= '/xmlrpc.cgi';
warn "$me connecting to $url\n"
$url .= '/xmlrpc.cgi';
warn "$me connecting to $url\n"