home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rgiserv.zip / rgi_t4.cmd < prev    next >
OS/2 REXX Batch file  |  1996-05-16  |  2KB  |  49 lines
  1. /* Test the RGIQEnv and RGIQMethod Functions */
  2. Call RGIUtils '-ct text/html','No'
  3. If rgi_retc=0 Then Do i=1 to rgi_hdr.0
  4.    Say rgi_hdr.i
  5.    End
  6. Say '<form action=cgi-bin/rgi_t5.cmd method=post>'
  7. Say '<html><head><title>'       /* Introduce the document */
  8. Say 'RGI Installation Test'     /* as part of the RGI */
  9. Say '</head></title>'           /* Installation Test */
  10. Say '<body>'
  11. Say '<em>This screen is brought to you by RGI_T4.CMD</em>'
  12. Say '<p>This document tests the RGIQEnv and RGIQMethod functions.'
  13. Say '<p>First we issue the call:'
  14. Say '<p><ce>'
  15. Say "<tt>Call RGIQEnv,'No'"
  16. Say '</tt></ce>'
  17. Call RGIQEnv 'No'
  18. Say '<p>which generates the following variables:'
  19. Say '<table border><caption>CGI Environment Variables</caption>'
  20. Say '<th>RGI Variable name</th><th>Value</th>'
  21. Say '<tr><td>RGI.AUTH_TYPE</td><td>'rgi.auth_type'</td>'
  22. Say '<tr><td>RGI.CONTENT_LENGTH</td><td>'rgi.content_length'</td>'
  23. Say '<tr><td>RGI.CONTENT_TYPE</td><td>'rgi.content_type'</td>'
  24. Say '<tr><td>RGI.GATEWAY_INTERFACE</td><td>'rgi.gateway_interface'</td>'
  25. Say '<tr><td>RGI.HTTP_ACCEPT</td><td>'rgi.http_accept'</td>'
  26. Say '<tr><td>RGI.HTTP_USER_AGENT</td><td>'rgi.http_user_agent'</td>'
  27. Say '<tr><td>RGI.PATH_INFO</td><td>'rgi.path_info'</td>'
  28. Say '<tr><td>RGI.PATH_TRANSLATED</td><td>'rgi.path_translated'</td>'
  29. Say '<tr><td>RGI.QUERY_STRING</td><td>'rgi.query_string'</td>'
  30. Say '<tr><td>RGI.REMOTE_ADDRESS</td><td>'rgi.remote_address'</td>'
  31. Say '<tr><td>RGI.REMOTE_HOST</td><td>'rgi.remote_host'</td>'
  32. Say '<tr><td>RGI.REMOTE_IDENT</td><td>'rgi.remote_ident'</td>'
  33. Say '<tr><td>RGI.REMOTE_USER</td><td>'rgi.remote_user'</td>'
  34. Say '<tr><td>RGI.REQUEST_METHOD</td><td>'rgi.request_method'</td>'
  35. Say '<tr><td>RGI.SCRIPT_NAME</td><td>'rgi.script_name'</td>'
  36. Say '<tr><td>RGI.SERVER_NAME</td><td>'rgi.server_name'</td>'
  37. Say '<tr><td>RGI.SERVER_PORT</td><td>'rgi.server_port'</td>'
  38. Say '<tr><td>RGI.SERVER_PROTOCOL</td><td>'rgi.server_protocol'</td>'
  39. Say '<tr><td>RGI.SERVER_SOFTWARE</td><td>'rgi.server_software'</td>'
  40. Say '</table>'
  41. Say '<p>'
  42. Say 'Finally, we issue the RGIQMethod call: <tt>mthod=RGIQMethod()</tt>'
  43. mthod=RGIQMethod()
  44. Say 'which should show <tt>'mthod'</tt> as in RGI.REQUEST_METHOD.'
  45. Say '<p><p>Press the'
  46. Say '<input type=submit value=Continue> button now.'
  47. Say '</body>'
  48. Say '</html>'
  49.