From 87157341ad8f906c57da2a93d6f811e2b80cfb39 Mon Sep 17 00:00:00 2001
From: Alexandre Derumier <aderumier@odiso.com>
Date: Tue, 5 Feb 2013 12:55:50 +0100
Subject: [PATCH] sheepdog : clone_image

Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
---
 PVE/Storage/SheepdogPlugin.pm | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/PVE/Storage/SheepdogPlugin.pm b/PVE/Storage/SheepdogPlugin.pm
index 294dba7..ae6a837 100644
--- a/PVE/Storage/SheepdogPlugin.pm
+++ b/PVE/Storage/SheepdogPlugin.pm
@@ -216,7 +216,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 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";
+
+    my $cmd = &$collie_cmd($scfg, 'vdi', 'clone', '-s', $snap, $basename, $name);
+    run_command($cmd, errmsg => "sheepdog clone $volname' error");
+
+    return $newvol;
 }
 
 sub alloc_image {