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; |
} |
} |
®ister_handler("du", \&du_handler, 0, 1, 0); |
®ister_handler("du", \&du_handler, 0, 1, 0); |