Re: mod_perl: redirecting error message

put something like this in your /etc/apache2/sites-available/my-project file:

<VirtualHost foo.bar.baz.bla>
   [...]    
   ErrorDocument 500 /error/500
   PerlModule MyProject::ErrorHandler
   [...]
   <Location /error>
      [...]
      SetHandler perl-script
      PerlResponseHandler MyProject::ErrorHandler
   </Location
</VirtualHost>
[download]

notice that the /error directory must not exist. it's simply a placeholder in the config file.

how the ErrorHandler package should look like, and on how to pass the error messages to it, take a look at the mod_perl2 documentation, especially the $r->err_headers_out, $r->notes, and $r->pnotes methods. basic information on how to write a response handler you will find at http://perl.apache.org/docs/2.0/user/coding/coding.html.

Comment on Re: mod_perl: redirecting error message Download Code

Replies are listed 'Best First'.
Re^2: mod_perl: redirecting error message by artemave (Beadle) on Apr 22, 2007 at 22:57 UTC
I'm trying to use pnotes to pass error message. Here is the module where the error case is supposed to happen: `sub handler : method { my ($self, $r) = @_; ... $self->{r}->pnotes(error => 'Darn'); return Apache2::Const::SERVER_ERROR; } ... 1;` [download] Now the special error handler: `sub handler { my $r = shift; $r->content_type('text/html'); $r->print($r->pnotes("error")); return Apache2::Const::OK; } 1;` [download] And finally httpd.conf part to connect it all: `... ErrorDocument 500 /error ... PerlModule dir_browse::error <Location /error> SetHandler perl-script PerlResponseHandler dir_browse::error </Location>` [download] The problem is that pnotes('error') does not keep its value when redirected to error handler (i tried to redirect explicitly using headers_out->set(Location => ...) and Apache2::Const::REDIRECT but the result was the same). Now, I've read in pnotes doc that "The values get reset automatically at the end of each HTTP request". Does that mean, that in my case the request is finished before getting to error handler? Or there is some other issue? Thanks, Artem.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: mod_perl: redirecting error message
by artemave (Beadle) on Apr 22, 2007 at 22:57 UTC

sub handler : method    {
    my ($self, $r) = @_;
...
    $self->{r}->pnotes(error => 'Darn');
    return Apache2::Const::SERVER_ERROR;
}
...
1;
[download]

sub handler    {
    my $r = shift;

    $r->content_type('text/html');
    $r->print($r->pnotes("error"));
    return Apache2::Const::OK;
}
1;
[download]

...
ErrorDocument 500 /error
...
PerlModule dir_browse::error
<Location /error>
  SetHandler perl-script
  PerlResponseHandler dir_browse::error
</Location>
[download]

[reply]
[d/l]
[select]