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} ) {
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
