Changeset 8551 for lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

Timestamp:

03/31/08 11:13:05 (8 months ago)

Author:

yusukebe

Message:

addd URI escape

Files:

• lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm (modified) (2 diffs)

lang/perl/WebService-Simple/trunk/lib/WebService/Simple.pm

@@ -6 +6 @@
 use URI::Escape;
 use LWP::UserAgent;
+use URI::Escape;
 use WebService::Simple::Response;
 
@@ -33 +34 @@
     my $url = $base_url =~ /\?$/ ? $base_url : $base_url . "?";
     my @params;
-    map {push(@params, "$_=" . $self->{param}->{$_})}  keys %{$self->{param}};
-    map {push(@params, "$_=" . $request_param->{$_})}  keys %$request_param;
+    map {push(@params, "$_=" . URI::Escape::uri_escape_utf8($self->{param}->{$_}))}
+        keys %{$self->{param}};
+    map {push(@params, "$_=" . URI::Escape::uri_escape_utf8($request_param->{$_}))} 
+        keys %$request_param;
     my $str = join("&",@params);
     $url .= $str;