Diff for /loncom/lond between versions 1.289 and 1.290

version 1.289, 2005/06/27 22:32:37 version 1.290, 2005/06/28 19:06:10
Line 1367  sub du_handler { Line 1367  sub du_handler {
  #  assurance double sure,    #  assurance double sure, 
  # use execute_command to ensure that the command is not executed in   # use execute_command to ensure that the command is not executed in
  # a shell that can screw us up.   # a shell that can screw us up.
           my $file_list =  execute_command("find $ududir -not -regex '.*\.[0-9]+\.[^\.]+' -not -name '*.meta' -print");
  my $duout = execute_command("du -ks $ududir");   my $duout = execute_command("du -ks $file_list");
  $duout=~s/[^\d]//g; #preserve only the numbers   $duout=~s/[^\d]//g; #preserve only the numbers
  &Reply($client,"$duout\n","$cmd:$ududir");   &Reply($client,"$duout\n","$cmd:$ududir");
     } else {      } else {

Removed from v.1.289  
changed lines
  Added in v.1.290


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