mod_perl give 404 not_found with content

Jaap has asked for the wisdom of the Perl Monks concerning the following question:

This cannot be hard at all but my google skills fail me. In this piece of mod_perl code:

if ($sth->rows == 0)
{
        $r->status(404);
        #$r->print("Oops, there seems to be an error.");
        ModPerl::Util::exit(0);
}

I'd like to print the actual document content that comes with the 404 error but whatever i try, Apache serves some standard error document instead. Any idea how i can print the document body right from this piece of code?

Comment on mod_perl give 404 not_found with content

Replies are listed 'Best First'.
Re: mod_perl give 404 not_found with content by Anonymous Monk on Apr 06, 2011 at 23:40 UTC
404 site:http://perl.apache.org/docs/2.0/ `For example, if a handler wants to return a 404 response, but nevertheless to set a cookie, it has to be: $r->err_headers_out->add('Set-Cookie' => $cookie); return Apache2::Const::NOT_FOUND; If the handler does: $r->headers_out->add('Set-Cookie' => $cookie); return Apache2::Const::NOT_FOUND; the C<Set-Cookie> header won't be sent.` [download]	[reply] [d/l]
Re^2: mod_perl give 404 not_found with content by Anonymous Monk on Apr 07, 2011 at 10:35 UTC
But my problem is not so much in the headers but in printing the content. Is there an equivalent $r->err_content_out or something?	[reply]
Re^3: mod_perl give 404 not_found with content by Jaap (Curate) on Apr 07, 2011 at 10:39 UTC
Oops that post was by me, forgot to login.	[reply]
Re: mod_perl give 404 not_found with content by Khen1950fx (Canon) on Apr 07, 2011 at 00:26 UTC
You were close. I would try it like this with a double-check: `#!/usr/bin/perl use strict; use warnings; use ModPerl::Util; use ModPerl::Const -compile => 'EXIT'; eval { my $r; $r->status(0); ModPerl::Util::exit(0); }; warn "Oops, there seems to be an error\n"; exit if $@ && ref $@ == ModPerl::EXIT; warn "Still Running\n";` [download]	[reply] [d/l]
Re^2: mod_perl give 404 not_found with content by ikegami (Patriarch) on Apr 07, 2011 at 05:55 UTC
I find it hard to believe that sends a 404, much less a custom 404.	[reply]
Re^3: mod_perl give 404 not_found with content by Jaap (Curate) on Apr 07, 2011 at 10:38 UTC
Exactly. How do i print the actual document content?	[reply]
Re^4: mod_perl give 404 not_found with content by Anonymous Monk on Apr 07, 2011 at 12:56 UTC
Different context by Jaap (Curate) on Apr 07, 2011 at 13:16 UTC
Some notes below your chosen depth have not been shown here

Back to Seekers of Perl Wisdom