version 1.49, 2004/08/10 19:16:40
|
version 1.55, 2006/01/11 08:52:58
|
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
|
Line 50 while (!$_LONCAPA_INTERNAL_oldexpression
|
my $__LC__prefix; |
my $__LC__prefix; |
my $__LC__result; |
my $__LC__result; |
while (1) { |
while (1) { |
|
if ($__LC__a =~ m-^&(theta|i|pi|rho)-) { last; } |
{ |
{ |
use strict; |
use strict; |
no strict "vars"; |
no strict "vars"; |
Line 83 sub evaluate {
|
Line 84 sub evaluate {
|
}; |
}; |
my $innererror; |
my $innererror; |
eval { |
eval { |
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
&Apache::lonxml::start_alarm(); |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
$innererror=$@; |
$innererror=$@; |
alarm(0); |
&Apache::lonxml::end_alarm(); |
}; |
}; |
my $error=$@; |
my $error=$@; |
if ($error eq '' && $innererror eq '' && !$Apache::run::timeout) { |
if ($error eq '' && $innererror eq '' && !$Apache::run::timeout) { |
$result = $safeeval->reval('return $_;'); |
$result = $safeeval->reval('return $_;'); |
chomp $result; |
chomp $result; |
Line 121 sub run {
|
Line 122 sub run {
|
}; |
}; |
my $innererror; |
my $innererror; |
eval { |
eval { |
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
&Apache::lonxml::start_alarm(); |
@result=$safeeval->reval($code); |
@result=$safeeval->reval($code); |
$innererror=$@; |
$innererror=$@; |
alarm(0); |
&Apache::lonxml::end_alarm(); |
}; |
}; |
my $error=$@; |
my $error=$@; |
if (($Apache::run::timeout || $error ne '' || $innererror ne '') && !$hideerrors) { |
if (($Apache::run::timeout || $error ne '' || $innererror ne '') && !$hideerrors) { |
Line 157 sub dump {
|
Line 158 sub dump {
|
my ($target,$safeeval)=@_; |
my ($target,$safeeval)=@_; |
my $dump=''; |
my $dump=''; |
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
foreach my $symname (sort keys %{$safeeval->varglob('main::')}) { |
if (($symname!~/^\_/) && ($symname!~/\:$/)) { |
if (($symname!~ /^(INC|SIG)/) && ($symname!~/\027/) && |
|
($symname!~/^\_/) && ($symname!~/\:$/)) { |
my $line; |
my $line; |
if ($safeeval->reval('defined($'.$symname.')')) { |
if ($safeeval->reval('defined($'.$symname.')')) { |
$line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
if ($symname =~ /^\w/) { |
|
$line.='$'.$symname.'='.$safeeval->reval('$'.$symname)."\n"; |
|
} |
} |
} |
if ($safeeval->reval('defined(@'.$symname.')')) { |
if ($safeeval->reval('defined(@'.$symname.')')) { |
$line.='@'.$symname.'=('. |
$line.='@'.$symname.'=('. |
Line 170 sub dump {
|
Line 174 sub dump {
|
$line.='%'.$symname.'=('; |
$line.='%'.$symname.'=('; |
$line.=$safeeval->reval('join(",",map { $_."=>".$'. |
$line.=$safeeval->reval('join(",",map { $_."=>".$'. |
$symname.'{$_} } sort keys %'. |
$symname.'{$_} } sort keys %'. |
$symname.')').")"."\n" |
$symname.')').")"."\n"; |
} |
} |
if ($line ne '') { |
if ($line ne '') { |
$line=&HTML::Entities::encode($line,'<>&"'); |
$line=&HTML::Entities::encode($line,'<>&"'); |
$line=~s|\n|<br />|; |
$line=~s|\n|<br />|g; |
$dump.=$line; |
$dump.=$line; |
} |
} |
} |
} |