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'> </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>"