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

sheepdog : retrieve parent of a clone

Browse Source 
Signed-off-by: Alexandre Derumier <aderumier@odiso.com>
This commit is contained in:
Alexandre Derumier
2012-11-21 18:11:34 +01:00
committed by Dietmar Maurer
parent 62b98a65b5
commit ba4ee9ba25
1 changed files with 35 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
PVE/Storage/SheepdogPlugin.pm
View File

@ -25,21 +25,51 @@ my $collie_cmd = sub {
sub sheepdog_ls { sub sheepdog_ls {
my ($scfg, $storeid) = @_; my ($scfg, $storeid) = @_;
my $cmd = &$collie_cmd($scfg, 'vdi', 'list', '-r'); my $cmd = &$collie_cmd($scfg, 'vdi', 'graph');
my $relationship = {};
my $child = undef;
run_command($cmd, outfunc => sub {
my $line = shift;
my $parent = undef;
my $name = undef;
$line = trim($line);
if ($line =~ /\"(\S+)\"\s->\s\"(\S+)\"/) {
$parent = $1;
$child = $2;
$relationship->{$child}->{parent} = $parent;
}
elsif ($line =~ /group\s\=\s\"(\S+)\",/) {
$name = $1;
$relationship->{$child}->{name} = $name if $child;
}
});
$cmd = &$collie_cmd($scfg, 'vdi', 'list', '-r');
my $list = {}; my $list = {};
run_command($cmd, outfunc => sub { run_command($cmd, outfunc => sub {
my $line = shift; my $line = shift;
$line = trim($line); $line = trim($line);
if ($line =~ /= (vm-(\d+)-\S+)\s+(\d+)\s+(\d+)\s(\d+)\s(\d+)\s/) { if ($line =~ /(=|c) (vm-(\d+)-\S+)\s+(\d+)\s+(\d+)\s(\d+)\s(\d+)\s(\d+)\s(\S+)\s(\d+)/) {
my $image = $1; my $image = $2;
my $owner = $2; my $owner = $3;
my $size = $4; my $size = $4;
my $idvdi = $9;
my $parentid = $relationship->{$idvdi}->{parent} if $relationship->{$idvdi}->{parent};
my $parent = $relationship->{$parentid}->{name};
$list->{$storeid}->{$image} = { $list->{$storeid}->{$image} = {
name => $image, name => $image,
size => $size, size => $size,
parent => $parent,
vmid => $owner vmid => $owner
}; };
} }