loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

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.
}	}