Richard, I took your advice and it worked perfectly. Your help has been
gold-with-diamonds-stuck-on-it to me.
Thank you very much for your help !!
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: viernes, 24 de abril de 2009 19:05
Para: IBMVM@LISTSERV.UARK.EDU
Asunto: Re: Web Server in z/VM - PJBR
No problem.
In PJBR2.CGI, it did exactly what you told it to do. When entry is from a
Post, the primary input stream contains one entry for each field that was
altered. The format is fieldname=text. I use a pipe like this to set the
fieldname variables:
'callpipe (name RdIP end \)',
'\ *.input:',
'| locate w1',
'| xlate',
'| change ?=?/? 1',
'| insert ?/? before',
'| strip',
'| varload'
Your "Parse Upper Var record" statement is a nop. I presume your intent was
to make the record upper case. If so, use the TRANSLATE function in REXX or
the XLATE stage in a Pipe.
I haven't the time to examine the main program this morning.
Regards,
Richard Schuh
> -----Original Message-----
> From: The IBM z/VM Operating System
> [mailto:ib...@listserv.uark.edu] On Behalf Of jose raul baron
> Sent: Friday, April 24, 2009 12:01 AM
> To: IBMVM@LISTSERV.UARK.EDU
> Subject: Re: Web Server in z/VM - PJBR
>
> 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.
> > =
> =
