version 1.1, 2001/01/03 16:20:59
|
version 1.2, 2001/01/06 14:45:34
|
Line 18 sub handler {
|
Line 18 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
|
# ------------------------------------------------------------- Get environment |
|
my $envkey; |
|
my $env=''; |
|
|
|
foreach $envkey (sort keys %ENV) { |
|
$env.="$envkey: $ENV{$envkey}\n"; |
|
} |
|
|
|
$env=~s/\"/\'\'/g; |
|
my $recipients=$r->dir_config('lonAdmEMail').','. |
|
$r->dir_config('lonSysEMail'); |
|
|
|
my $req=$r->as_string(); |
|
$req=~s/\"/\'\'/g; |
|
|
# --------------------------------------------------- Print login screen header |
# --------------------------------------------------- Print login screen header |
$r->print(<<ENDDOCUMENT); |
$r->print(<<ENDDOCUMENT); |
<html> |
<html> |
Line 27 sub handler {
|
Line 42 sub handler {
|
<body bgcolor="#FFFFFF"> |
<body bgcolor="#FFFFFF"> |
<img src="/adm/lonKaputt/lonlogo_broken.gif" align=left> |
<img src="/adm/lonKaputt/lonlogo_broken.gif" align=left> |
<h1>Sorry!</h1> |
<h1>Sorry!</h1> |
<h2>Somewhere something went wrong.</h2> |
<h2>Somewhere something went wrong - please help us to find out what.</h2> |
|
Please take a moment to fill out the form below. Your information, together |
|
with internal debugging information, will be emailed to the system and server |
|
administrators. |
|
<form action="mailto:$recipients" method=get enctype="text/plain"> |
|
<input type=submit value="Send Information"> |
|
<h3>Please describe what you did just before this screen came up</h3> |
|
<input type=hidden name=req value="$req"> |
|
<textarea name=prioraction cols=50 rows=5> |
|
</textarea> |
|
<h3>Is this problem reproducible?</h3> |
|
<input type=checkbox name=reproducible value=yes> Yes! |
|
<h3>Do you have any guesses why this might have happened?</h3> |
|
<textarea name=guesses cols=50 rows=5> |
|
</textarea> |
|
<input type=hidden name=environment value="$env"><p> |
|
<input type=submit value="Send Information"> |
|
</form> |
|
<h1>Thank you for your help!</h1> |
</body> |
</body> |
</html> |
</html> |
ENDDOCUMENT |
ENDDOCUMENT |
|
# -------------------------- Better terminate this in case something was sticky |
|
$r->child_terminate(); |
|
|
return OK; |
return OK; |
} |
} |
|
|