version 1.130, 2008/03/10 10:24:49
|
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 = 20; |
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 825 sub busy_wait_command {
|
Line 825 sub busy_wait_command {
|
$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."; |
print "is in an infinite loop.\n"; |
print "See if printing fewer copies helps. Please contact LonCAPA\n"; |
print "See if printing fewer copies helps. Please contact LON-CAPA\n"; |
print "support about this in any event"; |
print "support about this in any event."; |
print "</p>"; |
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. |
} |
} |