1 #!/usr/local/bin/perl -w
8 require "net/config.pl";
9 require LWP
::Protocol
::http
;
10 require LWP
::UserAgent
;
12 $netloc = $net::httpserver
;
13 $script = $net::cgidir
. "/test";
15 my $ua = new LWP
::UserAgent
; # create a useragent to test
17 $url = new URI
::URL
("http://$netloc$script");
19 my $form = 'searchtype=Substring';
21 my $request = new HTTP
::Request
('POST', $url, undef, $form);
22 $request->header('Content-Type', 'application/x-www-form-urlencoded');
24 my $response = $ua->request($request, undef, undef);
26 my $str = $response->as_string;
30 if ($response->is_success and $str =~ /^REQUEST_METHOD=POST$/m) {
37 if ($str =~ /^CONTENT_LENGTH=(\d+)$/m && $1 == length($form)) {
45 $dummy = $net::httpserver
;
46 $dummy = $net::cgidir
;