Hi, > > > > > We are receiving "ERR 12" open errors from Embperl instead of > > "404 Not Found" errors. > > Is anyone having the same problem? Does anyone know what is wrong > > with our configuration? > > >
The attached patch should solve the problem Gerald ** Virus checked by BB-5000 Mailfilter **
Index: embperl.h =================================================================== RCS file: /home/cvs/embperl/embperl.h,v retrieving revision 1.36 diff -r1.36 embperl.h 98a99 > rcTokenNotFound, Index: epio.c =================================================================== RCS file: /home/cvs/embperl/epio.c,v retrieving revision 1.31 diff -r1.31 epio.c 603a604,607 > if (errno == EACCES) > return rcForbidden ; > else if (errno == ENOENT) > return rcNotFound ; Index: epmain.c =================================================================== RCS file: /home/cvs/embperl/epmain.c,v retrieving revision 1.141 diff -r1.141 epmain.c 749c750,751 < static int GenerateErrorPage (/*i/o*/ register req * r) --- > static int GenerateErrorPage (/*i/o*/ register req * r, > /*in*/ int rc) 755a758,763 > #ifdef APACHE > if (r -> pApacheReq && rc >= 400) > r -> pApacheReq -> status = rc ; > else > r -> pApacheReq -> status = 500 ; > #endif 804,807d811 < #ifdef APACHE < if (r -> pApacheReq) < r -> pApacheReq -> status = 500 ; < #endif 1152c1156 < GenerateErrorPage (r) ; --- > GenerateErrorPage (r, rc) ; Index: Embperl/App.pm =================================================================== RCS file: /home/cvs/embperl/Embperl/App.pm,v retrieving revision 1.6 diff -r1.6 App.pm 83a84 > my $status = $req_rec?$req_rec -> status:0 ; 94c95,106 < Embperl::Req::output ($r,"<H1>Internal Server Error</H1>\r\n") ; --- > if ($status == 403) > { > Embperl::Req::output ($r,"<H1>Forbidden</H1>\r\n") ; > } > elsif ($status == 404) > { > Embperl::Req::output ($r,"<H1>Not Found</H1>\r\n") ; > } > else > { > Embperl::Req::output ($r,"<H1>Internal Server Error</H1>\r\n") ; > } ** Virus checked by BB-5000 Mailfilter **
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]