loncom/homework/lonr.pm - diff

Return to lonr.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.2, 2009/04/18 13:18:58	version 1.3, 2009/04/18 16:03:17
Line 61 sub rreply {	Line 61 sub rreply {
sub blacklisted {	sub blacklisted {
my ($cmd)=@_;	my ($cmd)=@_;
foreach my $forbidden (	foreach my $forbidden (
'read\.table','scan','plot','X11','windows','quartz',	'read','write','scan','save','socket','connections',
	'open','close',
	'plot','X11','windows','quartz',
'postscript','pdf','png','jpeg',	'postscript','pdf','png','jpeg',
'dev\.list','dev\.next','dev\.prev','dev\.set',	'dev\.list','dev\.next','dev\.prev','dev\.set',
'dev\.off','dev\.copy','dev\.print','graphics\.off',	'dev\.off','dev\.copy','dev\.print','graphics',
'library','package','source','sink','objects'	'library','package','source','sink','objects',
) {	) {
if ($cmd=~/$forbidden/s) { return 1; }	if ($cmd=~/$forbidden/s) { return 1; }
}	}