qm: style/indentation/cleanup fixes for command definition

[qemu-server.git] / PVE / CLI / qm.pm

diff --git a/PVE/CLI/qm.pm b/PVE/CLI/qm.pm
index a92d3015283c719df90b301e29d79757d21def38..7a53f47edeb4c9cc86e94db1b7545e785dff841a 100755 (executable)
--- a/PVE/CLI/qm.pm
+++ b/PVE/CLI/qm.pm
@@ -878,30 +878,25 @@ sub param_mapping {
 }
 
 our $cmddef = {
-    list => [ "PVE::API2::Qemu", 'vmlist', [],
-            { node => $nodename }, sub {
-                my $vmlist = shift;
+    list=> [ "PVE::API2::Qemu", 'vmlist', [], { node => $nodename }, sub {
+       my $vmlist = shift;
 
-                exit 0 if (!scalar(@$vmlist));
+       exit 0 if (!scalar(@$vmlist));
 
-                printf "%10s %-20s %-10s %-10s %12s %-10s\n",
-                qw(VMID NAME STATUS MEM(MB) BOOTDISK(GB) PID);
+       printf "%10s %-20s %-10s %-10s %12s %-10s\n",
+       qw(VMID NAME STATUS MEM(MB) BOOTDISK(GB) PID);
 
-                foreach my $rec (sort { $a->{vmid} <=> $b->{vmid} } @$vmlist) {
-                    printf "%10s %-20s %-10s %-10s %12.2f %-10s\n", $rec->{vmid}, $rec->{name},
-                    $rec->{qmpstatus} || $rec->{status},
-                    ($rec->{maxmem} || 0)/(1024*1024),
-                    ($rec->{maxdisk} || 0)/(1024*1024*1024),
-                    $rec->{pid}||0;
-                }
-
-
-             } ],
+       foreach my $rec (sort { $a->{vmid} <=> $b->{vmid} } @$vmlist) {
+           printf "%10s %-20s %-10s %-10s %12.2f %-10s\n", $rec->{vmid}, $rec->{name},
+               $rec->{qmpstatus} || $rec->{status},
+               ($rec->{maxmem} || 0)/(1024*1024),
+               ($rec->{maxdisk} || 0)/(1024*1024*1024),
+               $rec->{pid} || 0;
+       }
+    }],
 
     create => [ "PVE::API2::Qemu", 'create_vm', ['vmid'], { node => $nodename }, $upid_exit ],
-
     destroy => [ "PVE::API2::Qemu", 'destroy_vm', ['vmid'], { node => $nodename }, $upid_exit ],
-
     clone => [ "PVE::API2::Qemu", 'clone_vm', ['vmid', 'newid'], { node => $nodename }, $upid_exit ],
 
     migrate => [ "PVE::API2::Qemu", 'migrate_vm', ['vmid', 'target'], { node => $nodename }, $upid_exit ],
@@ -915,24 +910,24 @@ our $cmddef = {
 
     unlink => [ "PVE::API2::Qemu", 'unlink', ['vmid'], { node => $nodename } ],
 
-    config => [ "PVE::API2::Qemu", 'vm_config', ['vmid'],
-               { node => $nodename }, sub {
-                   my $config = shift;
-                   foreach my $k (sort (keys %$config)) {
-                       next if $k eq 'digest';
-                       my $v = $config->{$k};
-                       if ($k eq 'description') {
-                           $v = PVE::Tools::encode_text($v);
-                       }
-                       print "$k: $v\n";
-                   }
-               }],
+    config => [ "PVE::API2::Qemu", 'vm_config', ['vmid'], { node => $nodename }, sub {
+       my $config = shift;
+       foreach my $k (sort (keys %$config)) {
+           next if $k eq 'digest';
+           my $v = $config->{$k};
+           if ($k eq 'description') {
+               $v = PVE::Tools::encode_text($v);
+           }
+           print "$k: $v\n";
+       }
+    }],
 
     pending => [ "PVE::API2::Qemu", 'vm_pending', ['vmid'], { node => $nodename }, \&PVE::GuestHelpers::format_pending ],
     showcmd => [ __PACKAGE__, 'showcmd', ['vmid']],
 
     status => [ __PACKAGE__, 'status', ['vmid']],
 
+    # FIXME: for 8.0 move to command group snapshot { create, list, destroy, rollback }
     snapshot => [ "PVE::API2::Qemu", 'snapshot', ['vmid', 'snapname'], { node => $nodename } , $upid_exit ],
 
     delsnapshot => [ "PVE::API2::Qemu", 'delsnapshot', ['vmid', 'snapname'], { node => $nodename } , $upid_exit ],
@@ -943,18 +938,13 @@ our $cmddef = {
 
     template => [ "PVE::API2::Qemu", 'template', ['vmid'], { node => $nodename }],
 
+    # FIXME: should be in a power command group?
     start => [ "PVE::API2::Qemu", 'vm_start', ['vmid'], { node => $nodename } , $upid_exit ],
-
     stop => [ "PVE::API2::Qemu", 'vm_stop', ['vmid'], { node => $nodename }, $upid_exit ],
-
     reset => [ "PVE::API2::Qemu", 'vm_reset', ['vmid'], { node => $nodename }, $upid_exit ],
-
     shutdown => [ "PVE::API2::Qemu", 'vm_shutdown', ['vmid'], { node => $nodename }, $upid_exit ],
-
     reboot => [ "PVE::API2::Qemu", 'vm_reboot', ['vmid'], { node => $nodename }, $upid_exit ],
-
     suspend => [ "PVE::API2::Qemu", 'vm_suspend', ['vmid'], { node => $nodename }, $upid_exit ],
-
     resume => [ "PVE::API2::Qemu", 'vm_resume', ['vmid'], { node => $nodename }, $upid_exit ],
 
     sendkey => [ "PVE::API2::Qemu", 'vm_sendkey', ['vmid', 'key'], { node => $nodename } ],
@@ -965,6 +955,7 @@ our $cmddef = {
 
     unlock => [ __PACKAGE__, 'unlock', ['vmid']],
 
+    # FIXME: should this be in a 'disk' command group with move and resize and import?
     rescan  => [ __PACKAGE__, 'rescan', []],
 
     monitor  => [ __PACKAGE__, 'monitor', ['vmid']],