version 1.34, 2003/03/28 23:32:46
|
version 1.39, 2003/06/18 21:04:42
|
Line 49 sub evaluate {
|
Line 49 sub evaluate {
|
}; |
}; |
my $innererror; |
my $innererror; |
eval { |
eval { |
alarm(Apache->request->server->timeout); |
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
$innererror=$@; |
$innererror=$@; |
Line 87 sub run {
|
Line 87 sub run {
|
}; |
}; |
my $innererror; |
my $innererror; |
eval { |
eval { |
alarm(Apache->request->server->timeout); |
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
@result=$safeeval->reval($code); |
@result=$safeeval->reval($code); |
$innererror=$@; |
$innererror=$@; |
alarm(0); |
alarm(0); |
}; |
}; |
my $error=$@; |
my $error=$@; |
&Apache::lonxml::debug("run got $@"); |
|
if (($Apache::run::timeout || $error ne '' || $innererror ne '') && !$hideerrors) { |
if (($Apache::run::timeout || $error ne '' || $innererror ne '') && !$hideerrors) { |
if ($Apache::run::timeout) { |
if ($Apache::run::timeout) { |
$error = 'Code ran too long. It ran for more than '. |
$error = 'Code ran too long. It ran for more than '. |
Line 131 sub dump {
|
Line 130 sub dump {
|
$symname.'{$_} } sort keys %'. |
$symname.'{$_} } sort keys %'. |
$symname.')').")" |
$symname.')').")" |
} |
} |
if ($line ne '') { $dump.=&HTML::Entities::encode($line)."<br />\n"; } |
if ($line ne '') { $dump.=&HTML::Entities::encode($line)."<br />"; } |
} |
} |
} |
} |
$dump.=''; |
$dump.=''; |