/*
A sample CGI script written in REXX for the AS/400
*/
PARSE arg argv
argc = WORDS(argv)
SAY "CONTENT-TYPE: TEXT/HTML"
/* The hard way to write a blank line to the browser. */
CALL WWWREXX "WRITEHEADER", ""
/* The following line is a more convenient way of writing a blank */
/* line to end the request headers. However, PTF SF26297 must be */
/* applied on your system before the SAY with no expressions will work. */
/* SAY */
SAY ""
SAY "CGI/1.1 TEST SCRIPT REPORT:"
SAY ""
SAY "CGI/1.1 REXX TEST SCRIPT REPORT:
"
SAY ""
SAY "- ARGC =" argc
SAY "
- ARGV =" argv
SAY "
- SERVER_SOFTWARE =" WWWREXX('GETENV', "SERVER_SOFTWARE")
SAY "
- SERVER_NAME =" WWWREXX('GETENV', "SERVER_NAME")
SAY "
- GATEWAY_INTERFACE =" WWWREXX('GETENV', "GATEWAY_INTERFACE")
SAY "
- SERVER_PROTOCOL =" WWWREXX('GETENV', "SERVER_PROTOCOL")
SAY "
- SERVER_PORT =" WWWREXX('GETENV', "SERVER_PORT")
SAY "
- REQUEST_METHOD =" WWWREXX('GETENV', "REQUEST_METHOD")
SAY "
- PATH_INFO =" WWWREXX('GETENV', "PATH_INFO")
SAY "
- PATH_TRANSLATED =" WWWREXX('GETENV', "PATH_TRANSLATED")
SAY "
- SCRIPT_NAME =" WWWREXX('GETENV', "SCRIPT_NAME")
SAY "
- QUERY_STRING =" WWWREXX('GETENV', "QUERY_STRING")
SAY "
- REMOTE_HOST =" WWWREXX('GETENV', "REMOTE_HOST")
SAY "
- REMOTE_ADDR =" WWWREXX('GETENV', "REMOTE_ADDR")
SAY "
- REMOTE_USER =" WWWREXX('GETENV', "REMOTE_USER")
SAY "
- AUTH_TYPE =" WWWREXX('GETENV', "AUTH_TYPE")
SAY "
- CONTENT_TYPE =" WWWREXX('GETENV', "CONTENT_TYPE")
SAY "
- CONTENT_LENGTH =" WWWREXX('GETENV', "CONTENT_LENGTH")
SAY "
- HTTP_USER_AGENT =" WWWREXX('GETENV', "HTTP_USER_AGENT")
SAY "
- HTTP_ACCEPT =" WWWREXX('GETENV', "HTTP_ACCEPT")
if WWWREXX('GETENV', "REQUEST_METHOD") = "POST" then do
Buffer = WWWREXX('READ', 1000)
SAY "
- REQUEST BODY:
" Buffer "
"
end
SAY "
"
SAY ""