--- loncom/homework/lonr.pm	2009/04/18 13:18:58	1.2
+++ loncom/homework/lonr.pm	2009/04/18 23:43:50	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Interface routines to R CAS
 #
-# $Id: lonr.pm,v 1.2 2009/04/18 13:18:58 www Exp $
+# $Id: lonr.pm,v 1.4 2009/04/18 23:43:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -61,11 +61,15 @@ sub rreply {
 sub blacklisted {
     my ($cmd)=@_;
     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',
         'dev\.list','dev\.next','dev\.prev','dev\.set',
-        'dev\.off','dev\.copy','dev\.print','graphics\.off',
-        'library','package','source','sink','objects'
+        'dev\.off','dev\.copy','dev\.print','graphics',
+        'library','package','source','sink','objects',
+        'Sys\.','unlink','file\.','on\.exit','error',
+        'q\(\)'
      ) {
 	if ($cmd=~/$forbidden/s) { return 1; }
     }