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

sheepdog : create_base

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

42
PVE/Storage/SheepdogPlugin.pm
View File

@ -170,7 +170,47 @@ my $find_free_diskname = sub {
sub create_base {
my ($class, $storeid, $scfg, $volname) = @_;
die "not implemented";
my $snap = '__base__';
my ($vtype, $name, $vmid, $basename, $basevmid, $isBase) =
$class->parse_volname($volname);
die "create_base not possible with base image\n" if $isBase;
my $sheepdog = sheepdog_ls($scfg, $storeid);
die "sheepdog volume info on '$name' failed\n" if !($sheepdog->{sheepdog}->{$name});
my $parent = $sheepdog->{sheepdog}->{$name}->{parent};
die "volname '$volname' contains wrong information about parent $parent $basename\n"
if $basename && (!$parent || $parent ne $basename);
my $newname = $name;
$newname =~ s/^vm-/base-/;
my $newvolname = $basename ? "$basename/$newname" : "$newname";
#sheepdog can't rename, so we clone then delete the parent
my $tempsnap = '__tempforbase__';
my $cmd = &$collie_cmd($scfg, 'vdi', 'snapshot', '-s', $tempsnap, $name);
run_command($cmd, errmsg => "sheepdog snapshot $volname' error");
$cmd = &$collie_cmd($scfg, 'vdi', 'clone', '-s', $tempsnap, $name, $newname);
run_command($cmd, errmsg => "sheepdog clone $volname' error");
$cmd = &$collie_cmd($scfg, 'vdi', 'delete', '-s', $tempsnap, $name);
run_command($cmd, errmsg => "sheepdog delete snapshot $volname' error");
$cmd = &$collie_cmd($scfg, 'vdi', 'delete' , $name);
run_command($cmd, errmsg => "sheepdog delete $volname' error");
#create the base snapshot
my $running = undef; #fixme : is create_base always offline ?
$class->volume_snapshot($scfg, $storeid, $newname, $snap, $running);
return $newvolname;
}
sub clone_image {