FREE Subscription to Dr. Dobb’s Digest: Same Great Content, New Digital Edition
Site Archive (Complete)
ABOUT US | CONTACT | ADVERTISE | SUBSCRIBE | SOURCE CODE | NEWSLETTERS | RESOURCES | BLOGS | PODCASTS | GO PARALLEL
Architecture & Design
Email
 Print
Reprint

add to:
Del.icio.us
Digg
Google
Furl 		Slashdot
Y! MyWeb
Blink
January 01, 2002

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

(Page 16 of 23)

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

Web Techniques Magazine

May 1996

Volume 1, Issue 2





Writing CGI Scripts in REXX 




Listing Four





/* ReadForm


Reads in GET or POST data, converts plus signs (+) to spaces,


converts %XX encoded characters to unescaped text.


Returns the converted input if there is any, else returns ''.


*/


ReadForm: PROCEDURE


  /* Read in text */


  IF MethGet() THEN In=GETENV('QUERY_STRING')


  ELSE IF MethPost() THEN In=CHARIN(,1,GETENV('CONTENT_LENGTH'))


  ELSE RETURN ''


RETURN DeWeb(TRANSLATE(In,' ','+'))





/* MethGet


   Return true if this cgi call was using the GET request, false otherwise


*/


MethGet: PROCEDURE


   RETURN 'GET'=GETENV('REQUEST_METHOD')





/* MethPost


   Return true if this cgi call was using the POST request, false otherwise


*/


MethPost: PROCEDURE


  RETURN 'POST'=GETENV('REQUEST_METHOD')



( 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
TOP 5 ARTICLES
No Top Articles.



MICROSITES
FEATURED TOPIC

ADDITIONAL TOPICS

INFO-LINK



 




| All Feeds
© 2009 TechWeb, Privacy Policy, Terms of Service, United Business Media LLC
Comments about the web site: webmaster@ddj.com