version 1.2, 2009/04/18 13:18:58
|
version 1.4, 2009/04/18 23:43:50
|
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', |
|
'Sys\.','unlink','file\.','on\.exit','error', |
|
'q\(\)' |
) { |
) { |
if ($cmd=~/$forbidden/s) { return 1; } |
if ($cmd=~/$forbidden/s) { return 1; } |
} |
} |