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 8f2da8ea0d1882661015e324dc21167dc95433fe..83c8382a7cad2183953a6b39b4a77badd480bea2 100755 (executable)
--- 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