REM
REM Code by John Spikowski
REM

PRINT "Content-type: text/html"
PRINT ""
PRINT "<HTML>"
PRINT "<HEAD>"
PRINT "<TITLE>Echo CGI</TITLE>"
PRINT "</HEAD>"
PRINT "<BODY>"
PRINT "<H1>View CGI Parameters</H1>"
PRINT "This page shows the CGI parameters by submitting to itself."
PRINT "<PRE>"
PRINT ""
PRINT "CGI system variables"
PRINT "--------------------"
PRINT ""
PRINT "ServerSoftware  = ", GETENVIRON$("SERVER_SOFTWARE") FORMAT "%s%s\n"
PRINT "ServerName      = ", GETENVIRON$("SERVER_NAME") FORMAT "%s%s\n"
PRINT "GatewayInterface= ", GETENVIRON$("GATEWAY_INTERFACE") FORMAT "%s%s\n"
PRINT "ServerProtocol  = ", GETENVIRON$("SERVER_PROTOCOL") FORMAT "%s%s\n"
PRINT "ServerPort      = ", GETENVIRON$("SERVER_PORT") FORMAT "%s%s\n"
PRINT "RequestMethod   = ", GETENVIRON$("REQUEST_METHOD") FORMAT "%s%s\n"
PRINT "PathInfo        = ", GETENVIRON$("PATH_INFO") FORMAT "%s%s\n"
PRINT "PathTranslated  = ", GETENVIRON$("PATH_TRANSLATED") FORMAT "%s%s\n"
PRINT "ScriptName      = ", GETENVIRON$("SCRIPT_NAME") FORMAT "%s%s\n"
PRINT "GET QueryString = ", GETENVIRON$("QUERY_STRING") FORMAT "%s%s\n"
INPUT POST$
PRINT "POST Form Data  = ", POST$ FORMAT "%s%s\n"
PRINT "RemoteHost      = ", GETENVIRON$("REMOTE_HOST") FORMAT "%s%s\n"
PRINT "RemoteAddress   = ", GETENVIRON$("REMOTE_ADDR") FORMAT "%s%s\n"
PRINT "AuthType        = ", GETENVIRON$("AUTH_TYPE") FORMAT "%s%s\n"
PRINT "RemoteUser      = ", GETENVIRON$("REMOTE_USER") FORMAT "%s%s\n"
PRINT "RemoteIdent     = ", GETENVIRON$("REMOTE_IDENT") FORMAT "%s%s\n"
PRINT "ContentType     = ", GETENVIRON$("CONTENT_TYPE") FORMAT "%s%s\n"
PRINT "ContentLength   = ", GETENVIRON$("CONTENT_LENGTH") FORMAT "%s%s\n"
PRINT "UserAgent       = ", GETENVIRON$("HTTP_USER_AGENT") FORMAT "%s%s\n"
PRINT "Cookie          = ", GETENVIRON$("HTTP_COOKIE") FORMAT "%s%s\n"
PRINT "Referer         = ", GETENVIRON$("HTTP_REFERER") FORMAT "%s%s\n"
PRINT "Password        = ", GETENVIRON$("HTTP_PASSWORD") FORMAT "%s%s\n"
PRINT "</PRE>"
PRINT "<TABLE><TR><TD BORDER=0 BGCOLOR='EEEEEE'><PRE>"
PRINT "A simple form to POST parameters:<BR>"
PRINT "<FORM METHOD='POST' ACTION='/cgi-bin/cgi'>"
PRINT "<INPUT TYPE='TEXT' VALUE='DEFAULT TEXT' NAME='TEXT-FIELD'>"
PRINT "<INPUT TYPE='SUBMIT' NAME='SUBMIT-BUTTON' VALUE=' POST '>"
PRINT "</FORM></PRE></TD>"
PRINT "<TD BORDER=1 width='20'>&nbsp;</TD>"
PRINT "<TD BORDER=0 BGCOLOR='EEEEEE'><PRE>"
PRINT "A simple form to GET parameters:<BR>"
PRINT "<FORM METHOD='GET' ACTION='/cgi-bin/cgi'>"
PRINT "<INPUT TYPE='TEXT' VALUE='DEFAULT TEXT' NAME='TEXT-FIELD'>"
PRINT "<INPUT TYPE='SUBMIT' NAME='SUBMIT-BUTTON' VALUE=' GET '>"
PRINT "</FORM></PRE></TD></TR></TABLE>"
PRINT "</BODY></HTML>"