Glad to have been of service, like most folks who frequent this list. Regards, Richard Schuh
> -----Original Message----- > From: The IBM z/VM Operating System > [mailto:[email protected]] On Behalf Of jose raul baron > Sent: Tuesday, April 28, 2009 12:59 AM > To: [email protected] > Subject: Re: Web Server in z/VM - PJBR > > 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: [email protected] 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:[email protected]] En nombre > de Schuh, Richard > Enviado el: viernes, 24 de abril de 2009 19:05 > Para: [email protected] > 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:[email protected]] On Behalf Of jose raul baron > > Sent: Friday, April 24, 2009 12:01 AM > > To: [email protected] > > 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: [email protected] 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:[email protected]] En nombre > > de Schuh, Richard > > Enviado el: jueves, 23 de abril de 2009 19:25 > > Para: [email protected] > > 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:[email protected]] On Behalf Of jose raul baron > > > Sent: Thursday, April 23, 2009 10:12 AM > > > To: [email protected] > > > 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. > > > = > > = >
