SVN: toys/rsget.pl/RSGet/HTTPServer.pm

[sparky]

Author: sparky
Date: Sat Oct 10 03:44:34 2009
New Revision: 10750

Modified:
   toys/rsget.pl/RSGet/HTTPServer.pm
Log:
- unescape GET query arguments


Modified: toys/rsget.pl/RSGet/HTTPServer.pm
==============================================================================
--- toys/rsget.pl/RSGet/HTTPServer.pm	(original)
+++ toys/rsget.pl/RSGet/HTTPServer.pm	Sat Oct 10 03:44:34 2009
@@ -5,6 +5,7 @@
 use IO::Socket;
 use RSGet::Tools;
 use RSGet::HTTPRequest;
+use URI::Escape;
 set_rev qq$Id$;
 
 sub new
@@ -85,7 +86,7 @@
 		}
 	} elsif ( $file =~ s/\?(.*)// ) {
 		my $get = $1;
-		%post = map /^(.*?)=(.*)/, split /;+/, $get;
+		%post = map { /^(.*?)=(.*)/; (uri_unescape( $1 ), uri_unescape( $2 )) } split /;+/, $get;
 	}
 	my $print;
 	if ( my $func = $RSGet::HTTPRequest::handlers{$file} ) {