Parent Directory
|
Revision Log
*** empty log message ***
1 | wakaba | 1.1 | #!/usr/bin/perl |
2 | print <<EOH; | ||
3 | Content-Type: text/plain | ||
4 | X-CGI-Header: body | ||
5 | X-Request: $ENV{REQUEST_METHOD} | ||
6 | |||
7 | EOH | ||
8 | for (sort qw/SERVER_PROTOCOL SERVER_NAME SERVER_PORT SERVER_SOFTWARE GATEWAY_INTERFACE REQUEST_METHOD PATH_INFO QUERY_STRING REMOTE_ADDR REMOTE_HOST REMOTE_USER REMOTE_IDENT CONTENT_TYPE CONTENT_LENGTH HTTP_CONTENT_TYPE AUTH_TYPE HTTP_CONTENT_LENGTH REQUEST_URI SCRIPT_NAME/, grep /^HTTP_/, keys %ENV) { | ||
9 | print "$_: $ENV{$_}\n"; | ||
10 | } |
admin@suikawiki.org | ViewVC Help |
Powered by ViewVC 1.1.24 |