version 1.129, 2008/01/28 11:24:48
|
version 1.131, 2008/03/10 22:42:28
|
Line 43 use LONCAPA::Configuration;
|
Line 43 use LONCAPA::Configuration;
|
|
|
use strict; |
use strict; |
|
|
|
my $busy_wait_timeout = 300; |
|
|
# Determine if a user is operating as a student for this course/domain. |
# Determine if a user is operating as a student for this course/domain. |
#Parameters: |
#Parameters: |
Line 379 foreach $texfile (@texfile) {
|
Line 380 foreach $texfile (@texfile) {
|
my $dvi_file= $name_file; $dvi_file =~ s/\.tex/$name_range\.dvi/; |
my $dvi_file= $name_file; $dvi_file =~ s/\.tex/$name_range\.dvi/; |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement now LaTeXing file", |
"for $status_statement now LaTeXing file", |
\%prog_state,$dvi_file, 10); |
\%prog_state,$dvi_file, $busy_wait_timeout); |
if ($tableofcontents eq 'yes') { |
if ($tableofcontents eq 'yes') { |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement First LaTeX of file for table of contents", |
"for $status_statement First LaTeX of file for table of contents", |
\%prog_state,$dvi_file, 10); |
\%prog_state,$dvi_file, $busy_wait_timeout); |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement Second LaTeX of file for table of contents", |
"for $status_statement Second LaTeX of file for table of contents", |
\%prog_state,$dvi_file,10); |
\%prog_state,$dvi_file,$busy_wait_timeout); |
} #to create table of contents |
} #to create table of contents |
my $idxname=$name_file; |
my $idxname=$name_file; |
$idxname=~s/\.tex$/\.idx/; |
$idxname=~s/\.tex$/\.idx/; |
Line 396 foreach $texfile (@texfile) {
|
Line 397 foreach $texfile (@texfile) {
|
\%prog_state,$idxname); |
\%prog_state,$idxname); |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement now LaTeXing file for index section", |
"for $status_statement now LaTeXing file for index section", |
\%prog_state,$dvi_file,10); |
\%prog_state,$dvi_file, $busy_wait_timeout); |
} #to create index |
} #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; $logfilename =~ s/\.tex$/\.log/; |
my $logfilename = $texfile; $logfilename =~ s/\.tex$/\.log/; |
Line 512 foreach $texfile (@texfile) {
|
Line 513 foreach $texfile (@texfile) {
|
# |
# |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement first latex to repaginate", |
"for $status_statement first latex to repaginate", |
\%prog_state, $name_file,10); |
\%prog_state, $name_file,$busy_wait_timeout); |
if ($tableofcontents eq 'yes') { |
if ($tableofcontents eq 'yes') { |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement second latex to repaginate", |
"for $status_statement second latex to repaginate", |
\%prog_state, $name_file,10); |
\%prog_state, $name_file,$busy_wait_timeout); |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement third latex to repaginate", |
"for $status_statement third latex to repaginate", |
\%prog_state, $name_file,10); |
\%prog_state, $name_file,$busy_wait_timeout); |
} |
} |
if ($tableofindex eq 'yes') { |
if ($tableofindex eq 'yes') { |
my $idxname = $latex_file; |
my $idxname = $latex_file; |
Line 529 foreach $texfile (@texfile) {
|
Line 530 foreach $texfile (@texfile) {
|
\%prog_state, $idxname); |
\%prog_state, $idxname); |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement now Recreting index (latex)", |
"for $status_statement now Recreting index (latex)", |
\%prog_state, $dvi_file,10); |
\%prog_state, $dvi_file,$busy_wait_timeout); |
|
|
} |
} |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
Line 685 foreach $texfile (@texfile) {
|
Line 686 foreach $texfile (@texfile) {
|
&repaginate($new_name_file, $latex_file, $numberofcolumns); |
&repaginate($new_name_file, $latex_file, $numberofcolumns); |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement first latex to repaginate", |
"for $status_statement first latex to repaginate", |
\%prog_state, $name_file,10); |
\%prog_state, $name_file, $busy_wait_timeout); |
if ($tableofcontents eq 'yes') { |
if ($tableofcontents eq 'yes') { |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement second latex to repaginate", |
"for $status_statement second latex to repaginate", |
\%prog_state, $name_file,10); |
\%prog_state, $name_file, $busy_wait_timeout); |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement third latex to repaginate", |
"for $status_statement third latex to repaginate", |
\%prog_state, $name_file,10); |
\%prog_state, $name_file, $busy_wait_timeout); |
} |
} |
if ($tableofindex eq 'yes') { |
if ($tableofindex eq 'yes') { |
my $idxname = $latex_file; |
my $idxname = $latex_file; |
Line 702 foreach $texfile (@texfile) {
|
Line 703 foreach $texfile (@texfile) {
|
\%prog_state, $idxname); |
\%prog_state, $idxname); |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("latex $latex_file 1>/dev/null 2>/dev/null", |
"for $status_statement now Recreting index (latex)", |
"for $status_statement now Recreting index (latex)", |
\%prog_state, $dvi_file,10); |
\%prog_state, $dvi_file, $busy_wait_timeout); |
} |
} |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
&busy_wait_command("$comma $name_file 1>/dev/null 2>/dev/null", |
"for $status_statement dvips to repaginate", |
"for $status_statement dvips to repaginate", |
Line 823 sub busy_wait_command {
|
Line 824 sub busy_wait_command {
|
if ($size == $last_size) { |
if ($size == $last_size) { |
$unchanged_time++; |
$unchanged_time++; |
if ($timeout && ($unchanged_time > $timeout)) { |
if ($timeout && ($unchanged_time > $timeout)) { |
|
print "<h1>Operation timed out!!!</h1>\n"; |
|
print "<p>Executing $command, the output file $output_file did not grow\n"; |
|
print "after $timeout seconds. This <em>may</em> 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 "</p>"; |
kill(9, $pid); # Reaper will do the rest...I hope there's errors in the log. |
kill(9, $pid); # Reaper will do the rest...I hope there's errors in the log. |
} |
} |
} else { |
} else { |