Writing CGI Scripts in REXX (Web Techniques, May 1996)

Writing CGI Scripts in REXX

Listing Fourteen



#!/usr/local/bin/rxx

/*  Minimalist http Form and script                       */

CALL PUTENV('REXXPATH=/afs/slac/www/slac/www/tool/cgi-rexx');

Input=ReadForm()

SAY PrintHeader()

IF Input='' THEN DO /* Part 1 */

   SAY HTMLTop('Minimal Form')

   SAY '<form><input type="submit">Data: <inputname="myfield">';

END

ELSE DO             /* Part 2 */

   SAY HTMLTop('Output from Minimal Form'); 

   SAY PrintVariables(Input)

END

SAY HTMLBot()

EXIT

( back )

Copyright Web Techniques. All rights reserved.