#!/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                     */ 
/*     <FORM ACTION="/cgi-wrap/" MEDTHOD="POST">                    */
/*     <input type="hidden" name="wrap" value="web-test">           */

   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 '<pre>'
   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 '</pre>'

  Exit 0