From d93b18135c3b086c2cfdf13814dc41a77ceb9954 Mon Sep 17 00:00:00 2001 From: Luca Padovani Date: Wed, 21 Feb 2001 18:24:10 +0000 Subject: [PATCH] now do unescaping of incoming URI --- helm/http_getter/http_getter.pl.in | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/helm/http_getter/http_getter.pl.in b/helm/http_getter/http_getter.pl.in index 8f2da8ea0..83c8382a7 100755 --- a/helm/http_getter/http_getter.pl.in +++ b/helm/http_getter/http_getter.pl.in @@ -58,6 +58,7 @@ use HTTP::Request; use LWP::UserAgent; use DB_File; use Compress::Zlib; +use URI::Escape; #CSC: mancano i controlli sulle condizioni di errore di molte funzioni #CSC: ==> non e' robusto @@ -89,12 +90,14 @@ while (my $c = $d->accept) { while (my $r = $c->get_request) { #CSC: mancano i controlli di sicurezza - my $inputuri = $r->url; + my $inputuri = uri_unescape($r->url); $inputuri =~ s/^[^?]*\?uri=(.*)/$1/; print "\nRequest: ".$r->url."\n\n"; my $http_method = $r->method; my $http_path = $r->url->path; - my $http_query = $r->url->query; + my $http_query = uri_unescape($r->url->query); + + print "\nUnescaped query: ".$http_query."\n"; if ($http_method eq 'GET' and $http_path eq "/getciconly") { # finds the uri, url and filename -- 2.39.2