--- loncom/xml/run.pm 2005/02/26 06:10:30 1.50
+++ loncom/xml/run.pm 2005/11/08 18:59:03 1.53
@@ -1,6 +1,6 @@
package Apache::run;
#
-# $Id: run.pm,v 1.50 2005/02/26 06:10:30 albertel Exp $
+# $Id: run.pm,v 1.53 2005/11/08 18:59:03 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -83,13 +83,13 @@ sub evaluate {
};
my $innererror;
eval {
- alarm($Apache::lonnet::perlvar{'lonScriptTimeout'});
+ &Apache::lonxml::start_alarm();
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression.
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}');
$innererror=$@;
- alarm(0);
+ &Apache::lonxml::end_alarm();
};
- my $error=$@;
+ my $error=$@;
if ($error eq '' && $innererror eq '' && !$Apache::run::timeout) {
$result = $safeeval->reval('return $_;');
chomp $result;
@@ -121,10 +121,10 @@ sub run {
};
my $innererror;
eval {
- alarm($Apache::lonnet::perlvar{'lonScriptTimeout'});
+ &Apache::lonxml::start_alarm();
@result=$safeeval->reval($code);
$innererror=$@;
- alarm(0);
+ &Apache::lonxml::end_alarm();
};
my $error=$@;
if (($Apache::run::timeout || $error ne '' || $innererror ne '') && !$hideerrors) {
@@ -157,7 +157,7 @@ sub dump {
my ($target,$safeeval)=@_;
my $dump='';
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) {
- if (($symname!~/^\_/) && ($symname!~/\:$/)) {
+ if (($symname!~/\027/) && ($symname!~/^\_/) && ($symname!~/\:$/)) {
my $line;
if ($safeeval->reval('defined($'.$symname.')')) {
if ($symname =~ /^\w/) {
@@ -172,11 +172,11 @@ sub dump {
$line.='%'.$symname.'=(';
$line.=$safeeval->reval('join(",",map { $_."=>".$'.
$symname.'{$_} } sort keys %'.
- $symname.')').")"."\n"
- }
+ $symname.')').")"."\n";
+ }
if ($line ne '') {
$line=&HTML::Entities::encode($line,'<>&"');
- $line=~s|\n|
|;
+ $line=~s|\n|
|g;
$dump.=$line;
}
}