home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / OS2WWW42 / SYS402.R4 / CGI-BIN / SHOWCGI2.CMD < prev    next >
OS/2 REXX Batch file  |  1996-12-21  |  2KB  |  38 lines
  1. /***************************************************************************
  2.  *  Demonstrates the use of Web Macros within the CGI interface using a REXX program.
  3.  **************************************************************************/
  4.  
  5. env  = "OS2ENVIRONMENT"
  6.  
  7. Say "Content-type: text/x-server-parsed-html"
  8. Say
  9.  
  10. say "<body bgcolor=#F0F0F0>"
  11. Say "<!--#include virtual=/powerweb/title.inc -->"
  12. Say "<!--#call macro='title(''CGI/1.1 using Web Macros Demonstration:'')' -->"
  13.  
  14. Say "<table border=1 cellspacing=0 cellpadding=0>"
  15.  
  16. /* Echo the Standard Set of CGI Variables */
  17.  
  18. Say "<tr><td><font size=-1 face=helv>Remote Host<td><font size=-1 face=helv><!--#echo var=Connection:/RemoteHost -->"
  19. Say "<tr><td><font size=-1 face=helv>Remote IP Address<td><font size=-1 face=helv><!--#echo var=Connection:/RemoteAddress -->"
  20. Say "<tr><td><font size=-1 face=helv>Remote User Name<td><font size=-1 face=helv><!--#echo var=Request:/AuthenticateUser -->"
  21. Say "<tr><td><font size=-1 face=helv>Request Protocol<td><font size=-1 face=helv><!--#echo var=Request:/Protocol -->"
  22. Say "<tr><td><font size=-1 face=helv>Request Method<td><font size=-1 face=helv><!--#echo var=Request:/Method -->"
  23. Say "<tr><td><font size=-1 face=helv>Request<td><font size=-1 face=helv><!--#echo var=Request:/Request -->"
  24.  
  25. len = value("CONTENT_LENGTH",,env)
  26. Say "<tr><td><font size=-1 face=helv>CONTENT_LENGTH<td><font size=-1 face=helv>"    || len   
  27.  
  28. /* If POST method was used to pass parameters, get them and echo them */
  29.  
  30. method = value("REQUEST_METHOD",,env)
  31. If (method == "POST") & (len \= "") Then Do
  32.   post_string = LineIn() 
  33.   Say "<tr><td><font size=-1 face=helv>CGI Script Parameters<td><font size=-1 face=helv>" || post_string
  34. End
  35.  
  36. Say "</table>"
  37.  
  38.