...

[helm.git] / helm / graphs / tools / draw_graph.cgi

diff --git a/helm/graphs/tools/draw_graph.cgi b/helm/graphs/tools/draw_graph.cgi
index 9f24c7a071e7b95c416dd5bba5d7d8b3891b5fe0..d5d5b4a82ac0d25efde06a224e46d518b02ca25f 100755 (executable)
--- a/helm/graphs/tools/draw_graph.cgi
+++ b/helm/graphs/tools/draw_graph.cgi
@@ -22,7 +22,7 @@ while (my $c = $d->accept) {
             my $http_query = $r->url->equery;
             my $cgi = new CGI("$http_query");
             my $url = $cgi->param('url');
-           $url = uri_unescape($url).'&param.PID='.$$;
+           $url = $url.'&param.PID='.$$;
            print "URL: $url\n";
 
             my $ua = LWP::UserAgent->new;
@@ -41,6 +41,11 @@ while (my $c = $d->accept) {
            print "Returning GIF: $pid\n";
             $c->send_file_response("prova.$pid.gif");
            system("make PID=$pid clean ; rm -f prova0.$pid.dot");
+        } elsif ($r->method eq 'GET' && $r->url->path eq "/help"){
+           print "Help requested!\n";
+          my $response = new HTTP::Response;
+           $response->content("Graph Drawer Version: ???");
+           $c->send_response($response);
         } else {
             $c->send_error(RC_FORBIDDEN)
         }