#!perl | |
use strict; | |
use Apache::test; | |
my $r = Apache->request; | |
$r->send_http_header('text/plain'); | |
eval { | |
require Apache::Request; | |
}; | |
unless (have_module "Apache::Request" and Apache::Request->can('upload')) { | |
print "1..0\n"; | |
print $@ if $@; | |
print "$INC{'Apache/Request.pm'}\n"; | |
return; | |
} | |
my $apr = Apache::Request->new($r); | |
printf "method => %s\n", $apr->method; | |
printf "hostname => %s\n", $apr->hostname; | |
#for ($apr->param) { | |
# my(@v) = $apr->param($_); | |
# print "param $_ => ", join ",", @v; | |
# print $/; | |
#} |