loncom/interface/lonerrorhandler.pm - diff

Return to lonerrorhandler.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.4, 2003/08/05 12:52:23	version 1.7, 2005/04/07 06:56:23
Line 31 package Apache::lonerrorhandler;	Line 31 package Apache::lonerrorhandler;
use strict;	use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon;	use Apache::loncommon;
	use Apache::lonnet;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

Line 42 sub handler {	Line 43 sub handler {
my $envkey;	my $envkey;
my $env='';	my $env='';

foreach $envkey (sort keys %ENV) {	foreach $envkey (sort(keys(%env))) {
	$env.="$envkey: $env{$envkey}\n";
	}
	foreach $envkey (sort(keys(%ENV))) {
$env.="$envkey: $ENV{$envkey}\n";	$env.="$envkey: $ENV{$envkey}\n";
}	}

Line 55 sub handler {	Line 59 sub handler {
my $req=$r->as_string();	my $req=$r->as_string();
$req=~s/\"/\'\'/g;	$req=~s/\"/\'\'/g;

	my $html=&Apache::lonxml::xmlbegin();
my $bodytag=&Apache::loncommon::bodytag('Could Not Process Request');	my $bodytag=&Apache::loncommon::bodytag('Could Not Process Request');
# --------------------------------------------------- Print login screen header	# --------------------------------------------------- Print login screen header
$r->print(<<ENDDOCUMENT);	$r->print(<<ENDDOCUMENT);
<html>	$html
<head>	<head>
<title>The LearningOnline Network with CAPA</title>	<title>The LearningOnline Network with CAPA</title>
</head>	</head>