#!/usr/local/bin/rxx /* **************************************************************** */ /* Owner(s): George Crane , March 1995 */ /* name : /~crane/bin/webtest (rexx exec) */ /* */ /* Test commands sent to cgi script via SLAC Web Wrapper */ /* **************************************************************** */ /* Called by one of the following URL's */ /* http://www.slac.stanford.edu/cgi-wrap/web-test/value... */ /* http://www.slac.stanford.edu/cgi-wrap?web-test/value... */ /* http://www.slac.stanford.edu/cgi-wrap?web-test+value+value.. */ /* or via a form which has the following lines */ /*
*/ /* */ Address 'COMMAND' Parse arg string method = GETENV('REQUEST_METHOD') ipaddr = GetEnv('REMOTE_ADDR') querys = GetEnv('QUERY_STRING') pathin = GetEnv('PATH_INFO') if (lines()>0) Then line = strip(linein(),'B') else line = '' getstring = '' poststring = '' Say '
'
   say 'method       = 'method
   say 'ipaddr       = 'ipaddr 
   say 'arg          = 'string
   say 'linein()     = 'line
   say 'Query_string = 'querys
   Say 'Path_info    = 'pathin
         
   If Method = 'GET' Then getstring  = GETENV('QUERY_STRING')
   If (Method = 'POST') then poststring = line 

   Say ' '
   Say 'Get   = 'getstring
   Say 'Post  = 'poststring

   say '
' Exit 0