/* REXX */
/* Date ...... 10/22/1998 */
/* Author .... Bruce Gillispie - Dallas, Texas */
/* Purpose ... Parse HTTP __environment variables & stdin data */
/* Description: */
/* This environment parse routine will Extract the POST HTML */
/* Form values: CONTENT_TYPE, CONTENT_LENGTH, & CONTENT Data */
/* */
/* Tested on OS/390 2.4 & Domino Go WebServer 4.6.1 */
/* */
do
call say 'Content-type: text/html'
call say ''
call say ''
do i = 1 to __environment.0 until x = 'CONTENT_TYPE'
parse var __environment.i x "=" ct
end
call say'---------------------------------------------------
'
call say'__environment.i = '__environment.i'
'
call say'Value of ct = ' ct'
'
call say'Length of ct = 'length(ct)'
'
i = i + 1 /* position __env to next rec */
if substr(__environment.i,1,14) = 'CONTENT_LENGTH' then
do
parse var __environment.i "=" cl
parse external CONTENT_DATA /* <-- get Content_Type Data(stdin) <-- */
call say'-------------------------------------------------
'
call say'__environment.i = '__environment.i'
'
call say'Value of cl = ' cl'
'
call say'-------------------------------------------------
'
call say'CONTENT_DATA (stdin) = ' CONTENT_DATA'
'
call say'Which came from your FORM METHOD=POST... '
call say'INPUT... HTML script code.
'
call say'-------------------------------------------------
'
end
else
do
call say'/ \ / \ / \ / \ / \ / \ / \ / \
'
call say' CONTENT_LENGTH not found
'
call say' __environmen.'i' contents = '__environment.i'
'
call say'------------------------------------------------
'
end
end
call say ''
call say '