Annotation of loncom/interface/lonerrorhandler.pm, revision 1.23

1.1       www         1: # The LearningOnline Network
                      2: # Internal Server Error Handler
                      3: #
1.23    ! schafran    4: # $Id: lonerrorhandler.pm,v 1.22 2009/01/04 19:49:19 raeburn 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.19      jms        29: 
                     30: 
1.1       www        31: package Apache::lonerrorhandler;
                     32: 
                     33: use strict;
                     34: use Apache::Constants qw(:common);
1.11      albertel   35: use Apache::loncommon();
1.7       albertel   36: use Apache::lonnet;
1.11      albertel   37: use Apache::lonmsg();
                     38: use Apache::lonacc();
1.13      raeburn    39: use Apache::lonlocal;
1.1       www        40: 
                     41: sub handler {
                     42:     my $r = shift;
1.6       albertel   43:     &Apache::loncommon::content_type($r,'text/html');
1.1       www        44:     $r->send_http_header;
                     45:     return OK if $r->header_only;
                     46: 
1.11      albertel   47:     &Apache::lonacc::get_posted_cgi($r);
1.17      raeburn    48:     if (!$Apache::lonlocal::lh) {
1.16      raeburn    49:         &Apache::lonlocal::get_language_handle($r);
                     50:     }
1.9       albertel   51:     my $title = $env{'form.sendinfo'} ? 'Sending Error Report'
                     52:                                       : 'Could Not Process Request';
                     53:     $r->print(&Apache::loncommon::start_page($title));
1.8       www        54: 
                     55:     if ($env{'form.sendinfo'}) {
                     56: 	my $repro='no';
                     57: # ------------------------------------------------------------------ Mail stuff
                     58: 	if ($env{'form.reproducible'}) {
                     59: 	    $repro='yes';
                     60: 	}
1.13      raeburn    61:         my %lt = &Apache::lonlocal::texthash (
                     62:                      msg => 'LON-CAPA Error Message',
                     63:                      rep => 'Reproducible',
                     64:                      ver => 'Version',
                     65:                      syl => 'Syllabus',
                     66:                      pri => 'Prior Action',
                     67:                      gue => 'Guesses',
                     68:                      env => 'Environment',
                     69:                  );
1.8       www        70: 	my $message=(<<ENDMESSAGE);
1.13      raeburn    71: $lt{'msg'}
                     72: $lt{'rep'}: $repro
                     73: $lt{'ver'}: $env{'form.version'}
                     74: $lt{'syl'}:
1.8       www        75: $env{'form.syllabus'}
                     76: 
1.13      raeburn    77: $lt{'pri'}:
1.8       www        78: $env{'form.prioraction'}
                     79: 
1.13      raeburn    80: $lt{'gue'}:
1.8       www        81: $env{'form.guesses'}
                     82: 
1.13      raeburn    83: $lt{'env'}:
1.8       www        84: $env{'form.environment'}
                     85: ENDMESSAGE
1.13      raeburn    86:         my $sysmail = $r->dir_config('lonSysEMail');
                     87:         my $defdom = $r->dir_config('lonDefDomain');
1.14      raeburn    88:         my $origmail = $r->dir_config('lonAdmEMail');
                     89:         my $recipients = &Apache::loncommon::build_recipient_list($sysmail,
                     90:                                              'errormail',$defdom,$origmail);
1.13      raeburn    91:         if ($recipients ne '') {
                     92:             &Apache::lonmsg::sendemail($recipients,'ERROR REPORT',$message);
                     93: 	    $r->print('<h2>'.&mt('Report submitted').'</h2>'.&mt('Thank you!'));
                     94:         } else {
                     95:             $r->print('<h2>'.&mt('Warning: Report not submitted').'</h2>'.
1.15      bisitz     96:                       '<span class="LC_error">'
                     97:                      .&mt('The administrators of the domain [_1] have not set'
                     98:                          .' any e-mail addresses for receipt of your error report.'
                     99:                          ,'<tt>'.$defdom.'</tt>')
                    100:                      .'</span>');
1.13      raeburn   101:         }
1.8       www       102:     } else {
                    103: # ------------------------------------------------------------- Get environment
                    104: 	my $envkey;
                    105: 	my $env='';
                    106: 	my $syllabus='';
                    107: 
1.22      raeburn   108: 	foreach $envkey (keys(%env)) {
                    109:             if ($envkey =~ /^form\.(.+)\.filename$/) {
                    110:                 my $item = $1;
                    111:                 if (exists($env{'form.'.$item.'.mimetype'})) {
                    112:                     if (exists($env{'form.'.$item})) {
                    113:                         my $size = (length($env{'form.'.$item}))/(1024.0 * 1024.0);
                    114:                         $env{'form.'.$item} = &mt('File (contents not shown) - size was [_1] MB.',sprintf("%.4f",$size));
                    115:                     }
                    116:                 }
                    117:             }
                    118:         }
                    119: 
1.8       www       120: 	foreach $envkey (sort(keys(%env))) {
                    121: 	    $env.="$envkey: $env{$envkey}\n";
                    122: 	}
                    123: 	foreach $envkey (sort(keys(%ENV))) {
                    124: 	    $env.="$envkey: $ENV{$envkey}\n";
                    125: 	    if ($envkey=~/REDIRECT\_(REQUEST_URI|SCRIPT|ERROR)/) {
                    126: 		$syllabus.="\n$1:\n$ENV{$envkey}";
                    127: 	    }
                    128: 	}
                    129: 
                    130: 	$env=~s/\"/\'\'/g;
                    131: 
                    132: 	my $version=$r->dir_config('lonVersion');
                    133: 
                    134: # ----------------------------------------------------------- Print error form
1.15      bisitz    135: 	$r->print('<h2 class="LC_error">'
                    136: .&mt('Somewhere something went wrong')
                    137: .'</h2>'
                    138: .'<p>'.&mt('Please help us to find out what.').'</p>'
                    139: .'<p>'.&mt('Please take a moment to fill out the form below.').' '
                    140: .&mt('Your information, together with internal debugging information, '
1.23    ! schafran  141:     .'will be e-mailed to the system and server administrators.')
1.15      bisitz    142: .'</p>
1.8       www       143: <form action="/adm/errorhandler" method="post">
1.13      raeburn   144: <h3>'.&mt('Please describe what you did just before this screen came up').'</h3>
1.8       www       145: <textarea name="prioraction" cols="50" rows="5">
1.2       www       146: </textarea>
1.13      raeburn   147: <h3>'.&mt('Is this problem reproducible?').'</h3>
1.8       www       148: <label>
1.13      raeburn   149: <input type="checkbox" name="reproducible" value="yes" /> '.&mt('Yes!').'
1.8       www       150: </label>
1.13      raeburn   151: <h3>'.&mt('Do you have any guesses why this might have happened?').'</h3>
1.8       www       152: <textarea name="guesses" cols="50" rows="5">
1.2       www       153: </textarea>
1.13      raeburn   154: <input type="hidden" name="version" value="'.$version.'" />
                    155: <input type="hidden" name="environment" value="'.$env.'" />
                    156: <input type="hidden" name="syllabus" value="'.$syllabus.'" />
1.8       www       157: <input type="hidden" name="sendinfo" value="1" />
                    158: <p>
1.21      raeburn   159: <input type="submit" title="'.&mt('Send Information').'" value="'.&mt('Send').'" />
1.8       www       160: </p>
1.2       www       161: </form>
1.13      raeburn   162: <h1>'.&mt('Thank you for your help!').'</h1>
1.15      bisitz    163: <div><font size="-1">
1.13      raeburn   164: '.&mt('Internal info:').
1.15      bisitz    165: '<pre>'.
1.13      raeburn   166: $syllabus.'
1.8       www       167: </pre>
1.15      bisitz    168: </font></div>
1.13      raeburn   169: ');
1.2       www       170: # -------------------------- Better terminate this in case something was sticky
1.9       albertel  171: 
1.8       www       172:         $r->child_terminate();
                    173:     }
1.10      albertel  174:     $r->print(&Apache::loncommon::end_page());
1.1       www       175:     return OK;
1.13      raeburn   176: }
1.1       www       177: 
                    178: 1;
                    179: __END__
1.20      jms       180: 
                    181: 
                    182: =pod
                    183: 
                    184: =head1 NAME
                    185: 
                    186: Apache::lonerrorhandler.pm
                    187: 
                    188: =head1 SYNOPSIS
                    189: 
                    190: Handles errors.
                    191: 
                    192: This is part of the LearningOnline Network with CAPA project
                    193: described at http://www.lon-capa.org.
                    194: 
                    195: =head1 OVERVIEW
                    196: 
                    197: None
                    198: 
1.21      raeburn   199: =cut

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>