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

Diff for /loncom/interface/printout.pl between versions 1.29 and 1.30

version 1.29, 2003/07/22 14:46:44 version 1.30, 2003/07/23 18:58:59
Line 55  use Image::Magick; Line 55  use Image::Magick;
       my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n";        my $temporary_file=IO::File->new($logfilename) || die "Couldn't open file for reading: $!\n";
       my @content_of_file = <$temporary_file>;        my @content_of_file = <$temporary_file>;
       close $temporary_file;         close $temporary_file; 
       my $body_log_file = join(' ',@content_of_file);         my $body_log_file = join(' ',@content_of_file);
         $logfilename =~ s/\.log$/\.html/;
         $temporary_file = IO::File->new('>'.$logfilename); 
         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     #LaTeX failed to parse tex file 
   print "<h2>LaTeX could not successfully parse your tex file.</h2>";    print "<h2>LaTeX could not successfully parse your tex file.</h2>";
Line 80  use Image::Magick; Line 83  use Image::Magick;
   }     } 
       } elsif ($body_log_file=~m/<inserted text>/) {        } elsif ($body_log_file=~m/<inserted text>/) {
   my $whereitbegins = index $body_log_file,'<inserted text>';    my $whereitbegins = index $body_log_file,'<inserted text>';
   $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;  
   my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;  
   print "You are running LaTeX in the <b>batch mode</b>. \n";    print "You are running LaTeX in the <b>batch mode</b>. \n";
   print "It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." and corrected it.\n";    while ($whereitbegins != -1) {
   print "Usually this correction is valid but you probably need to check the indicated resource one more time and implement neccessary corrections by yourself.\n";        my $tempobegin=$whereitbegins;
         $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
         my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;
         print "It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." and corrected it.\n";
         print "Usually this correction is valid but you probably need to check the indicated resource one more time and implement neccessary corrections by yourself.\n";
         $whereitbegins = index $body_log_file,'<inserted text>',$tempobegin+10;
     }
   $name_file =~ s/\.tex/\.dvi/;    $name_file =~ s/\.tex/\.dvi/;
   my $new_name_file = $name_file;    my $new_name_file = $name_file;
   $new_name_file =~ s/\.dvi/\.ps/;    $new_name_file =~ s/\.dvi/\.ps/;
Line 114  use Image::Magick; Line 121  use Image::Magick;
       $texaux =~ s/\.tex/\.aux/;        $texaux =~ s/\.tex/\.aux/;
       $texdvi =~ s/\.tex/\.dvi/;        $texdvi =~ s/\.tex/\.dvi/;
       $texps =~ s/\.tex/\.ps/;        $texps =~ s/\.tex/\.ps/;
       my @garb = ($texlog,$texaux,$texdvi,$texps);        my @garb = ($texaux,$texdvi,$texps);
 #  unlink @garb;  #  unlink @garb;
       unlink $duefile;        unlink $duefile;
       print "<a href=\"/prtspool/$name_file\">Your PDF document</a>";        print "<a href=\"/prtspool/$name_file\">Your PDF document</a>";
         print "<br /><br />";
                 print "<b><big>The link to ";
                 $logfilename=~s/\/home\/httpd//;
         print "<a href=\"$logfilename\">Your log file </a></big></b>";
       print "\n";        print "\n";
   }    }
       } else {        } else {
Removed from v.1.29  
changed lines
  Added in v.1.30

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