helpers: add pending-aware guest config printer from qemu-server

Signed-off-by: Oguz Bektas <o.bektas@proxmox.com>

diff --git a/PVE/GuestHelpers.pm b/PVE/GuestHelpers.pm
index 35059e6393ce477bace2a9a4a91a57ef72e8fa12..a36b9bc66b6a29969873a63c88db238acc107081 100644 (file)
--- a/PVE/GuestHelpers.pm
+++ b/PVE/GuestHelpers.pm
@@ -116,4 +116,30 @@ sub print_snapshot_tree {
     }
 }
 
+sub format_pending {
+    my ($data) = @_;
+    foreach my $item (sort { $a->{key} cmp $b->{key}} @$data) {
+       my $k = $item->{key};
+       next if $k eq 'digest';
+       my $v = $item->{value};
+       my $p = $item->{pending};
+       if ($k eq 'description') {
+           $v = PVE::Tools::encode_text($v) if defined($v);
+           $p = PVE::Tools::encode_text($p) if defined($p);
+       }
+       if (defined($v)) {
+           if ($item->{delete}) {
+               print "del $k: $v\n";
+           } elsif (defined($p)) {
+               print "cur $k: $v\n";
+               print "new $k: $p\n";
+           } else {
+               print "cur $k: $v\n";
+           }
+       } elsif (defined($p)) {
+           print "new $k: $p\n";
+       }
+    }
+}
+
 1;