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