version 1.33, 2003/08/14 14:46:52
|
version 1.34, 2003/08/28 13:52:22
|
Line 95 use Image::Magick;
|
Line 95 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 137 use Image::Magick;
|
Line 137 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 |