#! /usr/local/bin/regina
/*   displays the REXX variables at entry in a CGI                 */
/*-----------------------------------------------------------------*/

call setdll    /* loads the HHNS shared library */

/*-- this will initialize all pre-defined REXX CGI Variables ----*/
call CgiInit "TITLE='List of REXX variables at entry in a CGI' BGCOLOR=FFFFFF"







say tblHdr("Rexx variable", " Value", "Description")

say tblrow("document_root"  , document_root  ,  "Your web server's document root")
say tblrow("http_referer"   , http_referer   ,  "URL that called your script"    )
say tblrow("http_user_agent", http_user_agent,  "Client Browser"                 )
say tblrow("path_translated", path_translated,  "path that leads to your CGI"    )
say tblrow("remote_addr"    , remote_addr    ,  "Client IP address"              )

say tblrow("remote_host"    , remote_host    ,  "Client host name"               )
say tblrow("script_name"    , script_name    ,  "CGI Script name"                )
say tblrow("server_name"    , server_name    ,  "Web server name"                )
say tblrow("webos"          , webos          ,  "Web Server Operating system"    )
say tblrow("websep"         , websep         ,  "file separator for that os"     )
say tblrow("webren"         , webren         ,  "ren command    for that os"     )
say tblrow("webcat"         , webcat         ,  "cat command    for that os"     )
say tblrow("webdel"         , webdel         ,  "del command    for that os"     )
say tblrow("webdir"         , webdir         ,  "dir command    for that os"     )
say tblrow("webdirs"        , webdirs        ,  "dir /s command for that os"     )
say tblrow("webmove"        , webmove        ,  "move command   for that os"     )
say tblrow("webnulldev"     , webnulldev     ,  "null device    for that os"     )








call cgiEnd
return 0