home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Os2 / varios / OS2WWW / DEBUG.CMD < prev    next >
Encoding:
Text File  |  1995-06-20  |  1.9 KB  |  46 lines
  1. /***************************************************************************
  2.  *  DEBUG.CMD - tests the operation of the CGI interface, using REXX
  3.  **************************************************************************/
  4.  
  5. env  = "OS2ENVIRONMENT"
  6. vtab = ""
  7. lead = "<LI>"
  8.  
  9. Say "Content-type: text/html"
  10. Say
  11.  
  12. Say "<H1>CGI/1.0 Debugging Output:</H1>" || vtab
  13.  
  14. Say "<UL>"
  15.  
  16. Say lead || "SERVER_SOFTWARE = "   value("SERVER_SOFTWARE",,env) || vtab
  17. Say lead || "SERVER_NAME = "       value("SERVER_NAME",,env) || vtab
  18. Say lead || "GATEWAY_INTERFACE = " value("GATEWAY_INTERFACE",,env) || vtab 
  19. Say lead || "SERVER_PROTOCOL = "   value("SERVER_PROTOCOL",,env) || vtab 
  20. Say lead || "SERVER_PORT = "       value("SERVER_PORT",,env) || vtab
  21. Say lead || "REQUEST_METHOD = "    value("REQUEST_METHOD",,env) || vtab 
  22. Say lead || "HTTP_ACCEPT = "       value("HTTP_ACCEPT",,env) || vtab 
  23. Say lead || "PATH_INFO = "         value("PATH_INFO",,env) || vtab 
  24. Say lead || "PATH_TRANSLATED = "   value("PATH_TRANSLATED",,env) || vtab 
  25. Say lead || "SCRIPT_NAME = "       value("SCRIPT_NAME",,env) || vtab 
  26. Say lead || "QUERY_STRING = "      value("QUERY_STRING",,env) || vtab 
  27. Say lead || "REMOTE_HOST = "       value("REMOTE_HOST",,env) || vtab 
  28. Say lead || "REMOTE_ADDR = "       value("REMOTE_ADDR",,env) || vtab 
  29. Say lead || "REMOTE_USER = "       value("REMOTE_USER",,env) || vtab 
  30. Say lead || "AUTH_TYPE = "         value("AUTH_TYPE",,env) || vtab 
  31. Say lead || "CONTENT_TYPE = "      value("CONTENT_TYPE",,env) || vtab
  32. len = value("CONTENT_LENGTH",,env)
  33. Say lead || "CONTENT_LENGTH = "    || len || vtab   
  34.  
  35. method = value("REQUEST_METHOD",,env)
  36. If (method == "POST") & (len \= "") Then Do
  37.   /* uses POST method to pass parameters, so get them and echo them */
  38.   post_string = LineIn() 
  39.   Say vtab 
  40.   Say lead || "Standard Input = " || post_string || vtab
  41. End
  42.  
  43. Say "</UL>"
  44.  
  45.  
  46.