version 1.131, 2008/03/10 22:42:28
|
version 1.132, 2008/03/11 01:48:57
|
Line 43 use LONCAPA::Configuration;
|
Line 43 use LONCAPA::Configuration;
|
|
|
use strict; |
use strict; |
|
|
my $busy_wait_timeout = 300; |
my $busy_wait_timeout = 30; |
|
|
# 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 206 $env{'request.noversionuri'} = '/cgi-bin
|
Line 206 $env{'request.noversionuri'} = '/cgi-bin
|
close $temporary_file; |
close $temporary_file; |
my $noteps; |
my $noteps; |
my %prog_state; |
my %prog_state; |
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Coverting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } |
if ($advanced_role) { %prog_state=&Apache::lonhtmlcommon::Create_PrgWin('','Converting Images to EPS','Picture Conversion Status',$#content_of_file,'inline','80'); } |
print('<br />'); |
print('<br />'); |
foreach my $not_eps (@content_of_file) { |
foreach my $not_eps (@content_of_file) { |
chomp($not_eps); |
chomp($not_eps); |
Line 377 foreach $texfile (@texfile) {
|
Line 377 foreach $texfile (@texfile) {
|
my $name_file = $2; |
my $name_file = $2; |
my $path_file = $1.'/'; |
my $path_file = $1.'/'; |
chdir $path_file; |
chdir $path_file; |
my $dvi_file= $name_file; $dvi_file =~ s/\.tex/$name_range\.dvi/; |
my $dvi_file= $name_file; $dvi_file =~ s/\.tex$/\.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, $busy_wait_timeout); |
\%prog_state,$dvi_file, $busy_wait_timeout); |
Line 449 foreach $texfile (@texfile) {
|
Line 449 foreach $texfile (@texfile) {
|
$logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool}; |
$logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool}; |
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) |
#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_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
my @tex_content_of_file = <$tex_temporary_file>; |
my @tex_content_of_file = <$tex_temporary_file>; |
close $tex_temporary_file; |
close $tex_temporary_file; |
Line 620 foreach $texfile (@texfile) {
|
Line 620 foreach $texfile (@texfile) {
|
$logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool}; |
$logfilename=~s{^\Q$perlvar{'lonPrtDir'}\E}{/prtspool}; |
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) |
#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_temporary_file=IO::File->new($texfile) || die "Couldn't open tex file $texfile for reading: $!\n"; |
my @tex_content_of_file = <$tex_temporary_file>; |
my @tex_content_of_file = <$tex_temporary_file>; |
close $tex_temporary_file; |
close $tex_temporary_file; |
Line 824 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 "<h1>Operation timed out!</h1>\n"; |
print "<p>Executing $command, the output file $output_file did not grow\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 "after $timeout seconds. This <em>may</em> indicate $command\n"; |
print "is in an infinite loop.\n"; |
print "is in an infinite loop.\n"; |