utilities/btrfs-list
utilities/btrfs-list
1
0
Fork 0
mirror of https://github.com/speed47/btrfs-list synced 2024-06-28 22:14:36 +00:00
Code Issues Projects Releases Wiki Activity

feat: add mainvol uuid, gen and cgen

Browse Source
This commit is contained in:
Stéphane Lesimple 2024-04-15 18:09:48 +02:00
parent 472c2ecf21
commit f4d929e7ed
1 changed files with 25 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
btrfs-list
View File

@ -793,6 +793,31 @@ foreach my $fuuid (keys %filesystems) {
-d $mp or next;
next if $opt_free_space;
# let's still fill the info for the main volume
$vol{$fuuid}{5} = {
id => 5,
path => "[main]",
gen => 0,
cgen => 0,
parent => '-',
top => '-',
uuid => '-', # may be filled below
puuid => PARENT_UUID_NONE_MAINVOL,
ruuid => '-',
type => 'mainvol',
mode => 'rw',
mp => $mp,
};
# grab the uuid of the main volume, note that sometimes there is none, and UUID is reported as '-'
# also get the current geenration, and the gen at creation (which should always be 0)
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs subvolume show -b }, $mp]);
foreach (@{$cmd->{stdout}}) {
/^\s*UUID:\s*([0-9a-f-]+)/ and $vol{$fuuid}{5}{uuid} = $1;
/Generation:\s*(\d+)/ and $vol{$fuuid}{5}{gen} = $1;
/Gen at creation:\s*(\d+)/ and $vol{$fuuid}{5}{cgen} = $1;
}
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs quota rescan -s }, $mp]);
if ($cmd->{stdout}->[0] && $cmd->{stdout}->[0] =~ /operation running|current key/) {
print STDERR "WARNING: a quota rescan is running, size information is not correct yet\n" if not $opt_quiet;
@ -810,21 +835,6 @@ foreach my $fuuid (keys %filesystems) {
}
} ## end if ($cmd->{status} || ...)
# let's still fill the info for the main volume
$vol{$fuuid}{5} = {
id => 5,
path => "[main]",
gen => 0,
cgen => 0,
parent => '-',
top => '-',
puuid => PARENT_UUID_NONE_MAINVOL,
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));