yesBad/pve-storage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

followup: add JSON use and cleanup

Browse Source 
Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
This commit is contained in:
Thomas Lamprecht
2019-09-20 13:31:54 +02:00
parent af0335e82f
commit 80699b1da5
1 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
PVE/Storage/Plugin.pm
View File

@ -11,6 +11,8 @@ use PVE::Tools qw(run_command);
use PVE::JSONSchema qw(get_standard_option);
use PVE::Cluster qw(cfs_register_file);
use JSON;
use base qw(PVE::SectionConfig);
our @COMMON_TAR_FLAGS = qw(
@ -712,26 +714,20 @@ sub file_size_info {
return wantarray ? (0, 'subvol', 0, undef) : 1;
}
my $cmd = ['/usr/bin/qemu-img', 'info', '--output=json', $filename];
my $json = '';
eval {
run_command($cmd, timeout => $timeout, outfunc => sub { $json .= shift },
errfunc => sub {
my $line = shift;
warn $line;
});
run_command(['/usr/bin/qemu-img', 'info', '--output=json', $filename],
timeout => $timeout,
outfunc => sub { $json .= shift },
errfunc => sub { warn "$_[0]\n" }
);
};
warn $@ if $@;
my $decoded = decode_json($json);
my $info = eval { decode_json($json) };
warn "could not parse qemu-img info command output for '$filename'\n" if $@;
my $format = $decoded->{format};
my $parent = $decoded->{'backing-filename'};
my $size = $decoded->{'virtual-size'};
my $used = $decoded->{'actual-size'};
my ($size, $format, $used, $parent) = $info->@{qw(virtual-size format actual-size backing-filename)};
return wantarray ? ($size, $format, $used, $parent) : $size;
}