#!/usr/local/bin/rxx /* The above line indicates that the code is a REXX script and where the REXX interpreter is to be found. This may be different at your site. Sample CGI Script in Uni-REXX, invoke from: http://www.slac.stanford.edu/cgi-wrap/finger?cottrell*/ Fail=PUTENV('REXXPATH=/afs/slac/www/slac/www/tool/cgi-rexx') /* The above line tells the REXX interpreter where to find the external REXX library functions, such as PrintHeader, HTMLTop, DeWeb and HTMLBot. */ SAY PrintHeader() /*Put out Content-type stuff*/ SAY '
' In=DeWeb(TRANSLATE(GETENV('QUERY_STRING'),' ','+')) /*Decode + signs to spaces and hex %XX to chars*/ SAY HTMLTop('Finger' In)'' Valid=' abcdefghijklmnopqrstuvwxyz' Valid=Valid||'ABCDEFGHIJKLMNOPQRSTUVWXYZ' Valid=Valid||'0123456789-_/.@' V=VERIFY(In,Valid) /*Check input is valid*/ IF V\=0 THEN SAY 'Bad char('SUBSTR(In,V,1)')in:"'In'"' ELSE ADDRESS COMMAND '/usr/ucb/finger' In SAY HTMLBot() /*Put out trailer boilerplate*/ EXIT