home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rgiserv.zip / rgi_t2.cmd < prev    next >
OS/2 REXX Batch file  |  1996-05-16  |  2KB  |  49 lines
  1. /* Test the RGIUtils Function */
  2. dq='"'  
  3. sq="'"
  4. Call RGIUtils '-ct text/html -exp "10 minutes"'
  5. /*Say 'content-type: text/html'
  6. Say ''*/
  7. If rgi_retc<>0 Then
  8.    Say rgi_msgi rgi_mtxt
  9. Say '<form action=cgi-bin/rgi_t3.cmd method=post>'
  10. Say '<html><head><title>'       /* Introduce the document */
  11. Say 'RGI Installation Test'     /* as part of the RGI */
  12. Say '</head></title>'           /* Installation Test */
  13. Say '<body>'
  14. Say '<em>This screen is brought to you by RGI_T2.CMD</em>'
  15. Say 'This document tests the RGIUtils function.'
  16. Say '<p>'
  17. Say 'It issues the'
  18. Say '<p><ce>'
  19. Say '<tt>Call RGIUtils' sq'-ct text/html -exp' dq'10 minutes'dq||sq','sq'No'sq'</tt>'
  20. Say '</ce>'
  21. Say '<p>statement which generates: the "Content-Type: text/html" line and an expiration'
  22. Say 'date which is 10 minutes from now.'
  23. Say '<p>To see what is generated we use a loop like:'
  24. Say '<tt>'
  25. Say '<br>Do i=1 to rgi_hdr.0'
  26. Say '<br>   Say rgi_hdr.i'
  27. Say '<br>   End i</tt>'
  28. Call RGIUtils '-ct text/html -exp "10 minutes"','No'
  29. if rgi_retc<>0 Then
  30.    Say rgi_msgi rgi_mtxt
  31. Else Do
  32.    Say '<p>' rgi_hdr.0 'lines are generated:'
  33.    Say '<tt>'
  34.    Do i=1 to rgi_hdr.0
  35.       Say '<br>'rgi_hdr.i
  36.       End i
  37.    Say '</tt>'
  38.    Say '<p>(the last line is just a newline character to close the MIME data.)'
  39.    End
  40. Say '</tt>'
  41. Say '<p><p>'
  42. Say 'Press the'
  43. Say '<input type=submit value=Continue> button now.'
  44. Call RGIParse '-k'
  45. Say '<input type=hidden name=fname size=20 value='rgi.fname'>'
  46. Say '<input type=hidden name=cname size=20 value='rgi.cname'>'
  47. Say '</body>'
  48. Say '</html>'
  49.