From: Luca Padovani <luca.padovani@unito.it>
Date: Wed, 21 Feb 2001 18:24:10 +0000 (+0000)
Subject: now do unescaping of incoming URI
X-Git-Tag: v0_1_2~106
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=d93b18135c3b086c2cfdf13814dc41a77ceb9954;p=helm.git

now do unescaping of incoming URI
---

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