my $http_query = $r->url->equery;
my $cgi = new CGI("$http_query");
my $url = $cgi->param('url');
- $url = uri_unescape($url).'¶m.PID='.$$;
+ $url = $url.'¶m.PID='.$$;
print "URL: $url\n";
my $ua = LWP::UserAgent->new;
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)
}