yesBad/pve-storage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sheepdog : clone_image

Browse Source 
Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
This commit is contained in:
Alexandre Derumier
2013-02-05 12:55:50 +01:00
committed by Dietmar Maurer
parent 8a3c8d0e59
commit 87157341ad
1 changed files with 17 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
PVE/Storage/SheepdogPlugin.pm
View File

@ -216,7 +216,23 @@ sub create_base {
sub clone_image { sub clone_image {
my ($class, $scfg, $storeid, $volname, $vmid) = @_; 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 { sub alloc_image {