From: ivan <ivan>
Date: Wed, 27 Jan 2010 05:27:04 +0000 (+0000)
Subject: URI escape pw, RT#7051
X-Git-Tag: root_of_svc_elec_features~503
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=5632dffc420f19b86504044f21b53babe6447135

URI escape pw, RT#7051
---

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';