Annotation of loncom/interface/lonerrorhandler.pm, revision 1.13
1.1 www 1: # The LearningOnline Network
2: # Internal Server Error Handler
3: #
1.13 ! raeburn 4: # $Id: lonerrorhandler.pm,v 1.12 2006/09/02 20:49:20 albertel Exp $
1.3 albertel 5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
1.4 www 28:
1.1 www 29: package Apache::lonerrorhandler;
30:
31: use strict;
32: use Apache::Constants qw(:common);
1.11 albertel 33: use Apache::loncommon();
1.7 albertel 34: use Apache::lonnet;
1.11 albertel 35: use Apache::lonmsg();
36: use Apache::lonacc();
1.13 ! raeburn 37: use Apache::lonlocal;
1.1 www 38:
39: sub handler {
40: my $r = shift;
1.6 albertel 41: &Apache::loncommon::content_type($r,'text/html');
1.1 www 42: $r->send_http_header;
43: return OK if $r->header_only;
44:
1.11 albertel 45: &Apache::lonacc::get_posted_cgi($r);
1.2 www 46:
1.9 albertel 47: my $title = $env{'form.sendinfo'} ? 'Sending Error Report'
48: : 'Could Not Process Request';
49: $r->print(&Apache::loncommon::start_page($title));
1.8 www 50:
51: if ($env{'form.sendinfo'}) {
52: my $repro='no';
53: # ------------------------------------------------------------------ Mail stuff
54: if ($env{'form.reproducible'}) {
55: $repro='yes';
56: }
1.13 ! raeburn 57: my %lt = &Apache::lonlocal::texthash (
! 58: msg => 'LON-CAPA Error Message',
! 59: rep => 'Reproducible',
! 60: ver => 'Version',
! 61: syl => 'Syllabus',
! 62: pri => 'Prior Action',
! 63: gue => 'Guesses',
! 64: env => 'Environment',
! 65: );
1.8 www 66: my $message=(<<ENDMESSAGE);
1.13 ! raeburn 67: $lt{'msg'}
! 68: $lt{'rep'}: $repro
! 69: $lt{'ver'}: $env{'form.version'}
! 70: $lt{'syl'}:
1.8 www 71: $env{'form.syllabus'}
72:
1.13 ! raeburn 73: $lt{'pri'}:
1.8 www 74: $env{'form.prioraction'}
75:
1.13 ! raeburn 76: $lt{'gue'}:
1.8 www 77: $env{'form.guesses'}
78:
1.13 ! raeburn 79: $lt{'env'}:
1.8 www 80: $env{'form.environment'}
81: ENDMESSAGE
1.13 ! raeburn 82: my $sysmail = $r->dir_config('lonSysEMail');
! 83: my $defdom = $r->dir_config('lonDefDomain');
! 84: my $recipients = &Apache::loncommon::build_recipient_list($r,$sysmail,
! 85: 'errormail',$defdom);
! 86: if ($recipients ne '') {
! 87: &Apache::lonmsg::sendemail($recipients,'ERROR REPORT',$message);
! 88: $r->print('<h2>'.&mt('Report submitted').'</h2>'.&mt('Thank you!'));
! 89: } else {
! 90: $r->print('<h2>'.&mt('Warning: Report not submitted').'</h2>'.
! 91: '<span class="LC_error">'.&mt("The administrators of
! 92: the domain ($defdom) have not set any e-mail addresses
! 93: for receipt of your error report.").'</span>');
! 94: }
1.8 www 95: } else {
96: # ------------------------------------------------------------- Get environment
97: my $envkey;
98: my $env='';
99: my $syllabus='';
100:
101: foreach $envkey (sort(keys(%env))) {
102: $env.="$envkey: $env{$envkey}\n";
103: }
104: foreach $envkey (sort(keys(%ENV))) {
105: $env.="$envkey: $ENV{$envkey}\n";
106: if ($envkey=~/REDIRECT\_(REQUEST_URI|SCRIPT|ERROR)/) {
107: $syllabus.="\n$1:\n$ENV{$envkey}";
108: }
109: }
110:
111: $env=~s/\"/\'\'/g;
112:
113: my $version=$r->dir_config('lonVersion');
114:
115: # ----------------------------------------------------------- Print error form
1.13 ! raeburn 116: $r->print('<h2>'.
! 117: &mt('Somewhere something went wrong - please help us to find out what.').'</h2>'.
! 118: &mt('Please take a moment to fill out the form below.').' '.&mt('Your information,
! 119: together with internal debugging information, will be emailed to the system and
! 120: server administrators.').'
1.8 www 121: <form action="/adm/errorhandler" method="post">
1.13 ! raeburn 122: <input type="submit" value="'.&mt('Send Information').'" />
! 123: <h3>'.&mt('Please describe what you did just before this screen came up').'</h3>
1.8 www 124: <textarea name="prioraction" cols="50" rows="5">
1.2 www 125: </textarea>
1.13 ! raeburn 126: <h3>'.&mt('Is this problem reproducible?').'</h3>
1.8 www 127: <label>
1.13 ! raeburn 128: <input type="checkbox" name="reproducible" value="yes" /> '.&mt('Yes!').'
1.8 www 129: </label>
1.13 ! raeburn 130: <h3>'.&mt('Do you have any guesses why this might have happened?').'</h3>
1.8 www 131: <textarea name="guesses" cols="50" rows="5">
1.2 www 132: </textarea>
1.13 ! raeburn 133: <input type="hidden" name="version" value="'.$version.'" />
! 134: <input type="hidden" name="environment" value="'.$env.'" />
! 135: <input type="hidden" name="syllabus" value="'.$syllabus.'" />
1.8 www 136: <input type="hidden" name="sendinfo" value="1" />
137: <p>
1.13 ! raeburn 138: <input type="submit" value="'.&mt('Send Information').'" />
1.8 www 139: </p>
1.2 www 140: </form>
1.13 ! raeburn 141: <h1>'.&mt('Thank you for your help!').'</h1>
1.8 www 142: <font size="-1">
143: <pre>
1.13 ! raeburn 144: '.&mt('Internal info:').
! 145: $syllabus.'
1.8 www 146: </pre>
147: </font>
1.13 ! raeburn 148: ');
1.2 www 149: # -------------------------- Better terminate this in case something was sticky
1.9 albertel 150:
1.8 www 151: $r->child_terminate();
152: }
1.10 albertel 153: $r->print(&Apache::loncommon::end_page());
1.1 www 154: return OK;
1.13 ! raeburn 155: }
1.1 www 156:
157: 1;
158: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to lonerrorhandler.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface