home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rgiserv.zip / rgi_t3.cmd < prev    next >
OS/2 REXX Batch file  |  1996-05-16  |  1KB  |  32 lines
  1. /* Test the RGIOut Function */
  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 ''
  7. Say '<form action=cgi-bin/rgi_t4.cmd method=post>'
  8. Say '<html><head><title>'       /* Introduce the document */
  9. Say 'RGI Installation Test'     /* as part of the RGI */
  10. Say '</head></title>'           /* Installation Test */
  11. Say '<body>'
  12. Say '<em>This screen is brought to you by RGI_T3.CMD</em>'
  13. Say 'This document tests the RGIOut function.'
  14. Call RGIParse '-k'
  15. time=time()
  16. Say '<p>'
  17. Say 'It issues the'
  18. Say '<p><ce>'
  19. Say "<tt>Call RGIOut Hello <&rgi.fname>! It is <&time> now in <&rgi.cname>.','No'"
  20. Say '</tt></ce>'
  21. Say '<p>statement which generates:'
  22. Call RGIOut 'Hello <&rgi.fname>! It is <&time> now in <&rgi.cname>','No'
  23. If rgi_retc=0 Then Do i=1 to rgi_out.0
  24.    Say rgi_out.i
  25.    End
  26. Say '<p>Similarly we can resolve a file with an unlimited number of HTML text lines.'
  27. Say 'This may be useful when you have, for example, multi-lingual documents.'
  28. Say '<p><p>Press the'
  29. Say '<input type=submit value=Continue> button now.'
  30. Say '</body>'
  31. Say '</html>'
  32.