proxmox-mirrors/qemu-server
1
0
Fork 0
mirror of https://git.proxmox.com/git/qemu-server synced 2025-08-15 04:20:17 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

copy_vm: allow to copy from snapshot

Browse Source
This commit is contained in:
Dietmar Maurer 2013-04-30 09:31:23 +02:00
parent 4e4f83fea0
commit 9076d880a8
1 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
PVE/API2/Qemu.pm
View File

@ -1742,7 +1742,6 @@ __PACKAGE__->register_method({
optional => 1,
}),
},
},
returns => {
type => 'boolean'
@ -1807,6 +1806,10 @@ __PACKAGE__->register_method({
type => 'string', format => 'pve-poolid',
description => "Add the new VM to the specified pool.",
},
snapname => get_standard_option('pve-snapshot-name', {
requires => 'full',
optional => 1,
}),
storage => get_standard_option('pve-storage-id', {
description => "Target storage for full copy.",
requires => 'full',
@ -1844,6 +1847,8 @@ __PACKAGE__->register_method({
$rpcenv->check_pool_exist($pool);
}
my $snapname = extract_param($param, 'snapname');
my $storage = extract_param($param, 'storage');
my $storecfg = PVE::Storage::config();
@ -1872,9 +1877,12 @@ __PACKAGE__->register_method({
die "unexpected state change\n" if $verify_running != $running;
&$check_storage_access_copy($rpcenv, $authuser, $storecfg, $conf, $storage);
die "snapshot '$snapname' does not exist\n"
if $snapname && !defined( $conf->{snapshots}->{$snapname});
# fixme: snapshots??
my $oldconf = $snapname ? $conf->{snapshots}->{$snapname} : $conf;
&$check_storage_access_copy($rpcenv, $authuser, $storecfg, $oldconf, $storage);
my $conffile = PVE::QemuServer::config_file($newid);
@ -1893,10 +1901,13 @@ __PACKAGE__->register_method({
my $newconf = { lock => 'copy' };
my $drives = {};
my $vollist = [];
foreach my $opt (keys %$conf) {
my $value = $conf->{$opt};
next if $opt eq 'snapshots'; # do not copy snapshot info
foreach my $opt (keys %$oldconf) {
my $value = $oldconf->{$opt};
# do not copy snapshot related info
next if $opt eq 'snapshots' || $opt eq 'parent' || $opt eq 'snaptime' ||
$opt eq 'vmstate' || $opt eq 'snapstate';
# always change MAC! address
if ($opt =~ m/^net(\d+)$/) {
@ -1941,7 +1952,7 @@ __PACKAGE__->register_method({
print "copy drive $opt ($drive->{file})\n";
$newvolid = PVE::Storage::vdisk_alloc($storecfg, $storeid, $newid, $fmt, undef, ($size/1024));
PVE::QemuServer::qemu_img_convert($drive->{file}, $newvolid, $size);
PVE::QemuServer::qemu_img_convert($drive->{file}, $newvolid, $size, $snapname);
}
my ($size) = PVE::Storage::volume_size_info($storecfg, $newvolid, 3);