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

[Ivan,,,]

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

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	thirdlane.pm 
Log Message:
URI escape pw, RT#7051

Index: thirdlane.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/thirdlane.pm,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -d -r1.1.2.6 -r1.1.2.7
--- thirdlane.pm	27 Jan 2010 05:21:22 -0000	1.1.2.6
+++ thirdlane.pm	27 Jan 2010 05:27:05 -0000	1.1.2.7
@@ -4,6 +4,7 @@
 
 use vars qw(%info $me);
 use Tie::IxHash;
+use URI::Escape;
 use Frontier::Client;
 
 $me = '['.__PACKAGE__.']';
@@ -252,9 +253,9 @@
 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';