/* 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 '' exit /* ------------ called routines below ------------- */ say: parse arg saytxt saytxt = saytxt||esc_n address syscall 'write 1 saytxt' length(saytxt) return