utilities/btrfs-list
utilities/btrfs-list
1
0
Fork 0
mirror of https://github.com/speed47/btrfs-list synced 2024-09-28 20:03:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

chore: simplify code, add comments

Browse source
This commit is contained in:
Stéphane Lesimple 2022-01-02 17:42:48 +01:00
parent f5137b2851
commit f4b7a2ea4a
1 changed files with 30 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
btrfs-list
View file

@ -284,7 +284,7 @@ foreach (@{$cmd->{stdout}}) {
$label = $1;
$fuuid = $2;
# some versions of btrfs-progs enquote the label
# btrfs-progs v3.14+ enquote the label
if ($label =~ /^'(.+)'$/) {
$label = $1;
}
@ -541,6 +541,8 @@ foreach my $fuuid (keys %filesystems) {
# get quota stuff
# v3.18 (no --raw)
=cut
WARNING: Qgroup data inconsistent, rescan recommended
qgroupid rfer excl max_rfer max_excl parent child
@ -549,6 +551,15 @@ qgroupid rfer excl max_rfer max_excl parent child
0/257 10.02MiB 10.01MiB 0.00B 0.00B --- ---
=cut
# v3.19+ has --raw, and additionally, since v4.1, we get 'none' instead of 0:
=cut
qgroupid rfer excl max_rfer max_excl parent child
-------- ---- ---- -------- -------- ------ -----
0/5 9848498 8015121 none none --- ---
0/257 10213513 10131212 none none --- ---
=cut
foreach my $fuuid (keys %filesystems) {
my $mp = $filesystems{$fuuid}{'mountpoint'};
defined $mp or next;
@ -562,28 +573,30 @@ foreach my $fuuid (keys %filesystems) {
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs qgroup show -pcre --raw }, $mp]);
if ($cmd->{status} || !@{$cmd->{stdout}}) {
# btrfs-progs v3.18 doesn't support --raw
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs qgroup show -pcre }, $mp]);
if ($cmd->{status} || !@{$cmd->{stdout}}) {
print STDERR "WARNING: to get refer/excl size information, please enable qgroups (btrfs quota enable $mp)\n" if not $opt_quiet;
$vol{$fuuid}{df}{noquota} = 1;
# let's still fill the info for the main volume
$vol{$fuuid}{5} = {
id => 5,
path => "[main]",
gen => 0,
cgen => 0,
parent => '-',
top => '-',
puuid => '+',
ruuid => '-',
type => 'mainvol',
mode => 'rw',
mp => $mp,
};
next;
}
}
# let's still fill the info for the main volume
$vol{$fuuid}{5} = {
id => 5,
path => "[main]",
gen => 0,
cgen => 0,
parent => '-',
top => '-',
puuid => '+',
ruuid => '-',
type => 'mainvol',
mode => 'rw',
mp => $mp,
};
foreach (@{$cmd->{stdout}}) {
if (m{^(\d+)/(\d+)\s+(\S+)\s+(\S+)}) {
my ($qid, $id, $rfer, $excl) = ($1, $2, human2raw($3), human2raw($4));