# # $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(" CGI awk example") print("") print("") print("

CGI awk example

") print("") print("
") print(" out=" out) print("
") for (i = 0; i < length(cgi_param); i++) { param = cgi_param[i + 1] printf(" %s=%s\n", html_encode(param), html_encode(ENVIRON[param])) print("
") } print("
") print("") print("") } BEGIN { cgi_init() main() exit }