',$tempobegin+10;
- }
- $name_file =~ s/\.tex/\.dvi/;
- my $new_name_file = $name_file;
- $new_name_file =~ s/\.dvi/\.ps/;
- my $papera=$paper;
- if ($papera eq 'letter') {$papera='';}
- if ($papera ne '') {$papera='-t'.$papera;}
- my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
- &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
- "for $status_statement now Converting to PS",
- \%prog_state,$new_name_file);
- if (-e $new_name_file) {
- my $latex_file = $name_file;
- $latex_file =~ s/\.dvi/\.tex/;
- &repaginate($new_name_file, $latex_file, $numberofcolumns);
- #
- # Now have to re-latex, re dvips again to
- # get the repaginated postscript.
- #
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement first latex to repaginate",
- \%prog_state, $name_file);
- if ($tableofcontents eq 'yes') {
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement second latex to repaginate",
- \%prog_state, $name_file);
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement third latex to repaginate",
- \%prog_state, $name_file);
- }
- if ($tableofindex eq 'yes') {
- my $idxname = $latex_file;
- $idxname =~ s/\.tex$/\.idx/;
- &busy_wait_command("makindex $idxname",
- "Re-creating index file",
- \%prog_state, $idxname);
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement now Recreting index (latex)",
- \%prog_state, $dvi_file);
- }
- &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
- "for $status_statement dvips to repaginate",
- \%prog_state, $new_name_file);
- #
- # One last little hinky kinky thing.
- # It's just possible that some fonts could not be maded
- # at the resolution of the pdf print driver.
- # In that case a file called missfont.log will have been
- # created that will contain the commands that were attempted
- # to create the missing fonts. If we basically
- # take all the 8000 strings in that file, and
- # replace them with 600 (the ljfour resolution)
- # run the commands in that file and redvips,
- # we'll be able to print the missing glyphs at 600dpi.
- #
- # Supposedly it is possible to tune TeX/Metafont to do this
- # right but I failed to get that to work when following the
- # docs at the tug site, hence this rather kludgey fix.
- #
- # We make the (I think) reasonable assumption that
- # missing glyphs won't change the pagination and I think
- # this is true because TeX/dvips will leave a space
- # instead of these glyphs based on the font metrics
- # (fancy way to say there will be a blank the size of the missing
- # glyphs).
- #
- my $print_directory = dirname($name_file);
- my $missfonts_file = $print_directory."/missfont.log";
- #print("
Missing fonts file is: $missfonts_file");
- if (-e $missfonts_file) {
- #print("
Missing fonts file exists\n");
- &create_missing_fonts($missfonts_file);
- unlink($missfonts_file, \%prog_state);
- &busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
- "for $status_statement dvips generated missing fonts",
- \%prog_state, $new_name_file);
- }
+ my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/;
- #
- print "\nPDF output file (see link below)
\n";
- $new_name_file =~ m/^(.*)\./;
- my $ps_file = my $tempo_file = $1.'temporar.ps';
- my $pdf_file = $1.'.pdf';
- if ($laystyle eq 'album' and $numberofcolumns eq '2') {
- my $papera=$paper;
- if ($papera eq 'letter') {$papera='';}
- if ($papera ne '') {$papera='-p'.$papera;}
- $comma = "psnup $papera -2 -s1.0 $new_name_file";
- &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
- "for $status_statement now Modifying PS layout",
- \%prog_state,$tempo_file);
- } elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
- my $papera=$paper;
- if ($papera eq 'letter') {$papera='';}
- if ($papera ne '') {$papera='-p'.$papera;}
- $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';
- &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
- "for $status_statement now Modifying PS layout",
- \%prog_state,$tempo_file);
- } else {
- $ps_file=$new_name_file;
- }
- &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",
- "for $status_statement now Converting PS to PDF",
- \%prog_state, $pdf_file);
+ if (&analyze_logfile($logfilename, $texfile, $advanced_role)) {
+
- my $texlog = $texfile;
- my $texaux = $texfile;
- my $texdvi = $texfile;
- my $texps = $texfile;
- $texlog =~ s/\.tex/\.log/;
- $texaux =~ s/\.tex/\.aux/;
- $texdvi =~ s/\.tex/\.dvi/;
- $texps =~ s/\.tex/\.ps/;
- my @garb = ($texaux,$texdvi,$texps);
-# unlink @garb;
- unlink $duefile;
- print "Your PDF document";
- }
- if ($advanced_role) {
- print "
";
- print "The link to ";
- $logfilename=~s/\/home\/httpd//;
- print "Your log file ";
- print "\n";
- #link tooriginal LaTeX file (included according Michael Hamlin desire)
- my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile 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 'LOGFILE'.$body_tex_file.'
'."\n";
- print "
";
- print "The link to ";
- $texfile=~s/\/home\/httpd//;
- print "Your original LaTeX file ";
- print "\n";
- }
- } else {
#LaTeX successfully parsed tex file
$name_file =~ s/\.tex/\.dvi/;
my $new_name_file = $name_file;
@@ -635,7 +422,8 @@ foreach $texfile (@texfile) {
my $papera=$paper;
if ($papera eq 'letter') {$papera='';}
if ($papera ne '') {$papera='-t'.$papera;}
- my $comma = "dvips $papera -Ppdf -G0 -o $new_name_file";
+ my $extra_ps_header = $perlvar{'lonLib'} .'/includepsheader.ps';
+ my $comma = "dvips $papera -h $extra_ps_header -Ppdf -G0 -o $new_name_file";
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
"for $status_statement now Converting to PS",
\%prog_state,$new_name_file);
@@ -655,20 +443,13 @@ foreach $texfile (@texfile) {
# right but I failed to get that to work when following the
# docs at the tug site, hence this rather kludgey fix.
#
- # We make the (I think) reasonable assumption that
- # missing glyphs won't change the pagination and I think
- # this is true because TeX/dvips will leave a space
- # instead of these glyphs based on the font metrics
- # (fancy way to say there will be a blank the size of the missing
- # glyphs).
- #
+
my $print_directory = dirname($name_file);
my $missfonts_file = $print_directory."/missfont.log";
#print("
Missing fonts file is: $missfonts_file");
if (-e $missfonts_file) {
#print("
Missing fonts file exists\n");
- &create_missing_fonts($missfonts_file);
- unlink($missfonts_file);
+ &create_missing_fonts($missfonts_file,\%prog_state);
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
"for $status_statement dvips generated missing fonts",
\%prog_state, $new_name_file);
@@ -677,27 +458,16 @@ foreach $texfile (@texfile) {
my $latex_file = $name_file;
$latex_file =~ s/\.dvi/\.tex/;
&repaginate($new_name_file, $latex_file, $numberofcolumns);
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement first latex to repaginate",
- \%prog_state, $name_file);
- if ($tableofcontents eq 'yes') {
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement second latex to repaginate",
- \%prog_state, $name_file);
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement third latex to repaginate",
- \%prog_state, $name_file);
- }
- if ($tableofindex eq 'yes') {
- my $idxname = $latex_file;
- $idxname =~ s/\.tex$/\.idx/;
- &busy_wait_command("makeindex $idxname",
- "Re-creating index file",
- \%prog_state, $idxname);
- &busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null",
- "for $status_statement now Recreting index (latex)",
- \%prog_state, $dvi_file);
- }
+
+ &make_dvi_file($latex_file,
+ $name_file,
+ $tableofcontents,
+ $tableofindex,
+ $status_statement,
+ \%prog_state,
+ $busy_wait_timeout);
+
+
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null",
"for $status_statement dvips to repaginate",
\%prog_state, $new_name_file);
@@ -707,14 +477,21 @@ foreach $texfile (@texfile) {
my $ps_file = my $tempo_file = $1.'temporar.ps';
my $pdf_file = $1.'.pdf';
$papera=~s/t/p/;
+ $comma = "fixps --force $new_name_file";
+ &debug("FIXPS command: $comma");
+ &busy_wait_command("$comma 1>/dev/null 2>/dev/null",
+ "for $status_statement now validating PS",
+ \%prog_state,$tempo_file);
if ($laystyle eq 'album' and $numberofcolumns eq '2') {
$comma = "psnup $papera -2 -s1.0 $new_name_file";
+ &debug("PSNUP command: $comma");
&busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
"for $status_statement now Modifying PS layout",
\%prog_state,$tempo_file);
} elsif ($laystyle eq 'book' and $numberofcolumns eq '2') {
- $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)"';
- &busy_wait_command("$comma $new_name_file $tempo_file 1>/dev/null 2>/dev/null",
+ $comma = 'pstops '.$papera.' "2:0+1(0.48w,0)" '.$new_name_file;
+ &debug("PSTOPS command: $comma ");
+ &busy_wait_command("$comma $tempo_file 1>/dev/null 2>/dev/null",
"for $status_statement now Modifying PS layout",
\%prog_state,$tempo_file);
} else {
@@ -741,7 +518,7 @@ foreach $texfile (@texfile) {
close(FFHS);
$ps_file=$new_ps_file;
}
- &busy_wait_command("ps2pdf $ps_file $pdf_file 1>/dev/null 2>/dev/null",
+ &busy_wait_command("ps2pdf13 $ps_file $pdf_file 1>/dev/null 2>/dev/null",
"for $status_statement now Converting PS to PDF",
\%prog_state,$pdf_file);
@@ -755,10 +532,12 @@ foreach $texfile (@texfile) {
$texps =~ s/\.tex/\.ps/;
my @garb = ($texlog,$texaux,$texdvi,$texps);
# unlink @garb;
- unlink $duefile;
+ unlink($duefile);
print "$link_text - click here to download pdf";
print "\n";
}
+ unlink($missfonts_file);
+
}
} else {
print "LaTeX file $texfile was not created successfully";
@@ -776,7 +555,7 @@ if ($number_of_files>1) {
print("Zip Output:\n");
system($statement);
print("");
- $zipfile=~s/\/home\/httpd//;
+ $zipfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
print "
A ZIP file of all the PDFs.";
}
if ($advanced_role) { &Apache::lonhtmlcommon::Close_PrgWin('',\%prog_state); }
@@ -786,9 +565,17 @@ my $done;
sub REAPER {
$done=1;
}
-
+#
+# Execute a command updating the status window as the command's
+# output file builds up (at intervals of a second).
+#
+# If the timeout argument defined, then if that many seconds
+# elapses without an increase in the size of the output file,
+# the command will be killed (this deals with the case when
+# latex crawls into an infinite loop).
+#
sub busy_wait_command {
- my ($command,$message,$progress_win,$output_file)=@_;
+ my ($command,$message,$progress_win,$output_file, $timeout)=@_;
$SIG{CHLD} = \&REAPER;
$done=0;
@@ -796,12 +583,30 @@ sub busy_wait_command {
if ($advanced_role) {
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,$message);
}
+ my $last_size = 0;
+ my $unchanged_time = 0;
while(!$done) {
sleep 1;
my $extra_msg;
if ($output_file) {
my $size=(stat($output_file))[7];
$extra_msg=", $size bytes generated";
+ if ($size == $last_size) {
+ $unchanged_time++;
+ if ($timeout && ($unchanged_time > $timeout)) {
+ print "Operation timed out!
\n";
+ print "Executing $command, the output file $output_file did not grow\n";
+ print "after $timeout seconds. This may indicate $command\n";
+ print "is in an infinite loop.\n";
+ print "See if printing fewer copies helps. Please contact LON-CAPA\n";
+ print "support about this in any event.";
+ print "
";
+ kill(9, $pid); # Reaper will do the rest...I hope there's errors in the log.
+ }
+ } else {
+ $last_size = $size;
+ $unchanged_time = 0;
+ }
}
if ($advanced_role) {
&Apache::lonhtmlcommon::Update_PrgWin('',$progress_win,
@@ -812,6 +617,66 @@ sub busy_wait_command {
close(CMD);
}
+# Make the dvi file (or rather try to), from the latex file and the
+# various bits and pieces that control how the latex file is processed:
+# LaTeX is run as many times a needed to make this all happen... this may
+# result in several runs of LaTeX that just are errors if the LaTeX is
+# bad, but the printing subsystem is _supposed_ to not do that.
+#
+# Parameters:
+# name_file - Name of the LaTeX file to process.
+# dvi_file - Name of resulting dvi file.
+# tableofcontents - "yes" if we are supposed to make a table of contents.
+# tableofindex - "yes" if we are suposed to make an index.
+# status_statement - Part of the status statement for ths status window.
+# prog_state - Reference to the program state hash.
+# busy_wait_timeout- Seconds without any progress that imply a problem.
+#
+#
+sub make_dvi_file {
+ my ($name_file,
+ $dvi_file,
+ $tableofcontents,
+ $tableofindex,
+ $status_statement,
+ $prog_state,
+ $busy_wait_timeout) = @_;
+
+
+ &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
+ "for $status_statement now LaTeXing file",
+ $prog_state,$dvi_file, $busy_wait_timeout);
+
+ # If the tableof contents was requested, we need to run
+ # LaTex a couple more times to get all the references sorted out.
+
+ if ($tableofcontents eq 'yes') {
+ &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
+ "for $status_statement First LaTeX of file for table of contents",
+ $prog_state,$dvi_file, $busy_wait_timeout);
+ &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
+ "for $status_statement Second LaTeX of file for table of contents",
+ $prog_state,$dvi_file,$busy_wait_timeout);
+ }
+
+ # And makeindex and another run of LaTeX to incorporate it if the index
+ # is enabled.
+
+
+ if ($tableofindex eq 'yes') {
+ my $idxname=$name_file;
+ $idxname=~s/\.tex$/\.idx/;
+ &busy_wait_command("makeindex $idxname",
+ "making index file",
+ $prog_state,$idxname);
+ &busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null",
+ "for $status_statement now LaTeXing file for index section",
+ $prog_state,$dvi_file, $busy_wait_timeout);
+ }
+
+}
+
+
# Repagninate
# What we need to do:
# - Count the number of pages in each student.
@@ -861,8 +726,8 @@ sub repaginate {
# bottom of the page, m the page number within the document.
#
- if ($line =~ /^%%Page:/) {
- my @pageinfo = split(/ /, $line);
+ if ($line =~ /^%%Page:\s+\d+\s+\d+/) {
+ my @pageinfo = split(/\s+/, $line);
if ($page_number < $pageinfo[1]) {
$page_number = $pageinfo[1];
} elsif ($pageinfo[2] ne 1) {
@@ -993,8 +858,283 @@ sub create_missing_fonts {
#print("
Creating fonts via command: $command");
&busy_wait_command("$command 1>/dev/null 2>/dev/null",
"Creating missing font",
- $state, $command);
+ $state);
}
}
+#
+# Convert a figure file to encapsulated postscript:
+# At present, this is using a lot of file scoped globals to pass data around.
+# Parameters:
+# not_eps - The name of the file to convert which, presumably, is not
+# already an eps file.
+#
+sub convert_figure {
+ my ($not_eps) = @_;
+ &debug("in convert_figure");
+
+ my $status_statement='EPS picture for '.$not_eps;
+ my $eps_f = $not_eps;
+
+ if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
+ $eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
+ } elsif ($eps_f=~/$perlvar{'lonDocRoot'}\/res\//) {
+ $eps_f=~ s/$perlvar{'lonDocRoot'}\/res\/(.+)/$1/;
+ } elsif ($eps_f=~/$perlvar{'lonUsersDir'}\//) {
+ $eps_f=~ s/$perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/$1\/$2/;
+ }
+
+ $eps_f = $perlvar{'lonPrtDir'}.'/'.$eps_f;
+
+ # Spaces are problematic for system commands and LaTeX, replace with _
+
+ $eps_f =~ s/ /\_/g;
+
+ #
+ # If the file is already an .eps or .ps file (eps_f still has the original
+ # file type),
+ # We really just need to copy it from where it was to prtspool
+ # but with the spaces substituted to _'s.
+ #
+ my ($nsname,$path, $sext) = &fileparse($eps_f, qr/\.(ps|eps)/i);
+ if ($sext =~/ps$/i) {
+ &File::Path::mkpath($path,0,0777);
+ copy("$not_eps", "$eps_f");
+ } else {
+
+ $eps_f .= '.eps'; # Just append the eps ext.
+ my $path= &dirname($eps_f);
+ &File::Path::mkpath($path,0,0777);
+ $not_eps =~ s/^\s+//;
+ $not_eps =~ s/\s+$//;
+ $not_eps =~ s/ /\\ /g;
+ if ($advanced_role) {
+ my $prettyname=$not_eps;
+ $prettyname=~s|/home/([^/]+)/public_html|/priv/$1|;
+ $prettyname=~s|$perlvar{'lonDocRoot'}/|/|;
+ &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,
+ 'Converting to EPS '.$prettyname);
+ }
+ #
+ # If the file is a PDF, need to use pdftops to convert it to a ps file.
+ # otherwise use imagemagik:
+ #
+ if($not_eps =~/\.(pdf|PDF)$/) {
+
+ #
+ # For whatever reason, pure postscript conversions have to be
+ # in the same dir as the base file:
+ #
+ $eps_f = &basename($eps_f);
+ $eps_f = $perlvar{'lonPrtDir'}.'/'.$eps_f;
+
+ &debug("Converting pdf $not_eps to postscript: $eps_f");
+ system("pdftops $not_eps $eps_f");
+ } else {
+ system("convert $not_eps $eps_f");
+ }
+
+ if (not -e $eps_f) {
+ # converting an animated gif creates either:
+ # anim.gif.eps.0
+ # or
+ # anim.gif-0.eps
+ for (my $i=0;$i<10000;$i++) {
+ if (-e $eps_f.'.'.$i) {
+ rename($eps_f.'.'.$i, $eps_f);
+ last;
+ }
+ my $anim_eps = $eps_f;
+ $anim_eps =~ s/(\.[^.]*)\.eps$/$1-$i\.eps/i;
+ if (-e $anim_eps) {
+ rename($anim_eps, $eps_f);
+ last;
+ }
+ }
+ }
+
+ # imagemagick 6.2.0-6.2.7 fails to properly handle
+ # convert anim.gif anim.gif.eps
+ # it creates anim.eps instead.
+ if (not -e $eps_f) {
+ my $eps_f2 = $eps_f;
+ $eps_f2 =~ s/\.[^.]*\.eps$/\.eps/i;
+ if(-e $eps_f2) {
+ rename($eps_f2,$eps_f);
+ }
+ }
+ }
+
+}
+#
+# Analyze a LaTeX logfile producing appropriate output on error and
+# returning a boolean to let the caller know if, in our opinion, it's
+# worth continuing on to produce the PDF file.
+#
+# Parameters:
+# logfilename - Name of the logfile.
+# texfile - Name of the LaTeX file that was being processed.
+# advanced_role - True if the user is privileged with respect to the printout
+# (e.g. is the course coordinator or some such thing).
+# Returns:
+# 1 - Caller is advised to continue to create the PDF.
+# 0 - Caller need not bother creating the PDF.
+# Side Effects:
+# Messages are printed to describe any errors that have been encountered.
+# NOTE:
+# The current policy is to assume that if LaTeX decided to insert some text
+# it has salvaged the resource and the resource can be printed.. in that case
+# a message is emitted from this sub.
+#
+sub analyze_logfile {
+ my ($logfilename, $texfile, $advanced_role) = @_;
+
+ my $temporary_file=IO::File->new($logfilename) || die "Couldn't open log file $logfilename for reading: $!\n";
+ my @content_of_file = <$temporary_file>;
+ close $temporary_file;
+ my $body_log_file = join(' ',@content_of_file);
+ $logfilename =~ s/\.log$/\.html/;
+ $temporary_file = IO::File->new('>'.$logfilename);
+ print $temporary_file 'LOGFILE'.$body_log_file.'
'."\n";
+ if ($body_log_file=~m/!\s+Emergency stop/) {
+ my $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART';
+ my $whereitends = rindex $body_log_file,'STAMPOFPASSEDRESOURCEEND';
+ my $badresource;
+ my $badtext;
+ if ($whereitbegins!=-1 and $whereitends!=-1) {
+ $badtext = substr($body_log_file,$whereitbegins+26, $whereitends-$whereitbegins-26);
+ $whereitbegins = rindex $badtext,'located in';
+ if ($whereitbegins != -1) {
+
+ $badresource = substr($badtext, $whereitbegins+27,
+ length($badtext) - $whereitbegins - 48);
+ # print "
failing resourcename: $badresource
";
+ }
+ }
+
+ # Guys with privileged roles get a more detailed error output:
+
+ if ($advanced_role) {
+ #LaTeX failed to parse tex file
+ print "".&mt('LaTeX could not successfully parse your TeX file.')."
";
+ print &mt('It probably has errors in it.')."
";
+ if ($badtext) {
+ print &mt('With very high probability this error occured in [_1].',$badtext)
+ ."
";
+ }
+ print &mt('Here are the error messages in the LaTeX log file:')
+ ."
";
+
+ my $sygnal = 0;
+ for (my $i=0;$i<=$#content_of_file;$i++) {
+ if ($content_of_file[$i]=~m/^Runaway argument?/ or $content_of_file[$i]=~m/^!/) {
+ $sygnal = 1;
+ }
+ if ($content_of_file[$i]=~m/Here is how much of/) {
+ $sygnal = 0;
+ }
+ if ($sygnal) {
+ print "$content_of_file[$i]";
+ }
+ }
+ print "\n";
+ # print "
Advanced role
";
+ $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
+ print ""
+ .&mt('The link to [_1]Your log file[_2]','','')
+ ."\n";
+ #link to original LaTeX file
+ my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile 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 'LOGFILE'.$body_tex_file.'
'."\n";
+ print "
";
+ $texfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
+ print ""
+ .&mt('The link to [_1]Your original LaTeX file[_2]','','')
+ ."
\n";
+ my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", &mt('Help on printing'));
+ print ("$help_text");
+
+ # Students on the other hand get a minimal error message, since they won't
+ # be able to correct the error message. A message is sent to the
+ # instructor:
+
+ } else { # Student role...
+ # at this point:
+ # $body_log_file - contains the log file.
+ # $name_file - is the name of the LaTeX file.
+ # $identifier - is the unique LaTeX identifier.l
+
+ print '';
+ if ($badtext) {
+ print &mt('There are errors in [_1].',$badtext);
+ } else {
+ print &mt('There are errors.');
+ }
+ print '
'
+ .&mt('These errors prevent this resource from printing correctly.');
+
+ my $tex_handle = IO::File->new($texfile);
+ my @tex_contents = <$tex_handle>;
+ &send_error_mail($identifier, $badresource, $body_log_file, \@tex_contents);
+ print ""
+ .&mt('A message has been sent to the instructor describing this failure.')
+ ."
";
+ my $help_text = &Apache::loncommon::help_open_topic("Print_Resource", &mt('Help on printing'));
+ print ("$help_text");
+
+ }
+
+ # Either way, an emergency stop does not allow us to continue so:
+
+ return 0;
+
+ # The branch of code below is taken if it appears that
+ # there was no emergency stop but LaTeX had to correct the
+ # input file to run.
+ # In that case we need to provide error feedback, as the correction >may< not be
+ # sufficient, we can let the game continue as there's a dvi file to process.
+
+ } elsif ($body_log_file=~m//) {
+ my $whereitbegins = index $body_log_file,'';
+ print &mt('You are running LaTeX in [_1]batch mode[_2].','','');
+ while ($whereitbegins != -1) {
+ my $tempobegin=$whereitbegins;
+ $whereitbegins = rindex $body_log_file,'STAMPOFPASSEDRESOURCESTART',$whereitbegins;
+ my $whereitends = index $body_log_file,'STAMPOFPASSEDRESOURCEEND',$whereitbegins;
+ print "
"
+ .&mt('It has found an error in [_1][_2]and corrected it.',substr($body_log_file,$whereitbegins+26,$whereitends-$whereitbegins-26),"
")."\n";
+ print &mt('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,'',$tempobegin+10;
+ }
+
+ if ($advanced_role) {
+ print "
";
+ $logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
+ print ""
+ .&mt('The link to [_1]Your log file[_2]'
+ ,'','')
+ ."\n";
+ #link to original LaTeX file
+ my $tex_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile 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 'LOGFILE'.$body_tex_file.'
'."\n";
+ print "
";
+ $texfile=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool};
+ print ""
+ .&mt('The link to [_1]Your original LaTeX file[_2]','','');
+ print "\n";
+ }
+ return 1;
+ }
+ return 1; # NO log file issues at all.
+}
500 Internal Server Error
Internal Server Error
The server encountered an internal error or
misconfiguration and was unable to complete
your request.
Please contact the server administrator at
root@localhost to inform them of the time this error occurred,
and the actions you performed just before this error.
More information about this error may be available
in the server error log.