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

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

Web Techniques Magazine

May 1996

Volume 1, Issue 2





Writing CGI Scripts in REXX 




Listing Eight





/* PrintVariables


Nicely formats the Form variables in the input 


string (which are in the format 


key1=value1&key2=value2&...) and returns them 


in a nicely formatted HTML string.


Example:  


  SAY PrintVariables(GETENV('QUERY_STRING'))


*/


PrintVariables: PROCEDURE; PARSE ARG In


  n='0A'X; /*Newline*/; Out=n||'
'||n


  In=TRANSLATE(In,' ','+')


  DO I=1 BY 1 UNTIL In=''


    /* Split into key and value */


    PARSE VAR In Key.I'='Val.I'&' In


    /* Convert %XX from hex to alphanumeric*/


    Key.I=DeWeb(Key.I); Val.I=DeWeb(Val.I)


    Out=Out'
'Key.I''n,


           '
'Val.I'
'n


  END I


RETURN Out||'
'||n



( 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