ambiser
/
btrbk
mirror of https://github.com/digint/btrbk
9
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

btrbk: add print_size, and command line option modifier

pull/343/head
Axel Burri 2020-10-30 18:35:52 +01:00
parent f391c92d60
commit 4866ec5cb0
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
btrbk
View File

@ -295,6 +295,7 @@ my $do_trace;
my $show_progress = 0; my $show_progress = 0;
my $output_format; my $output_format;
my $output_pretty = 0; my $output_pretty = 0;
my @output_unit;
my $lockfile; my $lockfile;
my $tlog_fh; my $tlog_fh;
my $syslog_enabled = 0; my $syslog_enabled = 0;
@ -4895,6 +4896,28 @@ sub print_formatted(@)
} }
sub print_size($)
{
my $size = shift;
if($output_format && ($output_format eq "raw")) {
return $size;
}
return "-" if($size == 0);
my ($unit, $mul);
if(@output_unit) {
($unit, $mul) = @output_unit;
}
else {
($unit, $mul) = ("KiB", 1024);
($unit, $mul) = ("MiB", $mul * 1024) if($size > $mul * 1024);
($unit, $mul) = ("GiB", $mul * 1024) if($size > $mul * 1024);
($unit, $mul) = ("TiB", $mul * 1024) if($size > $mul * 1024);
}
return $size if($mul == 1);
return sprintf('%.2f', ($size / $mul)) . " $unit";
}
sub _origin_tree sub _origin_tree
{ {
my $prefix = shift; my $prefix = shift;
@ -5052,6 +5075,11 @@ MAIN:
'long|L' => sub { $output_format = "long" }, 'long|L' => sub { $output_format = "long" },
'print-schedule|S' => \$print_schedule, 'print-schedule|S' => \$print_schedule,
'raw' => \$archive_raw, 'raw' => \$archive_raw,
'bytes' => sub { @output_unit = ("", 1 ) },
'kbytes' => sub { @output_unit = ("KiB", 1024 ) },
'mbytes' => sub { @output_unit = ("MiB", 1024 * 1024 ) },
'gbytes' => sub { @output_unit = ("GiB", 1024 * 1024 * 1024 ) },
'tbytes' => sub { @output_unit = ("TiB", 1024 * 1024 * 1024 * 1024 ) },
); );
unless(GetOptions(@cmdline_options)) { unless(GetOptions(@cmdline_options)) {
VERSION_MESSAGE(); VERSION_MESSAGE();