1 #!/usr/local/bin/perl -w
8 require "net/config.pl";
9 require LWP
::Protocol
::http
;
10 require LWP
::UserAgent
;
12 my $ua = new LWP
::UserAgent
; # create a useragent to test
14 $netloc = $net::httpserver
;
15 $script = $net::cgidir
. "/test";
17 $url = new URI
::URL
("http://$netloc$script?query");
19 my $request = new HTTP
::Request
('GET', $url);
23 my $response = $ua->request($request, undef, undef);
25 my $str = $response->as_string;
29 if ($response->is_success and $str =~ /^REQUEST_METHOD=GET$/m) {
36 if ($str =~ /^QUERY_STRING=query$/m) {
44 $dummy = $net::httpserver
;
45 $dummy = $net::cgidir
;