X-Git-Url: https://git.proxmox.com/?a=blobdiff_plain;f=src%2FPVE%2FCLIFormatter.pm;h=e886db5797ccdb06b8fb5a81d77cefb5b5337e7d;hb=7b4f791bfd34527816f3518803bcbf8ebe81293d;hp=dfc3679ad0a9330d1fc17d954cdeca432b934300;hpb=90851cec3c197dec7849726dfb43330d7403fc83;p=pve-common.git diff --git a/src/PVE/CLIFormatter.pm b/src/PVE/CLIFormatter.pm index dfc3679..e886db5 100644 --- a/src/PVE/CLIFormatter.pm +++ b/src/PVE/CLIFormatter.pm @@ -2,12 +2,14 @@ package PVE::CLIFormatter; use strict; use warnings; + use I18N::Langinfo; use POSIX qw(strftime); use CPAN::Meta::YAML; # comes with perl-modules use PVE::JSONSchema; use PVE::PTY; + use JSON; use utf8; use Encode; @@ -76,8 +78,8 @@ sub render_bytes { $max_unit = int(log($value)/log(1024)); $value /= 1024**($max_unit); } - - return sprintf "%.2f $units[$max_unit]", $value; + my $unit = $units[$max_unit]; + return sprintf "%.2f $unit", $value; } PVE::JSONSchema::register_renderer('bytes', \&render_bytes); @@ -356,7 +358,7 @@ sub extract_properties_to_print { # takes formatting information from the results property of the call # if $props_to_print is provided, prints only those columns. otherwise # takes all fields of the results property, with a fallback -# to all fields occuring in items of $data. +# to all fields occurring in items of $data. sub print_api_list { my ($data, $result_schema, $props_to_print, $options, $terminal_opts) = @_; @@ -409,7 +411,7 @@ sub print_api_result { my $format = $options->{'output-format'} // 'text'; - if ($result_schema) { + if ($result_schema && defined($result_schema->{type})) { return if $result_schema->{type} eq 'null'; } else { my $type = $guess_type->($data);