################################################################################
# WeBWorK mod_perl (c) 2000-2002 WeBWorK Project
# $Id$
################################################################################
package Apache::WeBWorK;
=head1 NAME
Apache::WeBWorK - mod_perl handler for WeBWorK.
=head1 CONFIGURATION
This module should be installed as a Handler for the location selected for
WeBWorK on your webserver. Here is an example of a stanza that can be added to
your httpd.conf file to achieve this:
PerlFreshRestart On
SetHandler perl-script
PerlHandler Apache::WeBWorK
PerlSetVar webwork_root /path/to/webwork-modperl
use lib '/path/to/webwork-modperl/lib';
use lib '/path/to/pg/lib';
=cut
use strict;
use warnings;
use WeBWorK; # leave compile-time errors alone.
sub handler($) {
my ($r) = @_;
my $result = eval {
WeBWorK::dispatch($r)
};
if ($@) {
my $message = message($r, $@);
unless ($r->bytes_sent) {
$message = "$message";
$r->content_type("text/html");
$r->send_http_header;
}
$r->print($message);
die $@;
}
return $result;
}
sub message($$) {
my ($r, $exception) = @_;
my $admin = ($ENV{SERVER_ADMIN}
? "($ENV{SERVER_ADMIN})"
: "");
# Error context doesn't work yet -- calling longmess() from here is stupid
#my $context = Carp::longmess();
my $method = $r->method;
my $uri = $r->uri;
my $headers = do {
my %headers = $r->headers_in;
join("", map { "| $_ | $headers{$_} |
" } keys %headers);
};
return <
Software Error
An error has occured while trying to process you request. For help, please send mail to this site's webmaster $admin giving the following information about the error and the date and time that the error occured.
Error message
$exception
Request information
- Method
- $method
- URI
- $uri
Headers received
EOF
# Error context
#
# $context
#
}
1;