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 { |