loncom/homework/lonmaxima.pm - diff

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;
}	}