1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
@@ -22,7 +22,7 @@
use strict;
use vars qw(@doodad %options %inodes %user_inc_uids @user_inc_names);
-use vars qw(@user_exc_names %user_exc_list $depth_count);
+use vars qw(@user_exc_names %user_exc_list $depth_count $BLKSIZE);
use vars qw($version $idcount $filesystem_id $root_node $root_dir);
use vars qw($opt_help $opt_version $opt_textdepth $opt_webdepth
$opt_hidesize);
@@ -40,6 +40,7 @@
@user_inc_names = (); # user names to include
%user_exc_list = (); # uids to exclude
@user_exc_names = (); # user names to exclude
+$BLKSIZE = 512; # bytes per file block (linux specific)
# Mmmmm.. options...
@@ -503,7 +504,7 @@
next if($inodes{$s[0]}{$s[1]});
$inodes{$s[0]}{$s[1]} = 1;
}
- $files{SIZE} += $s[7] if(include_file($_, \@s));
+ $files{SIZE} += ($s[12] * $BLKSIZE) if(include_file($_, \@s));
$files{COUNT}++;
}
@@ -563,7 +564,7 @@
if(include_file($_, \@s)) {
$file{NAME} = $_;
- $file{SIZE} = $s[7];
+ $file{SIZE} = $s[12] * $BLKSIZE;
$file{PARENT} = \%node;
$node{COUNT}++;
$node{SIZE} += $file{SIZE};
|
