version 1.34, 2003/08/28 13:52:22
|
version 1.35, 2003/08/28 13:58:35
|
Line 88 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>."; |