[pve-devel] [PATCH 01/10] add template_create and template_delete feature
Alexandre Derumier
aderumier at odiso.com
Wed Dec 12 13:26:11 CET 2012
template_create:
we need to check if we can create a template from a snapshot or current.
qcow2,raw : template from current
rbd,sheepdog,nexenta : template from snapshot
then we lock volume if storage need it for clone (files or rbd)
then we add template:1 to the config (current or snapshot)
template_delete:
- We need to check if clones of volumes exist before remove the template
- We unlock the storage
- we remove template:1 from the config (current of snapshot)
Signed-off-by: Alexandre Derumier <aderumier at odiso.com>
---
PVE/API2/Qemu.pm | 79 +++++++++++++++++++++++++++++++++++++++++++
PVE/QemuServer.pm | 96 +++++++++++++++++++++++++++++++++++++++++++++++++++++
qm | 2 ++
3 files changed, 177 insertions(+)
diff --git a/PVE/API2/Qemu.pm b/PVE/API2/Qemu.pm
index 09ab1e7..d2dba3c 100644
--- a/PVE/API2/Qemu.pm
+++ b/PVE/API2/Qemu.pm
@@ -2224,4 +2224,83 @@ __PACKAGE__->register_method({
return $rpcenv->fork_worker('qmdelsnapshot', $vmid, $authuser, $realcmd);
}});
+__PACKAGE__->register_method({
+ name => 'template',
+ path => '{vmid}/template',
+ method => 'POST',
+ protected => 1,
+ proxyto => 'node',
+ description => "Create a Template.",
+ permissions => {
+ check => ['perm', '/vms/{vmid}', [ 'VM.Template' ]],
+ },
+ parameters => {
+ additionalProperties => 0,
+ properties => {
+ node => get_standard_option('pve-node'),
+ vmid => get_standard_option('pve-vmid'),
+ snapname => get_standard_option('pve-snapshot-name', {
+ optional => 1,
+ }),
+ delete => {
+ optional => 1,
+ type => 'boolean',
+ },
+ },
+ },
+ returns => { type => 'null'},
+ code => sub {
+ my ($param) = @_;
+
+ my $rpcenv = PVE::RPCEnvironment::get();
+
+ my $authuser = $rpcenv->get_user();
+
+ my $node = extract_param($param, 'node');
+
+ my $vmid = extract_param($param, 'vmid');
+
+ my $snapname = extract_param($param, 'snapname');
+
+ my $delete = extract_param($param, 'delete');
+
+ my $updatefn = sub {
+
+ my $conf = PVE::QemuServer::load_config($vmid);
+
+ PVE::QemuServer::check_lock($conf);
+
+ if($delete){
+
+ PVE::QemuServer::template_delete($vmid, $conf, $snapname);
+
+ if($snapname){
+ die "snapshot '$snapname' don't exist\n" if !defined($conf->{snapshots}->{$snapname});
+ delete $conf->{snapshots}->{$snapname}->{template};
+ }else{
+ delete $conf->{template};
+ }
+
+ }else{
+
+ PVE::QemuServer::template_create($vmid, $conf, $snapname);
+
+ if($snapname){
+ die "snapshot '$snapname' don't exist\n" if !defined($conf->{snapshots}->{$snapname});
+ $conf->{snapshots}->{$snapname}->{template} = 1;
+ }else{
+ $conf->{template} = 1;
+ }
+ }
+
+
+ PVE::QemuServer::update_config_nolock($vmid, $conf, 1);
+ };
+
+ PVE::QemuServer::lock_config($vmid, $updatefn);
+ return undef;
+ }});
+
+
+
1;
diff --git a/PVE/QemuServer.pm b/PVE/QemuServer.pm
index 81cc682..5ca99a3 100644
--- a/PVE/QemuServer.pm
+++ b/PVE/QemuServer.pm
@@ -180,6 +180,12 @@ my $confdesc = {
description => "Lock/unlock the VM.",
enum => [qw(migrate backup snapshot rollback)],
},
+ template => {
+ optional => 1,
+ type => 'boolean',
+ description => "Current config or snapshot is a template",
+ default => 0,
+ },
cpulimit => {
optional => 1,
type => 'integer',
@@ -4031,4 +4037,94 @@ sub snapshot_delete {
lock_config($vmid, $updatefn);
}
+sub template_create {
+ my ($vmid, $conf, $snapname) = @_;
+
+ die "snapshot $snapname don't exist" if ($snapname && (!defined($conf->{snapshots}->{$snapname})));
+
+ die "you can't create a template without snapshot on a running vm" if check_running($vmid) && !$snapname;
+
+ die "you can't create a template from a snapshot with a vmstate" if $snapname && $conf->{snapshots}->{$snapname}->{vmstate};
+
+ $conf = $conf->{snapshots}->{$snapname} if $snapname;
+
+ my $storecfg = PVE::Storage::config();
+
+ #make verif if we can create a template for differents storage with or without snapshots
+ foreach_drive($conf, sub {
+ my ($ds, $drive) = @_;
+
+ return if drive_is_cdrom($drive);
+
+ my $volid = $drive->{file};
+ my ($storeid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
+ if ($storeid) {
+ my $scfg = PVE::Storage::storage_config($storecfg, $storeid);
+ die "you can't create a template from a snapshot for volume '$volid'\n" if ($snapname && $scfg->{path} && $volname =~ m/\.qcow2$/);
+ die "you can't create a template without snapshot for volume '$volid'\n"
+ if (!$snapname && (($scfg->{type} eq 'nexenta') ||
+ ($scfg->{type} eq 'rbd') ||
+ ($scfg->{type} eq 'sheepdog')));
+ }
+ });
+
+ #protect the parent file or parent snapshot
+ foreach_drive($conf, sub {
+ my ($ds, $drive) = @_;
+
+ return if drive_is_cdrom($drive);
+
+ my $volid = $drive->{file};
+ my ($storeid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
+ if ($storeid) {
+ my $scfg = PVE::Storage::storage_config($storecfg, $storeid);
+ PVE::Storage::volume_protect($storecfg, $volid, $snapname, 1);
+ }
+ });
+
+}
+
+sub template_delete {
+ my ($vmid, $conf, $snapname) = @_;
+
+ $conf = $conf->{snapshots}->{$snapname} if $snapname;
+ my $storecfg = PVE::Storage::config();
+
+ #search if clone child of template disks exist
+ foreach_drive($conf, sub {
+ my ($ds, $drive) = @_;
+
+ return if drive_is_cdrom($drive);
+
+ my $volid = $drive->{file};
+ my ($storeid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
+ $volname .= "@".$snapname if $snapname;
+
+ if ($storeid) {
+ my $dl = PVE::Storage::vdisk_list($storecfg, $storeid, undef);
+ PVE::Storage::foreach_volid($dl, sub {
+ my ($volumeid, undef, $info) = @_;
+ if($info->{parent} && $info->{parent} eq $volname) {
+ die "You can't delete this template. $volumeid is a clone of this template";
+ }
+ });
+ }
+ });
+
+ #unprotect the parent file or parent snapshot
+ foreach_drive($conf, sub {
+ my ($ds, $drive) = @_;
+
+ return if drive_is_cdrom($drive);
+
+ my $volid = $drive->{file};
+ my ($storeid, $volname) = PVE::Storage::parse_volume_id($volid, 1);
+ if ($storeid) {
+ my $scfg = PVE::Storage::storage_config($storecfg, $storeid);
+ PVE::Storage::volume_protect($storecfg, $volid, $snapname);
+ }
+ });
+
+}
+
1;
diff --git a/qm b/qm
index 25f84ea..7d62fe4 100755
--- a/qm
+++ b/qm
@@ -442,6 +442,8 @@ my $cmddef = {
rollback => [ "PVE::API2::Qemu", 'rollback', ['vmid', 'snapname'], { node => $nodename } , $upid_exit ],
+ template => [ "PVE::API2::Qemu", 'template', ['vmid'], { node => $nodename }],
+
start => [ "PVE::API2::Qemu", 'vm_start', ['vmid'], { node => $nodename } , $upid_exit ],
stop => [ "PVE::API2::Qemu", 'vm_stop', ['vmid'], { node => $nodename }, $upid_exit ],
--
1.7.10.4
More information about the pve-devel
mailing list