From f27082855d4d97d5112764b1348432d911de4c6b Mon Sep 17 00:00:00 2001 From: Alexandre Derumier Date: Tue, 5 Feb 2013 12:55:34 +0100 Subject: [PATCH] rbd : clone_image Signed-off-by: Alexandre Derumier --- PVE/Storage/RBDPlugin.pm | 18 +++++++++++++++++- 1 file changed, 17 insertions(+), 1 deletion(-) diff --git a/PVE/Storage/RBDPlugin.pm b/PVE/Storage/RBDPlugin.pm index cccf936..4936d8f 100644 --- a/PVE/Storage/RBDPlugin.pm +++ b/PVE/Storage/RBDPlugin.pm @@ -252,7 +252,23 @@ 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 onyl 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"; + + my $cmd = &$rbd_cmd($scfg, $storeid, 'clone', $basename, '--snap', $snap, $name); + run_command($cmd, errmsg => "rbd clone $basename' error", errfunc => sub {}); + + return $newvol; } my $find_free_diskname = sub {