January 01, 2002
Writing CGI Scripts in REXX (Web Techniques, May 1996)
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