home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 8 / CDACTUAL8.iso / share / os2 / varios / apache / test-cgi.cmd < prev    next >
Encoding:
Text File  |  1995-06-06  |  2.1 KB  |  50 lines
  1. /* An example CGI script written in REXX */
  2.  
  3. Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. Call SysLoadFuncs
  5.  
  6. Parse Arg Argv
  7.  
  8. Argc = Words(Argv)
  9.  
  10. Say "Content-type: text/html"
  11. Say
  12.  
  13. Say "<H1>CGI/1.0 test script report:</H1>"  
  14.  
  15. Say "<UL>"
  16.  
  17. Say "<LI>argc = " Argc
  18. Say "<LI>argv = " Argv 
  19. Say "<LI>SERVER_SOFTWARE = " value("SERVER_SOFTWARE",,"OS2ENVIRONMENT") 
  20. Say "<LI>SERVER_NAME = " value("SERVER_NAME",,"OS2ENVIRONMENT") 
  21. Say "<LI>GATEWAY_INTERFACE = " value("GATEWAY_INTERFACE",,"OS2ENVIRONMENT") 
  22. Say "<LI>SERVER_PROTOCOL = " value("SERVER_PROTOCOL",,"OS2ENVIRONMENT") 
  23. Say "<LI>SERVER_PORT = " value("SERVER_PORT",,"OS2ENVIRONMENT")
  24. Say "<LI>REQUEST_METHOD = " value("REQUEST_METHOD",,"OS2ENVIRONMENT") 
  25. Say "<LI>HTTP_ACCEPT = " value("HTTP_ACCEPT",,"OS2ENVIRONMENT") 
  26. Say "<LI>PATH_INFO = " value("PATH_INFO",,"OS2ENVIRONMENT") 
  27. Say "<LI>PATH_TRANSLATED = " value("PATH_TRANSLATED",,"OS2ENVIRONMENT") 
  28. Say "<LI>SCRIPT_NAME = " value("SCRIPT_NAME",,"OS2ENVIRONMENT")
  29. Say "<LI>QUERY_STRING = " value("QUERY_STRING",,"OS2ENVIRONMENT")
  30. Say "<LI>REMOTE_HOST = " value("REMOTE_HOST",,"OS2ENVIRONMENT")
  31. Say "<LI>REMOTE_ADDR = " value("REMOTE_ADDR",,"OS2ENVIRONMENT")
  32. Say "<LI>REMOTE_USER = " value("REMOTE_USER",,"OS2ENVIRONMENT")
  33. Say "<LI>AUTH_TYPE = " value("AUTH_TYPE",,"OS2ENVIRONMENT")
  34. Say "<LI>CONTENT_TYPE = " value("CONTENT_TYPE",,"OS2ENVIRONMENT")
  35. Say "<LI>CONTENT_LENGTH = " value("CONTENT_LENGTH",,"OS2ENVIRONMENT")
  36. If (value("REQUEST_METHOD",,"OS2ENVIRONMENT") == "POST") & (value("CONTENT_LENGTH",,"OS2ENVIRONMENT") \= "") Then Do
  37.   post_string = LineIn() 
  38.   Say "<LI>Standard Input = " || post_string
  39. End
  40. Say "</UL>"
  41.  
  42. Say "Apache Extensions"  
  43. Say "<UL>"
  44. Say "<LI>SERVER_ADMIN = " value("SERVER_ADMIN",,"OS2ENVIRONMENT") 
  45. Say "<LI>DOCUMENT_ROOT = " value("DOCUMENT_ROOT",,"OS2ENVIRONMENT") 
  46. Say "<LI>QUERY_STRING_UNESCAPED = " value("QUERY_STRING_UNESCAPED",,"OS2ENVIRONMENT")
  47. Say "<LI>REDIRECT_QUERY_STRING = " value("REDIRECT_QUERY_STRING",,"OS2ENVIRONMENT")
  48. Say "<LI>REDIRECT_URL = " value("REDIRECT_URL",,"OS2ENVIRONMENT")
  49. Say "</UL>"
  50.