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