Writing CGI Scripts in REXX
Listing Thirteen #!/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 */ /* DeWeb. */ SAY 'Content-type: text/html'; SAY '' Query=TRANSLATE(GETENV('QUERY_STRING'),' ','+') Title='Finger' Query'.' SAY '<html><head><title>'Title'</title></head><body>' SAY '<h1>'Title'</h1><pre>' Valid=' abcdefghijklmnopqrstuvwxyz' Valid=Valid||'ABCDEFGHIJKLMNOPQRSTUVWXYZ' Valid=Valid||'0123456789-_/.@' V=VERIFY(DeWeb(Query),Valid) IF V/=0 THEN DO SAY 'Bad char('SUBSTR(Query,V,1)')in:"'Query'"' EXIT 99 END ADDRESS COMMAND '/usr/ucb/finger' Query SAY '</body></html>' EXIT
Copyright Web Techniques. All rights reserved.
