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 10 of 23)

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

Web Techniques Magazine

May 1996

Volume 1, Issue 2





Writing CGI Scripts in REXX 




Listing Eleven





PARSE ARG Parms


 


IF GETENV('QUERY_STRING')='' THEN DO


   CALL POPEN('/bin/sh/ -c set') 


                     /*set is a UNIX command to show all environment vars.*/


                     /*POPEN puts the results from the set command onto   */


                     /*the REXX stack.                                    */


   IF Parms='' THEN Body='
'


   ELSE Body='
Parms='Parms'.'


   DO Q=1 TO QUEUED()  


      PARSE PULL Line /*Pull the environment var. settings off the stack*/ 


      Body=Body||Line||'0a'x /*and build the body of the diagnostic msg */ 


   END Q


   Body=Body||'
'


   Fail=CGIerror('400: No input found!', Body)


END





















( 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