envtest.awk
Generated on Tue Dec 05 17:39:05 Eastern Standard Time 2006 from envtest.awk
# ENVTEST.AWK
# To test environment variables set during a CGI request
BEGIN {
QUOTE = "\""
print("Content-type: text/html\n")
print("<!DOCTYPE html");
print(" PUBLIC " QUOTE "-//W3C//DTD XHTML 1.0 Strict//EN" QUOTE );
print(" " QUOTE "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd" QUOTE ">") ;
print("<html>" );
print(" <head>" );
print(" <meta http-equiv=" QUOTE "Content-Type" QUOTE " content=" QUOTE "text/html; charset=ISO-8859-1" QUOTE " />") ;
print(" <meta name=" QUOTE "generator" QUOTE " content=" QUOTE "DIR2HTML.AWK by Bob Jonkman bjonkman@sobac.com" QUOTE " />" );
print(" <link rel=" QUOTE "stylesheet" QUOTE " href=" QUOTE "/default.css" QUOTE " type=" QUOTE "text/css" QUOTE " media=" QUOTE "screen, print" QUOTE " />" ) ;
print(" <link rel=" QUOTE "stylesheet" QUOTE " href=" QUOTE "/print.css" QUOTE " type=" QUOTE "text/css" QUOTE " media=" QUOTE "print" QUOTE " />" ) ;
print("<title>Environment Test</title>")
print("</head><body>")
print("<h1>GAWK CGI Environment Test</h1>")
print("<ul class=" QUOTE "menu" QUOTE ">")
print(" <li><a href=" QUOTE "#environment" QUOTE ">Environment</a></li>")
print(" <li><a href=" QUOTE "#commandline" QUOTE ">Command Line</a></li>")
print(" <li><a href=" QUOTE "#standardinput" QUOTE ">Standard Input</a></li>")
print(" <li><a href=" QUOTE "#querystring" QUOTE ">Query String</a></li>")
print("</ul>")
print("<h2 id=" QUOTE "environment" QUOTE ">The environment is:</h2>")
print("<dl>")
numENVIRON = asorti(ENVIRON,sortedENVIRON)
for(i=1; i<= numENVIRON; i++)
{
print("<dt>" i " = " txt2html(sortedENVIRON[i]) "</dt>")
print("<dd>" txt2html(ENVIRON[sortedENVIRON[i]]) "</dd>")
}
print("</dl>")
print("<h2 id=" QUOTE "commandline" QUOTE ">The command line is:</h2>")
print("<dl>")
for(i=0;i < ARGC; i++)
{
print("<dt>ARGV[" i "]</dt>")
print("<dd>" txt2html(ARGV[i]) "</dd>")
}
print("</dl>")
print("<h2 id=" QUOTE "standardinput" QUOTE ">Standard Input is:</h2>")
print("<dl>")
}
{ print(" <dt>FNR= " FNR "</dt>")
print(" <dd>" txt2html($0) "<br />")
numpdparam = parsecgi($0,pdparam)
print(" There are " numpdparam " Post Data parameters<br />")
print(" <dl>")
asorti(pdparam,sortedpdparam)
for (i=1; i <= numpdparam; i++)
{
print(" <dt>" i " = " txt2html(sortedpdparam[i]) "</dt>")
print(" <dd>" txt2html(pdparam[sortedpdparam[i]]) "</dd>")
}
print(" </dl>")
print(" </dd>")
}
END { print("</dl>")
print("<h2 id=" QUOTE "querystring" QUOTE ">QUERY_STRING</h2>")
print(txt2html(ENVIRON["QUERY_STRING"]))
print("<h2>Parsed QUERY_STRING</h2>")
numqsparam = parsecgi(ENVIRON["QUERY_STRING"],qsparam)
print("There are " numqsparam " Query String parameters")
print("<dl>")
for (i in qsparam)
{
print("<dt>" txt2html(i) "</dt>")
print("<dd>" txt2html(qsparam[i]) "</dd>")
}
print("</dl>")
print("<h1>Goodbye!</h1>")
print("</body></html>")
}
# EOF: ENVTEST.AWK
1 files processed.