[pve-devel] applied: [PATCH qemu-server] add qm listsnapshot call

[Dietmar Maurer]

> On October 7, 2016 at 10:51 AM Dominik Csapak <d.csapak at proxmox.com> wrote:
> 
> 
> the api call is already there, just not used in qm.pm
> copied mostly from pct.pm
> 
> Signed-off-by: Dominik Csapak <d.csapak at proxmox.com>
> ---
>  PVE/CLI/qm.pm | 11 +++++++++++
>  1 file changed, 11 insertions(+)
> 
> diff --git a/PVE/CLI/qm.pm b/PVE/CLI/qm.pm
> index e513f33..a0e0ba5 100755
> --- a/PVE/CLI/qm.pm
> +++ b/PVE/CLI/qm.pm
> @@ -490,6 +490,17 @@ our $cmddef = {
>  
>      delsnapshot => [ "PVE::API2::Qemu", 'delsnapshot', ['vmid', 'snapname'],
> { node => $nodename } , $upid_exit ],
>  
> +    listsnapshot => [ "PVE::API2::Qemu", 'snapshot_list', ['vmid'], { node =>
> $nodename },
> +		    sub {
> +			my $res = shift;
> +			foreach my $e (@$res) {
> +			    my $headline = $e->{description} || 'no-description';
> +			    $headline =~ s/\n.*//sg;
> +			    my $parent = $e->{parent} // 'no-parent';
> +			    printf("%-20s %-20s %s\n", $e->{name}, $parent, $headline);
> +			}
> +		    }],
> +
>      rollback => [ "PVE::API2::Qemu", 'rollback', ['vmid', 'snapname'], { node
> => $nodename } , $upid_exit ],
>  
>      template => [ "PVE::API2::Qemu", 'template', ['vmid'], { node =>
> $nodename }],
> -- 
> 2.1.4
> 
> 
> _______________________________________________
> pve-devel mailing list
> pve-devel at pve.proxmox.com
> http://pve.proxmox.com/cgi-bin/mailman/listinfo/pve-devel