storage: volume_snapshot: add $running param
This add a $running param to volume_snapshot, it can be used if some extra actions need to be done at the storage layer when the snapshot has already be done at qemu level. Signed-off-by: Alexandre Derumier <alexandre.derumier@groupe-cyllene.com>
This commit is contained in:
committed by
Wolfgang Bumiller
parent
73bfe226d6
commit
bb21ba381d
@ -555,7 +555,7 @@ sub volume_size_info {
|
||||
}
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
|
||||
die "creating snapshots is not supported for $class\n";
|
||||
}
|
||||
|
||||
@ -232,7 +232,7 @@ sub volume_resize {
|
||||
}
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
die "volume snapshot is not possible on iscsi device\n";
|
||||
}
|
||||
|
||||
|
||||
@ -702,7 +702,7 @@ sub volume_size_info {
|
||||
}
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
|
||||
die "lvm snapshot is not implemented";
|
||||
}
|
||||
|
||||
@ -353,7 +353,7 @@ sub create_base {
|
||||
# sub volume_resize {} reuse code from parent class
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
|
||||
my $vg = $scfg->{vgname};
|
||||
my $snapvol = "snap_${volname}_$snap";
|
||||
|
||||
@ -966,7 +966,7 @@ sub volume_resize {
|
||||
}
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
die "volume snapshot is not possible on pbs device";
|
||||
}
|
||||
|
||||
|
||||
@ -1314,7 +1314,7 @@ sub volume_resize {
|
||||
}
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
|
||||
die "can't snapshot this image format\n" if $volname !~ m/\.(qcow2|qed)$/;
|
||||
|
||||
|
||||
@ -868,7 +868,7 @@ sub volume_resize {
|
||||
}
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
|
||||
my ($vtype, $name, $vmid) = $class->parse_volname($volname);
|
||||
|
||||
|
||||
@ -480,7 +480,7 @@ sub volume_size_info {
|
||||
}
|
||||
|
||||
sub volume_snapshot {
|
||||
my ($class, $scfg, $storeid, $volname, $snap) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $snap, $running) = @_;
|
||||
|
||||
my $vname = ($class->parse_volname($volname))[1];
|
||||
|
||||
|
||||
Reference in New Issue
Block a user