Changeset 8551

Timestamp:

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

Author:

yusukebe

Message:

addd URI escape

Location:

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

Files:

• Simple.pm (modified) (2 diffs)
• Simple/Response.pm (modified) (1 diff)

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;

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

@@ -24 +24 @@
     Webservice::Simple::Response - Override HTTP::Request and add a xml_parse method
 
-
 =head1 VERSION
 
 This document describes Webservice::Simple::Response version 0.0.1
+
+=head1 METHODS
+
+=over 4
+
+=item parse_xml(I<%args>)
+
+Parse a xml content with XML::Simple and return the Perl object.
+
+=back
 
 =head1 AUTHOR