minimal

Les Cottrell. Last Update: 3 Mar 1997

#!/usr/local/bin/rxx
/*  Minimalist http form and script           */
F=PUTENV("REXXPATH=/afs/slac/www/slac/www/tool/cgi-rexx")
SAY PrintHeader(); SAY '<body bgcolor="FFFFFF">'
Input=ReadForm()
IF Input='' THEN DO  /*Part 1*/
  SAY HTMLTop('Minimal Form')
  SAY '<form><input type="submit">',
      '<br>Data: <input name="myfield">'
END
ELSE DO              /*Part 2*/
  SAY HTMLTop('Output from Minimal Form') 
  SAY PrintVariables(Input)
END
SAY HTMLBot()