#!/usr/local/bin/perl

require "/u/kscott/www/doc/cgi/libcgi.pl" ;

&html_header("Simple cgi") ;

print "<p>\n" ;
print "CGI/1.0 test script report:\n" ;

print "<p>\n" ;
printf("argc is ($#ARGV), argv is (@ARGV)\n") ;

print "<p>\n" ;
printf("SERVER_SOFTWARE = %s<br>\n", $ENV{SERVER_SOFTWARE}) ;
printf("SERVER_NAME = %s<br>\n", $ENV{SERVER_NAME}) ;
printf("SERVER_ADMIN = %s<br>\n", $ENV{SERVER_ADMIN}) ;
printf("GATEWAY_INTERFACE = %s<br>\n", $ENV{GATEWAY_INTERFACE}) ;
printf("SERVER_PROTOCOL = %s<br>\n", $ENV{SERVER_PROTOCOL}) ;
printf("SERVER_PORT = %s<br>\n", $ENV{SERVER_PORT}) ;
printf("REQUEST_METHOD = %s<br>\n", $ENV{REQUEST_METHOD}) ;
printf("HTTP_ACCEPT = %s<br>\n", $ENV{$HTTP_ACCEPT}) ;
printf("PATH = %s<br>\n", $ENV{PATH}) ;
printf("PATH_INFO = %s<br>\n", $ENV{PATH_INFO}) ;
printf("PATH_TRANSLATED = %s<br>\n", $ENV{PATH_TRANSLATED}) ;
printf("DOCUMENT_ROOT = %s<br>\n", $ENV{DOCUMENT_ROOT}) ;
printf("SCRIPT_NAME = %s<br>\n", $ENV{SCRIPT_NAME}) ;
printf("SCRIPT_FILENAME = %s<br>\n", $ENV{SCRIPT_NAME}) ;
printf("QUERY_STRING = %s<br>\n", $ENV{QUERY_STRING}) ;
printf("HTTP_USER_AGENT = %s<br>\n", $ENV{HTTP_USER_AGENT}) ;
printf("REMOTE_HOST = %s<br>\n", $ENV{REMOTE_HOST}) ;
printf("REMOTE_ADDR = %s<br>\n", $ENV{REMOTE_ADDR}) ;
printf("REMOTE_USER = %s<br>\n", $ENV{REMOTE_USER}) ;
printf("AUTH_TYPE = %s<br>\n", $ENV{AUTH_TYPE}) ;
printf("CONTENT_TYPE = %s<br>\n", $ENV{CONTENT_TYPE}) ;
printf("CONTENT_LENGTH = %s<br>\n", $ENV{CONTENT_LENGTH}) ;


&html_trailer() ;