projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fefc441
)
URI escape pw, RT#7051
author
ivan
<ivan>
Wed, 27 Jan 2010 05:27:04 +0000
(
05:27
+0000)
committer
ivan
<ivan>
Wed, 27 Jan 2010 05:27:04 +0000
(
05:27
+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
1ea5bb8
..
f2846fc
100644
(file)
--- a/
FS/FS/part_export/thirdlane.pm
+++ b/
FS/FS/part_export/thirdlane.pm
@@
-4,6
+4,7
@@
use base qw( FS::part_export );
use vars qw(%info $me);
use Tie::IxHash;
use vars qw(%info $me);
use Tie::IxHash;
+use URI::Escape;
use Frontier::Client;
$me = '['.__PACKAGE__.']';
use Frontier::Client;
$me = '['.__PACKAGE__.']';
@@
-252,9
+253,9
@@
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;
+ my $url =
'http://'. uri_escape($self->option('username')). ':'.
+
uri_escape($self->option('password')
). '@'.
+
$self->machine;
$url.= ':'. $self->option('port') if $self->option('port');
$url .= '/xmlrpc.cgi';
$url.= ':'. $self->option('port') if $self->option('port');
$url .= '/xmlrpc.cgi';