[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.34

version 1.29, 2003/07/22 14:46:44 version 1.34, 2003/08/28 13:52:22
Line 49  use Image::Magick; Line 49  use Image::Magick;
       my $path_file = $1.'/';        my $path_file = $1.'/';
       chdir $path_file;        chdir $path_file;
       system("latex $name_file 1>/dev/null 2>/dev/null");        system("latex $name_file 1>/dev/null 2>/dev/null");
         if ($selectionmade>=10) {system("latex $name_file 1>/dev/null 2>/dev/null");} #to create table of contents
         my $idxname=$name_file;
         $idxname=~s/\.tex$/\.idx/;
         if ($selectionmade>=100) {
     system("makeindex $idxname");
     system("latex $name_file 1>/dev/null 2>/dev/null");
         } #to create index
       #Do we have a latex error in the log file?        #Do we have a latex error in the log file?
       my $logfilename = $texfile;        my $logfilename = $texfile;
       $logfilename =~ s/\.tex$/\.log/;        $logfilename =~ s/\.tex$/\.log/;
       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 90  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;    print "You are running LaTeX in the <b>batch mode</b>.";
   my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;    while ($whereitbegins != -1) {
   print "You are running LaTeX in the <b>batch mode</b>. \n";        my $tempobegin=$whereitbegins;
   print "It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." and corrected it.\n";        $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
   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 $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;
         print "<br />It has found an error in".substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26)." <br /> 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 128  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";
                 #link tooriginal LaTeX file (included according Michael Hamlin desire)
         my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open file for reading: $!\n";
         my @tex_content_of_file = <$tex_temporary_file>;
         close $tex_temporary_file; 
         my $body_tex_file = join(' ',@tex_content_of_file);
         $texfile =~ s/\.tex$/aaaaa\.html/;
         $tex_temporary_file = IO::File->new('>'.$texfile); 
         print $tex_temporary_file '<html><head><title>LOGFILE</title></head><body><pre>'.$body_tex_file.'</pre></body></html>'."\n";
         print "<br /><br />";
         print "<b><big>The link to ";
         $texfile=~s/\/home\/httpd//;
         print "<a href=\"$texfile\">Your original LaTeX file </a></big></b>";
       print "\n";        print "\n";
   }    }
       } else {        } else {
Removed from v.1.29  
changed lines
  Added in v.1.34

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