home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 31
/
CDASC_31_1996_juillet_aout.iso
/
internet
/
rgiserv.zip
/
RGI_T1.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-05-16
|
2KB
|
58 lines
/* Test the RGIParse Function */
trace i
ntred=1 /* Assume user entered data */
Say 'Content-Type: text/html' /* We don't use RGIUtils yet */
Say ''
Say '<form action=cgi-bin/rgi_t2.cmd method=post>'
Say '<html><head><title>' /* Introduce the document */
Say 'RGI Installation Test' /* as part of the RGI */
Say '</head></title>' /* Installation Test */
Say '<body>'
Call RGIParse '-F -K' /* Invoke RGIParse */
Say '<em>This screen is brought to you RGI_T1.CMD.</em>'
Say '<p>'
If rgi.fname='' Then Do
Say '<em>You have not entered your first name...</em><br>'
rgi.fname='...'
ntred=0
End
If rgi.cname='' Then Do
Say '<em>You have not entered where you live...</em><br>'
rgi.cname='Wherever'
ntred=0
End
Say '<p>'
Say 'Hello! <em>'rgi.fname'</em>!'
Say '<p>'
Say 'Today is' date() 'in <em>'rgi.cname'</em>. The time is' time()'.'
Say '<p>In the above text, you should see your first name and the name of the'
Say 'city emphasized. Simple Rexx "Say" statements were used to generate the text.'
Say '<p>'
Say 'The RGIParse argument that was used contained both the -Form and the -Keyword option.'
Say 'The input data is therefore available both as <tt>RGI.<em>n</em></tt> and'
Say 'as <tt>RGI.<em>fldnm</em></tt> variables, where <tt><em>fldnm</em></tt> is the name of the'
Say 'input field in the form.'
Say '<p>'
If ntred Then Do
Say 'Here is the -Form output:'
Say '<tt>'
Do i=1 to rgi.0
Say '<br>RGI.'i'==>' rgi.i
End i
Say '</tt>'
Say '<p>'
Say 'Here is the -Keyword output:'
Say '<tt>'
Say '<br>RGI.fname==>' rgi.fname
Say '<br>RGI.cname==>' rgi.cname
Say '</tt>'
End
Else Say 'Unfortunately I cannot show it you the output because you did not give me the input.'
Say '<p>'
Say 'Press the'
Say '<input type=submit value=Continue> button now.'
Say '<input type=hidden size=20 name=fname value="'rgi.fname'">'
Say '<input type=hidden size=20 name=cname value="'rgi.cname'">'
Say '</body>'
Say '</html>'