# # $Id: cgi_example.awk 11 2009-08-02 04:07:19Z stephenm $ # function main() { # mark these fields as allowable in the query string defaults["out"] = "whatever" cgi_parse(ENVIRON["QUERY_STRING"], defaults, cgi_params) out = html_encode(cgi_params["out"]) i = 1 cgi_param[i++] = "HTTP_USER_AGENT" cgi_param[i++] = "REMOTE_ADDR" cgi_param[i++] = "REMOTE_PORT" cgi_param[i++] = "REQUEST_METHOD" cgi_param[i++] = "REQUEST_URI" cgi_param[i++] = "QUERY_STRING" cgi_header("text/html; charset=iso-8859-1") print("") print("") print("
") print("