Oh, Didn't know. Sorry. Here they are:
==============================
MAIN PROGRAM
==============================
fond='PowderBlue' <-- Color definition
rest='Navy' <-- Color definition
action="'http://<IPaddr>/htbin/pjbr2" <-- this intends to be a call to
pjbr2.cgi
'OUTPUT' "<html>"
Address "COMMAND" 'GLOBALV SELECT HTTPD GET VRM'
'OUTPUT' "<]CMS HTTPD" vrm "CPQ CGI>"
/* eliminate piggy-backed CP command trojans */
'ADDPIPE *.INPUT: | SPLIT AT' '001500'x '| *.INPUT:'
If rc ¬= 0 Then Exit rc
'PEEKTO RECORD'
If rc ¬= 0 Then record = ""
Parse Upper Var record arg1 arg2 arg3 arg4 arg5
Address "COMMAND" 'GLOBALV SELECT HTTPD GET VRM'
'OUTPUT' "<HEAD>"
'OUTPUT' "<TITLE>Form filling example</TITLE>"
'OUTPUT' "</HEAD>"
'OUTPUT' "<BODY bgcolor="fond" text=navy link=navy alink=navy " ,
|| " vlink=navy > "
'OUTPUT' "<A HREF='/htbin/imagemap;/imglib/img.map'>"
'OUTPUT' "<IMG SRC='http://<IPaddr>/trex.gif' ISMAP></A>"
'OUTPUT' "<H1>Form Filling example</H1>"
'OUTPUT' "<form method=get action="action"'>"
'OUTPUT' "Complete this form please."
'OUTPUT' "<p>"
'OUTPUT' "Nombre: <INPUT TYPE='text' NAME='name' SIZE=45 MAXLENGTH=50"
'OUTPUT' "VALUE='Write your name here'>"
'OUTPUT' "<p>"
'OUTPUT' "Address: <TEXTAREA NAME='address' COLS=40 ROWS=3>"
'OUTPUT' "Write your address here"
'OUTPUT' "</TEXTAREA>"
'OUTPUT' "<p>"
'OUTPUT' "Account: <INPUT TYPE='text' NAME='acctID' SIZE=30>"
'OUTPUT' "<p>"
'OUTPUT' "Password: <INPUT TYPE='password' NAME='password' SIZE=10>"
'OUTPUT' "<p>"
'OUTPUT' "Which application do you use?"
'OUTPUT' "<p>"
'OUTPUT' "<INPUT TYPE='checkbox' NAME='apps' VALUE='Gopher'> Gopher"
'OUTPUT' "<INPUT TYPE='checkbox' NAME='apps' VALUE='Newsreader'> News"
'OUTPUT' "<INPUT TYPE='checkbox' NAME='apps' VALUE='Webexplorer'> Webex"
'OUTPUT' "<INPUT TYPE='checkbox' NAME='apps' VALUE='Archie'> Archie"
'OUTPUT' "<INPUT TYPE='checkbox' NAME='apps' VALUE='FTP'> FTP"
'OUTPUT' "<INPUT TYPE='checkbox' NAME='apps' VALUE='Telnet'> Telnet"
'OUTPUT' "<p>"
'OUTPUT' "How would you rate your satisfaction?"
'OUTPUT' "<p>"
'OUTPUT' "<INPUT TYPE='radio' NAME='rating' VALUE='1'> Very satisfied"
'OUTPUT' "<INPUT TYPE='radio' NAME='rating' VALUE='2'> Satisfied"
'OUTPUT' "<INPUT TYPE='radio' NAME='rating' VALUE='3'> Neutral"
'OUTPUT' "<INPUT TYPE='radio' NAME='rating' VALUE='4'> Unsatisfied"
'OUTPUT' "<INPUT TYPE='radio' NAME='rating' VALUE='5'> Very unsatisfied"
'OUTPUT' "<p>"
'OUTPUT' "reset fields:"
'OUTPUT' "<INPUT TYPE='reset'>"
'OUTPUT' "Press to send your answers:"
'OUTPUT' "<INPUT TYPE='submit' VALUE='SEND'>"
'OUTPUT' "</FORM>"
'OUTPUT' "</BODY>"
'OUTPUT' "</HTML>"
Exit
================================
PJBR2.CGI
================================
'OUTPUT' "<html>"
Address "COMMAND" 'GLOBALV SELECT HTTPD GET VRM'
'OUTPUT' "<]CMS HTTPD" vrm "CPQ CGI>"
/* eliminate piggy-backed CP command trojans */
'ADDPIPE *.INPUT: | SPLIT AT' '001500'x '| *.INPUT:'
If rc ¬= 0 Then Exit rc
'PEEKTO RECORD'
If rc ¬= 0 Then record = ""
Parse Upper Var record
Address "COMMAND" 'GLOBALV SELECT HTTPD GET VRM'
'OUTPUT' "<HEAD><TITLE>Esto es lo que he recibido</TITLE></HEAD>"
'OUTPUT' "<BODY>"
'OUTPUT' record <-- It simply writes: "name=Write your name here"
'OUTPUT' "</BODY>"
'OUTPUT' "</HTML>"
Exit
BRGDS,
José R. Barón
Dpto. Sistemas
CALCULO S.A.
Pza. de las Cortes, 2
28014 Madrid
Tel. 91 330 86 44 / E-mail: jba...@calculo-sa.es
P No imprima este e-mail si no es realmente necesario.
Do not print this e-mail unless really necessary.
-----Mensaje original-----
De: The IBM z/VM Operating System [mailto:ib...@listserv.uark.edu] En nombre
de Schuh, Richard
Enviado el: jueves, 23 de abril de 2009 19:25
Para: IBMVM@LISTSERV.UARK.EDU
Asunto: Re: Web Server in z/VM - PJBR
Your attachments do not survive when you send to the list. You will have to
copy them into the note for us to be able to see them.
Regards,
Richard Schuh
> -----Original Message-----
> From: The IBM z/VM Operating System
> [mailto:ib...@listserv.uark.edu] On Behalf Of jose raul baron
> Sent: Thursday, April 23, 2009 10:12 AM
> To: IBMVM@LISTSERV.UARK.EDU
> Subject: Web Server in z/VM - PJBR
>
> Hi list, I have a webshare web server running on z/VM 4.4 and
> I have a web page hosted on user httpd1 which creates a form.
>
> If I POST send my form with mailto, it e-mails the form
> fields (all the filled ones) like this:
>
> name=Write+your+name+here&address=Write+your+address+here%0D%0
> A&acctID=&pass
> word=
>
> But if I POST execute another CGI script supposedly to
> process the filled form data, this is what I get in my
> destination CGI program:
>
> name=Write your name here
>
> Any ideas ? (I'm enclosing the code of both CGIs in case that
> anyone wants to see).
>
>
> Thanks in advance,
>
>
> José R. Barón
> Dpto. Sistemas
> CALCULO S.A.
> =
