![[BACK]](/icons/back.gif){kind=icon}
Return to lonmaxima.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework|
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; |
| } | } |