From 324679682e650d4c80e6f3e56fc5dfdf507b4423 Mon Sep 17 00:00:00 2001 From: Alexandre Derumier Date: Tue, 5 Feb 2013 12:56:03 +0100 Subject: [PATCH] nexenta : clone_image Signed-off-by: Alexandre Derumier --- PVE/Storage/NexentaPlugin.pm | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/PVE/Storage/NexentaPlugin.pm b/PVE/Storage/NexentaPlugin.pm index 93cfc8b..ad8ac7d 100644 --- a/PVE/Storage/NexentaPlugin.pm +++ b/PVE/Storage/NexentaPlugin.pm @@ -272,7 +272,25 @@ sub create_base { sub clone_image { my ($class, $scfg, $storeid, $volname, $vmid) = @_; - die "not implemented"; + my $snap = '__base__'; + + my ($vtype, $basename, $basevmid, undef, undef, $isBase) = + $class->parse_volname($volname); + + die "clone_image only works on base images\n" if !$isBase; + + my $name = &$find_free_diskname($storeid, $scfg, $vmid); + + warn "clone $volname: $basename to $name\n"; + + my $newvol = "$basename/$name"; + + nexenta_request($scfg, 'clone', 'zvol', "$scfg->{pool}/$basename\@$snap", "$scfg->{pool}/$name"); + + nexenta_create_lu($scfg, $name); + nexenta_add_lun_mapping_entry($scfg, $name); + + return $newvol; } sub alloc_image {