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

Diff for /loncom/interface/printout.pl between versions 1.31 and 1.35

version 1.31, 2003/07/24 14:57:54 version 1.35, 2003/08/28 13:58:35
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/;
Line 81  use Image::Magick; Line 88  use Image::Magick;
   print "$content_of_file[$i]<br />";    print "$content_of_file[$i]<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";
   
       } 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>';
   print "You are running LaTeX in the <b>batch mode</b>.";    print "You are running LaTeX in the <b>batch mode</b>.";
Line 88  use Image::Magick; Line 113  use Image::Magick;
       my $tempobegin=$whereitbegins;        my $tempobegin=$whereitbegins;
       $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;        $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
       my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;        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)." and corrected it.\n";        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";        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;        $whereitbegins = index $body_log_file,'<inserted text>',$tempobegin+10;
   }    }
Line 130  use Image::Magick; Line 155  use Image::Magick;
               $logfilename=~s/\/home\/httpd//;                $logfilename=~s/\/home\/httpd//;
       print "<a href=\"$logfilename\">Your log file </a></big></b>";        print "<a href=\"$logfilename\">Your log file </a></big></b>";
       print "\n";        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";
   }    }
       } else {        } else {
   #LaTeX successfully parsed tex file     #LaTeX successfully parsed tex file 
Removed from v.1.31  
changed lines
  Added in v.1.35

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