Return to lonmaxima.pm CVS log | Up to [LON-CAPA] / loncom / homework |
version 1.1, 2006/03/11 16:28:03 | version 1.2, 2006/03/15 20:44:54 |
---|---|
Line 59 sub maximareply { | Line 59 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') { |
if ($cmd=~/$forbidden/) { return 1; } | if ($cmd=~/$forbidden/s) { return 1; } |
} | } |
return 0; | return 0; |
} | } |