+ } elsif ($r->method eq 'GET' and $r->url->path eq '/is_overflowed') {
+ my $http_query = $r->url->equery;
+ my $cgi = new CGI("$http_query");
+ my $pid = $cgi->param('PID');
+ print "$pid: ";
+ print(@{$uri_queues{$pid}} + 0);
+ print "/";
+ print(keys(%{$uri_sets{$pid}}) + 0);
+ print "*" if defined($overflowed{$pid});
+ my $res = defined($overflowed{$pid}) ? "true" : "false";
+ print " is_overflowed: $res\n";
+ my $response = new HTTP::Response;
+ $response->content("<?xml version=\"1.0\"?>\n<$res/>\n");
+ $response->content_type('text/xml');
+ $c->send_response($response);
+ } elsif ($r->method eq 'GET' and $r->url->path eq '/set_uri_set_size') {
+ my $http_query = $r->url->equery;
+ my $cgi = new CGI("$http_query");
+ my $pid = $cgi->param('PID');
+ my $size = $cgi->param('size');
+ print "$pid: size := $size\n";
+ $size{$pid} = $size;
+ my $response = new HTTP::Response;
+ $response->content("<?xml version=\"1.0\"?>\n<done/>\n");
+ $response->content_type('text/xml');
+ $c->send_response($response);