mirror of
https://github.com/speed47/btrfs-list
synced 2024-10-01 13:23:32 +00:00
add --quiet
This commit is contained in:
parent
6d40b27a6c
commit
2b587ad1f8
|
@ -36,6 +36,7 @@ my %vol;
|
||||||
|
|
||||||
GetOptions(
|
GetOptions(
|
||||||
'd|debug' => \my $opt_debug,
|
'd|debug' => \my $opt_debug,
|
||||||
|
'q|quiet' => \my $opt_quiet,
|
||||||
's|hide-snap' => \my $opt_hide_snapshots,
|
's|hide-snap' => \my $opt_hide_snapshots,
|
||||||
'S|snap-only' => \my $opt_only_snapshots,
|
'S|snap-only' => \my $opt_only_snapshots,
|
||||||
'a|show-all' => \my $opt_show_all,
|
'a|show-all' => \my $opt_show_all,
|
||||||
|
@ -76,6 +77,7 @@ If no [mountpoint] is specified, display info for all btrfs filesystems.
|
||||||
|
|
||||||
-h, --help display this message
|
-h, --help display this message
|
||||||
-d, --debug enable debug output
|
-d, --debug enable debug output
|
||||||
|
-q, --quiet silence the quota disabled and quota rescan warnings
|
||||||
--color=WHEN colorize the output; WHEN can be 'never', 'always',
|
--color=WHEN colorize the output; WHEN can be 'never', 'always',
|
||||||
or 'auto' (default, colorize if STDOUT is a term)
|
or 'auto' (default, colorize if STDOUT is a term)
|
||||||
--no-color synonym of --color=never
|
--no-color synonym of --color=never
|
||||||
|
@ -209,7 +211,7 @@ my ($version) = $cmd->{'stdout'}->[0] =~ /v([0-9.]+)/;
|
||||||
|
|
||||||
if (version->declare($version)->numify lt version->declare("3.18")->numify)
|
if (version->declare($version)->numify lt version->declare("3.18")->numify)
|
||||||
{
|
{
|
||||||
print STDERR "WARNING: you're using an old version of btrfs-progs, v$version, we need at least version 3.18 (Dec 2014).\n";
|
print STDERR "FATAL: you're using an old version of btrfs-progs, v$version, we need at least version 3.18 (Dec 2014).\n";
|
||||||
exit 1;
|
exit 1;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -485,7 +487,7 @@ foreach my $fuuid (keys %filesystems)
|
||||||
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs quota rescan -s }, $mp]);
|
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs quota rescan -s }, $mp]);
|
||||||
if ($cmd->{'stdout'}->[0] && $cmd->{'stdout'}->[0] =~ /operation running|current key/)
|
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";
|
print STDERR "WARNING: a quota rescan is running, size information is not correct yet\n" if not $opt_quiet;
|
||||||
}
|
}
|
||||||
|
|
||||||
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs qgroup show -pcre --raw }, $mp]);
|
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs qgroup show -pcre --raw }, $mp]);
|
||||||
|
@ -494,7 +496,7 @@ foreach my $fuuid (keys %filesystems)
|
||||||
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs qgroup show -pcre }, $mp]);
|
$cmd = run_cmd(silent_stderr => 1, cmd => [qw{ btrfs qgroup show -pcre }, $mp]);
|
||||||
if ($cmd->{'status'} || !@{ $cmd->{'stdout'} })
|
if ($cmd->{'status'} || !@{ $cmd->{'stdout'} })
|
||||||
{
|
{
|
||||||
print STDERR "WARNING: to get refer/used size information, please enable qgroups (btrfs quota enable $mp)\n";
|
print STDERR "WARNING: to get refer/used size information, please enable qgroups (btrfs quota enable $mp)\n" if not $opt_quiet;
|
||||||
next;
|
next;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue