Return to lonmaxima.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.14, 2007/05/26 15:51:08 | version 1.15, 2007/05/29 20:56:39 |
---|---|
Line 60 sub maximareply { | Line 60 sub maximareply { |
sub blacklisted { | sub blacklisted { |
my ($cmd)=@_; | my ($cmd)=@_; |
foreach my $forbidden ('save','load','plot','lisp','includ','compil','file','batch','stringout','translat','stout','stin','block','system') { | foreach my $forbidden ('save','load','plot','lisp','includ','compil', |
'file','batch','stringout','translat','stout', | |
'stin','block','system','concat') { | |
if ($cmd=~/$forbidden/s) { return 1; } | if ($cmd=~/$forbidden/s) { return 1; } |
} | } |
return 0; | return 0; |
Line 77 sub runscript { | Line 79 sub runscript { |
} | } |
$reply=~s/^\s*//gs; | $reply=~s/^\s*//gs; |
$reply=~s/\s*$//gs; | $reply=~s/\s*$//gs; |
&Apache::lonxml::debug("maxima $fullscript \n reply $reply"); | |
return $reply; | return $reply; |
} | } |