Diff for /loncom/homework/lonr.pm between versions 1.2 and 1.3

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

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>