Catching Apache error with a Perl script

[PapaBear]

Hi y'all,

I'm handling Apache errors through seperate shtml files. That surely looks
better than the standard error pages by the browser etc. I did this by
coding in httpd.conf lines like:

ErrorDocument 403 [url]http://levi.prodeo/errors/err_403.shtml[/url]
ErrorDocument 404 [url]http://levi.prodeo/errors/err_404.shtml[/url]
ErrorDocument 405 [url]http://levi.prodeo/errors/err_405.shtml[/url]

etcetera.


Now, I would like to handle those through a Perl script file.
For that purpose I coded in httpd.conf lines like:

ErrorDocument 404 [url]http://levi.prodeo/cgi-bin/http_err.pl?err=403[/url]
ErrorDocument 404 [url]http://levi.prodeo/cgi-bin/http_err.pl?err=404[/url]
ErrorDocument 405 [url]http://levi.prodeo/cgi-bin/http_err.pl?err=405[/url]

It does not complain about this URL, but the big question is:

How do I get that error number into my Perl program?


Please spare me the CPAN modules, I think they're overweight. I'd like to
see what I'm coding, so simple solutions if possible...

Tnx in advance,

PapaBear

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GAT/CS/CM/O d+(--) s++:+>: a? C++(+++)$ UL++(+++) P++>+++ L++>+++ E- W+++$
N++ !o !K w !O M- V? PS->$ PE+(-) Y+ PGP t+ 5? !X R- tv b+(+++) DI? !D G(-)
!e h---- r+++ y?
------END GEEK CODE BLOCK------
[url]http://www.geekcode.com[/url]
__________________________________
Never mind the bear, beware of Papa!

[PapaBear]

Brian Wakem <no@email.com> schreef in berichtnieuws
bhvku6$3m44b$1@ID-112158.news.uni-berlin.de...

>
> my ($error_number) = $ENV{QUERY_STRING} =~ /err=(\d+)/;
>

That works like a charm, tnx a lot Brian!

___________________________________
Never mind the Bear, beware of papa...

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GAT/CS/CM/O d+(--) s++:+>: a? C++(+++)$ UL++(+++) P++>+++ L++>+++ E- W+++$
N++ !o !K w !O M- V? PS->$ PE+(-) Y+ PGP t+ 5? !X R- tv b+(+++) DI? !D G(-)
!e h---- r+++ y?
------END GEEK CODE BLOCK------
[url]http://www.geekcode.com[/url]

[Tony]

"PapaBear" <Papabear@Filternet.nl> wrote in message news:<bhvk23$d56$1@news>...

> Hi y'all,
>
> I'm handling Apache errors through seperate shtml files. That surely looks
> better than the standard error pages by the browser etc. I did this by
> coding in httpd.conf lines like:
>
> ErrorDocument 403 [url]http://levi.prodeo/errors/err_403.shtml[/url]
> ErrorDocument 404 [url]http://levi.prodeo/errors/err_404.shtml[/url]
> ErrorDocument 405 [url]http://levi.prodeo/errors/err_405.shtml[/url]
>
> etcetera.
>
>
> Now, I would like to handle those through a Perl script file.
> For that purpose I coded in httpd.conf lines like:
>
> ErrorDocument 404 [url]http://levi.prodeo/cgi-bin/http_err.pl?err=403[/url]
> ErrorDocument 404 [url]http://levi.prodeo/cgi-bin/http_err.pl?err=404[/url]
> ErrorDocument 405 [url]http://levi.prodeo/cgi-bin/http_err.pl?err=405[/url]
>
> It does not complain about this URL, but the big question is:
>
> How do I get that error number into my Perl program?
>
>
> Please spare me the CPAN modules, I think they're overweight. I'd like to
> see what I'm coding, so simple solutions if possible...
>
> Tnx in advance,
>
> PapaBear
>
> -----BEGIN GEEK CODE BLOCK-----
> Version: 3.1
> GAT/CS/CM/O d+(--) s++:+>: a? C++(+++)$ UL++(+++) P++>+++ L++>+++ E- W+++$
> N++ !o !K w !O M- V? PS->$ PE+(-) Y+ PGP t+ 5? !X R- tv b+(+++) DI? !D G(-)
> !e h---- r+++ y?
> ------END GEEK CODE BLOCK------
> [url]http://www.geekcode.com[/url]
> __________________________________
> Never mind the bear, beware of Papa!

if you are calling the page like [url]http://levi.prodeo/cgi-bin/http_err.pl?err=405[/url]
I would have though that you could just do something like this

#!/usr/bin/perl

use CGI qw(:standard);

$ErrorCode = param('err');

## do what ever on value of $ErrorCode


Regards

Tony