home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 May / PCO_5_97.ISO / FilesBBS / OS2 / OS2WWW42.ARJ / OS2WWW42 / OS2WWW42.ZIP / SYS402.R4 / CGI-BIN / SHOWCGI.CMD < prev    next >
Encoding:
Text File  |  1996-03-01  |  1.6 KB  |  46 lines
  1. /***************************************************************************
  2.  *  Demonstrates the CGI interface using a REXX program.
  3.  **************************************************************************/
  4.  
  5. env  = "OS2ENVIRONMENT"
  6.  
  7. Say "Content-type: text/html"
  8. Say
  9.  
  10. Say "<h1>CGI/1.1 Demonstration:</h1>"
  11.  
  12. Say "<ul>"
  13.  
  14. /* Echo the Standard Set of CGI Variables */
  15.  
  16. Say "<li>SERVER_SOFTWARE = "   value("SERVER_SOFTWARE",,env)
  17. Say "<li>SERVER_NAME = "       value("SERVER_NAME",,env)
  18. Say "<li>GATEWAY_INTERFACE = " value("GATEWAY_INTERFACE",,env) 
  19. Say "<li>SERVER_PROTOCOL = "   value("SERVER_PROTOCOL",,env) 
  20. Say "<li>SERVER_PORT = "       value("SERVER_PORT",,env)
  21. Say "<li>REQUEST_METHOD = "    value("REQUEST_METHOD",,env) 
  22. Say "<li>HTTP_ACCEPT = "       value("HTTP_ACCEPT",,env) 
  23. Say "<li>PATH_INFO = "         value("PATH_INFO",,env) 
  24. Say "<li>PATH_TRANSLATED = "   value("PATH_TRANSLATED",,env) 
  25. Say "<li>SCRIPT_NAME = "       value("SCRIPT_NAME",,env) 
  26. Say "<li>QUERY_STRING = "      value("QUERY_STRING",,env) 
  27. Say "<li>REMOTE_HOST = "       value("REMOTE_HOST",,env) 
  28. Say "<li>REMOTE_ADDR = "       value("REMOTE_ADDR",,env) 
  29. Say "<li>REMOTE_USER = "       value("REMOTE_USER",,env) 
  30. Say "<li>AUTH_TYPE = "         value("AUTH_TYPE",,env) 
  31. Say "<li>CONTENT_TYPE = "      value("CONTENT_TYPE",,env)
  32. len = value("CONTENT_LENGTH",,env)
  33. Say "<li>CONTENT_LENGTH = "    || len   
  34.  
  35. /* If POST method was used to pass parameters, get them and echo them */
  36.  
  37. method = value("REQUEST_METHOD",,env)
  38. If (method == "POST") & (len \= "") Then Do
  39.   post_string = LineIn() 
  40.   Say
  41.   Say "CGI Script Parameters = " || post_string
  42. End
  43.  
  44. Say "</ul>"
  45.  
  46.