use HTTP::Response;
use CGI;
-my $d = new HTTP::Daemon LocalPort => 8084;
+$urisetqueueport = $ENV{'URI_SET_QUEUE_PORT'} || $urisetqueueport;
+
+my $d = new HTTP::Daemon LocalPort => $urisetqueueport
+ or die "Error: port $urisetqueueport not available.";
print "Please contact me at: <URL:", $d->url, ">\n";
$SIG{CHLD} = "IGNORE"; # do not accumulate defunct processes
$response->content("<?xml version=\"1.0\"?>\n<done/>\n");
$response->content_type('text/xml');
$c->send_response($response);
+ } elsif ($r->method eq 'GET' && $r->url->path eq "/help"){
+ print "Help requested!\n";
+ my $response = new HTTP::Response;
+ $response->content("URI-Set (Queue) Version: ???");
+ $c->send_response($response);
} else {
$c->send_error(RC_FORBIDDEN)
}