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 'Data: '; END ELSE DO /* Part 2 */ SAY HTMLTop('Output from Minimal Form'); SAY PrintVariables(Input) END SAY HTMLBot() EXIT ( back )
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 '
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 '
END
ELSE DO /* Part 2 */
SAY HTMLTop('Output from Minimal Form');
SAY PrintVariables(Input)
SAY HTMLBot()
EXIT
( back )
Copyright Web Techniques. All rights reserved.