Diff for /loncom/lond between versions 1.244 and 1.245

version 1.244, 2004/08/28 15:52:51 version 1.245, 2004/08/29 04:12:18
Line 1302  sub push_file_handler { Line 1302  sub push_file_handler {
   
 sub du_handler {  sub du_handler {
     my ($cmd, $ududir, $client) = @_;      my ($cmd, $ududir, $client) = @_;
     my $userinput = "$cmd:$ududir";      if ($ududir=~/\.\./ || $ududir!~m|^/home/httpd/|) {
     my $duout='';   &Failure($client,"refused\n","$cmd:$ududir");
     my $du_cmd;   return 1;
     $du_cmd = 'du -ks '.$ududir.' 2>/dev/null)';      }
     $duout = qx[$du_cmd];      my $duout = `du -ks $ududir 2>/dev/null`;
     print $client "$du_cmd -- $ududir -- $duout\n";      $duout=~s/[^\d]//g; #preserve only the numbers
       &Reply($client,"$duout\n","$cmd:$ududir");
     return 1;      return 1;
 }  }
 &register_handler("du", \&du_handler, 0, 1, 0);  &register_handler("du", \&du_handler, 0, 1, 0);

Removed from v.1.244  
changed lines
  Added in v.1.245


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