]>
Commit | Line | Data |
---|---|---|
9a225ed5 DM |
1 | package PVE::CLI::vzdump; |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
7e017024 | 6 | use PVE::RPCEnvironment; |
9a225ed5 DM |
7 | use PVE::CLIHandler; |
8 | use PVE::API2::VZDump; | |
9 | ||
10 | use base qw(PVE::CLIHandler); | |
11 | ||
7e017024 DM |
12 | sub setup_environment { |
13 | PVE::RPCEnvironment->setup_default_cli_env(); | |
14 | } | |
15 | ||
144a2199 DM |
16 | # Note: use string 'vmid' as $arg_param option, to allow vmid lists |
17 | our $cmddef = [ 'PVE::API2::VZDump', 'vzdump', 'vmid', undef, | |
9a225ed5 DM |
18 | sub { |
19 | my $upid = shift; | |
20 | exit(0) if $upid eq 'OK'; | |
21 | my $status = PVE::Tools::upid_read_status($upid); | |
4bb46baa | 22 | exit(PVE::Tools::upid_status_is_error($status) ? -1 : 0); |
9a225ed5 DM |
23 | }]; |
24 | ||
25 | 1; |