[BACK]Return to printout.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/printout.pl between versions 1.82 and 1.83

version 1.82, 2005/06/04 20:48:33 version 1.83, 2005/07/05 10:23:35
Line 330  foreach $texfile (@texfile) { Line 330  foreach $texfile (@texfile) {
       $temporary_file = IO::File->new('>'.$logfilename);         $temporary_file = IO::File->new('>'.$logfilename); 
       print $temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_log_file.'</pre></body></html>'."\n";        print $temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_log_file.'</pre></body></html>'."\n";
       if ($body_log_file=~m/!\s+Emergency stop/) {        if ($body_log_file=~m/!\s+Emergency stop/) {
   #LaTeX failed to parse tex file   
   print "<h2>LaTeX could not successfully parse your tex file.</h2>";  
   print "It probably has errors in it.<br />";  
   my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';    my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';
   my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';    my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';
   my $badresource;    my $badresource;
     my $badtext;
   if ($whereitbegins!=-1 and $whereitends!=-1) {    if ($whereitbegins!=-1 and $whereitends!=-1) {
       my $badtext = substr($body_log_file,$whereitbegins+26, $whereitends-$whereitbegins-26);        $badtext = substr($body_log_file,$whereitbegins+26, $whereitends-$whereitbegins-26);
        print "With very high probability this error occured in ".$badtext."<br /><br />";  
       $whereitbegins  = rindex $badtext,'located in';        $whereitbegins  = rindex $badtext,'located in';
       if ($whereitbegins != -1) {        if ($whereitbegins != -1) {
       
Line 347  foreach $texfile (@texfile) { Line 344  foreach $texfile (@texfile) {
   # print "<BR>failing resourcename: $badresource<BR>";    # print "<BR>failing resourcename: $badresource<BR>";
       }        }
   }    }
   print "Here are the error messages in the LaTeX log file</br><br /><pre>";    
   my $sygnal = 0;  
   for (my $i=0;$i<=$#content_of_file;$i++) {  
       if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {  
   $sygnal = 1;  
       }   
       if ($content_of_file[$i]=~m/Here is how much of/) {  
   $sygnal = 0;  
       }   
       if ($sygnal) {  
   print "$content_of_file[$i]";  
       }    
   }  
   print "</pre>\n";  
           if ($advanced_role) {              if ($advanced_role) {  
         #LaTeX failed to parse tex file 
         print "<h2>LaTeX could not successfully parse your tex file.</h2>";
         print "It probably has errors in it.<br />";
         print "With very high probability this error occured in ".$badtext."<br /><br />";
         print "Here are the error messages in the LaTeX log file</br><br /><pre>";
         my $sygnal = 0;
         for (my $i=0;$i<=$#content_of_file;$i++) {
     if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {
         $sygnal = 1;
     } 
     if ($content_of_file[$i]=~m/Here is how much of/) {
         $sygnal = 0;
     } 
     if ($sygnal) {
         print "$content_of_file[$i]";
     }  
         }
         print "</pre>\n";
       # print "<br> Advanced role <br>";        # print "<br> Advanced role <br>";
               print "<b><big>The link to ";                print "<b><big>The link to ";
               $logfilename=~s/\/home\/httpd//;                $logfilename=~s/\/home\/httpd//;
Line 386  foreach $texfile (@texfile) { Line 388  foreach $texfile (@texfile) {
               #    $name_file     - is the name of the LaTeX file.                #    $name_file     - is the name of the LaTeX file.
               #    $identifier    - is the unique LaTeX identifier.l                #    $identifier    - is the unique LaTeX identifier.l
   
         print "<br>There are errors in $badtext";
         print "<br>These errors prevent this resource from printing correctly";
       my $tex_handle = IO::File->new($name_file);        my $tex_handle = IO::File->new($name_file);
       my @tex_contents = <$tex_handle>;        my @tex_contents = <$tex_handle>;
       &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);        &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);
         print "<br>A message has been sent to the instructor describing this failure<br>"
   }    }
   
       } elsif ($body_log_file=~m/<inserted text>/) {        } elsif ($body_log_file=~m/<inserted text>/) {
Removed from v.1.82  
changed lines
  Added in v.1.83

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.