nicely format 'pct list' output

diff --git a/src/pct b/src/pct
index 4c6800752fe0bc4750b50ff7ea01a53cf63e12a3..3f32fd68aa26951b635b8a49c4e84520317e967a 100755 (executable)
--- a/src/pct
+++ b/src/pct
@@ -62,8 +62,13 @@ my $cmddef = {
     #test => [ __PACKAGE__, 'test', [], {}, sub {} ],
     list=> [ 'PVE::API2::LXC', 'vmlist', [], { node => $nodename }, sub {
        my $res = shift;
-       print Dumper($res);
-            }],
+       return if !scalar(@$res);
+       my $format = "%-10s %-10s %-20s\n";
+       printf($format, 'VMID', 'Status', 'Name');
+       foreach my $d (sort {$a->{vmid} <=> $b->{vmid} } @$res) {
+           printf($format, $d->{vmid}, $d->{status}, $d->{name});
+       }
+    }],
     config => [ "PVE::API2::LXC", 'vm_config', ['vmid'], 
                { node => $nodename }, sub {
                    my $config = shift;