From 5632dffc420f19b86504044f21b53babe6447135 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 27 Jan 2010 05:27:04 +0000
Subject: [PATCH] URI escape pw, RT#7051

---
 FS/FS/part_export/thirdlane.pm | 7 ++++---
 1 file 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';
 
-- 
2.11.0