my $ids = {};
- my $sha1 = Digest::SHA1->new;
+ my $digest = Digest::SHA1::sha1_hex(defined($raw) ? $raw : '');
my $pri = 0;
while ($raw && $raw =~ s/^(.*?)(\n|$)//) {
my $line = $1;
- $sha1->add ($line); # compute digest
-
next if $line =~ m/^\#/;
next if $line =~ m/^\s*$/;
}
}
- my $digest = $sha1->hexdigest;
-
my $cfg = { ids => $ids, digest => $digest};
return $cfg;
die "unable to allocate an image name for VM $vmid in storage '$storeid'\n"
if !$name;
- my $cmd = ['/sbin/lvcreate', '--addtag', "pve-vm-$vmid", '--size', "${size}k", '--name', $name, $vg];
+ my $cmd = ['/sbin/lvcreate', '-aly', '--addtag', "pve-vm-$vmid", '--size', "${size}k", '--name', $name, $vg];
run_command ($cmd);
total => 0,
avail => 0,
used => 0,
+ shared => $ids->{$storeid}->{shared} ? 1 : 0,
content => content_hash_to_string($ids->{$storeid}->{content}),
active => 0,
};