|
For CGI programs to read files from the IFS, the user (default is QTMHHTP1) needs these authorities: *X to all directories in the path and *R to the file. However, the error message says "no such path or directory," which does not appear to be an authority problem. Is there an retekweb directory off the root? Is there a file test.html in that directory? Mel Rothman, CGIDEV2 Author IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota http://www-1.ibm.com/servers/eserver/iseries/service/ctc/ http://www.easy400.ibm.it/en Justin Houchin wrote: > > Should my authority on the rtekweb folder in the IFS say.... > > Data --Object Authorities-- > User Authority Exist Mgt Alter Ref > *PUBLIC *EXCLUDE > JHOUCHIN *RWX X X X X > QTMHHTTP *RX > QTMHHTP1 *RX > > ----- Original Message ----- > From: "Justin Houchin" <jhouchin9@charter.net> > To: <web400@midrange.com> > Sent: Tuesday, May 14, 2002 12:59 PM > Subject: Re: [WEB400] CGIDEV2 Problems > > > Ok Mel, > > I just looked at the debug log and it has the error....00139 > > GetHtmlIfsMult: Could not access IFS file /rtekweb/test.html. File is > being > > ignored. > > Errno and text are: 3,025 No such path or directory. > > > > > > ----- Original Message ----- > > From: "Mel Rothman" <mel@rothmanweb.com> > > To: <web400@midrange.com> > > Sent: Tuesday, May 14, 2002 12:46 PM > > Subject: Re: [WEB400] CGIDEV2 Problems > > > > > > > Some other things I would try: > > > > > > Change the statement > > > 0054.00 C CallP SetNoDebug(*on) > > > to > > > 0054.00 C CallP SetNoDebug(*off) > > > > > > Turn debugging on (CGIDEBUG *ON), run the program, display the debugging > > output > > > (CGIDEBUG *DSPDATA), including the HTML written by the CGI program to > see > > if it > > > is complete and, if not, where it failed. > > > > > > If this give no hints, then use STRSRVJOB and STRDBG to debug the CGI > > program > > > and step through the code until the failure occurs. > > > > > > I hope this helps. > > > > > > Mel Rothman, CGIDEV2 Author > > > IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota > > > http://www-1.ibm.com/servers/eserver/iseries/service/ctc/ > > > http://www.easy400.ibm.it/en > > > > > > > > > > > > > > > Justin Houchin wrote: > > > > > > > > Mel I tried this and it still doesn't work.... > > > > > > > > > <as400>Header > > > > > Content-type: text/html > > > > > <html> > > > > > <head> > > > > > <title>Reliatek, Inc. "Provinding Reliable Technology to > > > > Businesses"</title> > > > > > <meta http-equiv="Content-Type" content="text/html; > > charset=iso-8859-1"> > > > > > </head> > > > > > <body> > > > > etc.... > > > > ----- Original Message ----- > > > > From: "Mel Rothman" <mel@rothmanweb.com> > > > > To: <web400@midrange.com> > > > > Sent: Tuesday, May 14, 2002 11:35 AM > > > > Subject: Re: [WEB400] CGIDEV2 Problems > > > > > > > > When the externally described HTML is in the IFS, make sure there are > no > > > > blanks > > > > in the line following the Content-Type header. In other words, the > > > > Content-Type > > > > header should be followed by two new lines, not a newline, some number > > of > > > > blanks, and another newline. > > > > > > > > Mel Rothman, CGIDEV2 Author > > > > IBM eServer Custom Technology Center (eCTC), Rochester, Minnesota > > > > http://www-1.ibm.com/servers/eserver/iseries/service/ctc/ > > > > http://www.easy400.ibm.it/en > > > > > > > > Justin Houchin wrote: > > > > > > > > > > This is a multi-part message in MIME format. > > > > > -- > > > > > [ Picked text/plain from multipart/alternative ] > > > > > I am trying to run this CGIDEV2 program. When I execute the CGI, I > get > > an > > > > HTTP500 Internal Server Error. I check the joblogs and the CGI program > > runs > > > > and ends normally, I think my problem is with the HTML, but am not > > > > positive..Any help would be great!!! Here is the CGI source.... > > > > > > > > > > This source gets executed by this link > > > > http://68.59.64.83/cgi-bin/iteminq?XCAT=MOD > > > > > > > > > > 0015.00 /copy rtekcgi,hspecs > > > > > 0016.00 FP3030L1 IF E K DISK UsrOpn > > > > > 0017.00 F Rename(I3030:I3030L1) > > > > > 0018.00 /COPY RTEKCGI,C.PROTO > > > > > 0019.00 /copy rtekcgi,prototypeb > > > > > 0020.00 /copy rtekcgi,usec > > > > > 0021.00 *copy rtekcgi,variables1 > > > > > 0022.00 * > > > > > 0023.00 *Number of variables > > > > > 0024.00 D nbrVars S 10I 0 > > > > > 0025.00 * > > > > > 0026.00 *Saved Query String > > > > > 0027.00 D savedquerystring... > > > > > 0028.00 D S 32767 Varying > > > > > 0029.00 > > > > *--------------------------------------------------------------------- > > > > > 0030.00 *Setup stand alone fields > > > > > 0031.00 > > > > *--------------------------------------------------------------------- > > > > > 0032.00 D Wsco S 2A > > > > > 0033.00 D Wsdiv S 2A > > > > > 0034.00 D XQty S 5P 0 > > > > > 0035.00 D StkStatus S 25A > > > > > 0036.00 D Xsell S 7P 2 > > > > > 0037.00 D Xcat S 3A > > > > > 0038.00 D Clearance S 1A > > > > > 0039.00 > > > > *--------------------------------------------------------------------- > > > > > 0040.00 *Setup constant fields > > > > > 0041.00 > > > > *--------------------------------------------------------------------- > > > > > 0042.00 D initHTMlVars C '0' > > > > > 0043.00 > > > > *////////////////////////////////////////////////////////////////////* > > > > > 0044.00 *Setup Item Master Key List > > > > > 0045.00 > > > > *////////////////////////////////////////////////////////////////////* > > > > > 0046.00 C Itemkey Klist > > > > > 0047.00 C Kfld Wsco > > > > > 0048.00 C Kfld Wsdiv > > > > > 0049.00 C Kfld Xcat > > > > > 0050.00 C* > > > > > 0051.00 > > > > *////////////////////////////////////////////////////////////////////* > > > > > 0052.00 *Start Main Program Logic > > > > > 0053.00 > > > > *////////////////////////////////////////////////////////////////////* > > > > > 0054.00 C CallP SetNoDebug(*on) > > > > > 0055.00 * > > > > > 0056.00 *Add PCSTORE to library list > > > > > 0057.00 C CallP #PushLib('PCSTORE') > > > > > 0058.00 * > > > > > 0059.00 *Set company and division to 1510 > > > > > 0060.00 C Eval Wsco = '15' > > > > > 0061.00 C Eval Wsdiv = '10' > > > > > 0062.00 * > > > > > 0063.00 *Read output skeleton html from IFS into memory > > > > > 0064.00 C CallP > gethtmlifs('/rtekweb/test.html': > > > > > 0065.00 C '<as400>') > > > > > 0066.00 * > > > > > 0067.00 *Get input > > > > > 0068.00 C Eval nbrVars = > > > > > 0069.00 C > > zhbgetinput(savedquerystring:qusec) > > > > > 0070.00 C*********** Eval XCat = > > getenv('Query_String':qusec) > > > > > 0071.00 * > > > > > 0072.00 *Parse Input > > > > > 0073.00 C Eval Xcat = zhbgetvar('XCAT') > > > > > 0074.00 * > > > > > 0075.00 *Write the HTML Header > > > > > 0076.00 C CallP WrtSection('Header') > > > > > 0077.00 * > > > > > 0078.00 *Write the Item Number,Description,Availibility,Price > Banner > > > > > 0079.00 C CallP WrtSection('Banner') > > > > > 0080.00 * > > > > > 0081.00 *Read the Item Master File by Category > > > > > 0082.00 C Open P3030L1 > > > > > 0083.00 C ItemKey SetLL I3030L1 > > > > > 0084.00 C ItemKey ReadE I3030L1 > > > > > 0085.00 * > > > > > 0086.00 C Dow (not %Eof) > > > > > 0087.00 * > > > > > 0088.00 *Check to see if item is a clearence item > > > > > 0089.00 C EvalR Clearance = IMITM > > > > > 0090.00 * > > > > > 0091.00 C IMDIV IfEq '10' > > > > > 0092.00 C Xcat AndEq IMCAT > > > > > 0093.00 C IMWEBS AndEq '1' > > > > > 0094.00 C Clearance AndEq *Blank > > > > > 0095.00 * > > > > > 0096.00 *Check to see if item is "Available" or "In Stock" > > > > > 0097.00 C Eval XQty = 0 > > > > > 0098.00 C Eval XQty = > > #CalcInv(Wsco:WsDiv:Imitm) > > > > > 0099.00 C If XQty > 0 > > > > > 0100.00 C Eval StkStatus = 'In Stock' > > > > > 0101.00 C Else > > > > > 0102.00 C Eval StkStatus = 'Available' > > > > > 0103.00 C EndIf > > > > > 0104.00 * > > > > > 0105.00 *Calculate the seling price > > > > > 0106.00 C Eval Xsell = > > #PrceCalc(Wsco:WsDiv:Imitm) > > > > > 0107.00 * > > > > > 0108.00 *Update html skeleton buffer with values > > > > > 0109.00 C CallP updHTMLvar('Item':IMITM) > > > > > 0110.00 C CallP updHTMLvar('Desc':IMDSC) > > > > > 0111.00 C CallP > > updHTMLvar('StkStatus':StkStatus) > > > > > 0112.00 C CallP updHTMLvar('Price':IMITM) > > > > > 0113.00 * > > > > > 0114.00 *Write the Table Row > > > > > 0115.00 C CallP WrtSection('TableRow') > > > > > 0116.00 * > > > > > 0117.00 C EndIf > > > > > 0118.00 * > > > > > 0119.00 C ItemKey ReadE I3030L1 > > > > > 0120.00 C EndDo > > > > > 0121.00 * > > > > > 0122.00 C Close P3030L1 > > > > > 0123.00 * > > > > > 0124.00 *Write the HTML Footer > > > > > 0125.00 C CallP WrtSection('Footer') > > > > > 0126.00 * > > > > > 0127.00 *Remove PCSTORE from library list > > > > > 0128.00 C CallP #PopLib('PCSTORE') > > > > > 0129.00 * > > > > > 0130.00 *Write the HTML Buffer to the Web Browser > > > > > 0131.00 C CallP WrtSection('*fini') > > > > > 0132.00 C Return > > > > > > > > > > Here is the HTML that is located in my IFS.... > > > > > > > > > > <as400>Header > > > > > Content-type: text/html > > > > > > > > > > <html> > > > > > <head> > > > > > <title>Reliatek, Inc. "Provinding Reliable Technology to > > > > Businesses"</title> > > > > > <meta http-equiv="Content-Type" content="text/html; > > charset=iso-8859-1"> > > > > > </head> > > > > > <body> > > > > > > > > > > <as400>Banner > > > > > <table width="100%" bgcolor="000080"> > > > > > <tr> > > > > > <td width="34%"><font color="#FFFFFF">ITEM NUMBER</font></td> > > > > > <td width="43%"><font color="#FFFFFF">ITEM DESCRIPTION</font></td> > > > > > <td width="9%"><font color="#FFFFFF"><div > > > > align="right">AVAILIBILTY</div></font></td> > > > > > <td width="15%"><font color="#FFFFFF"><div > > > > align="right">PRICE</div></font></td> > > > > > </tr> > > > > > </table> > > > > > > > > > > <as400>tablerow > > > > > <table width="100%"bgcolor="lightsteelblue"> > > > > > <tr> > > > > > <td width="26%">/%Item%/</td> > > > > > <td width="46%"><a > > > > href="/cgi-bin/itemdsc?XITM=/%Item%/">/%Desc%/</a><br></td> > > > > > <td width="6%"><div align="right">/%StkStatus%/</div></td> > > > > > <td width="11%"><div align="right">/%Xsell%/</div></td> > > > > > </tr> > > > > > </table> > > > > > > > > > > <as400>footer > > > > > </body> > > > > > </html> > > > > > > > > > > Thanks, > > > > > > > > > > Justin Houchin > > > > > Programmer > > > > > Reliatek, Inc > > > > > jhouchin9@charter.net > > > > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
