Email	Print Reprint
	add to:
	Del.icio.us Digg Google Furl	Slashdot Y! MyWeb Blink

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 ''

SAY '
'Title'
'



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 ''

EXIT

















( back )

Copyright Web Techniques. All rights reserved.

Previous Page | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 Next Page

RELATED ARTICLES Highly Scalable Parallel Sorting SC09 Storage Challenge Award Nozzle: Counteracting Memory Exploits Experts Consider Robots, Legal Issues ACLU Launches dotRights		TOP 5 ARTICLES No Top Articles.