diff options
| -rw-r--r-- | FS/FS/part_export/thirdlane.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/part_export/thirdlane.pm b/FS/FS/part_export/thirdlane.pm index 1ea5bb868..f2846fc7f 100644 --- 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 URI::Escape; use Frontier::Client; $me = '['.__PACKAGE__.']'; @@ -252,9 +253,9 @@ sub _export_delete { 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'; |