volume_snapshot_list: remove $ip parameter
We want to handle ssh connections somewhere else (not inside the storage plugins).
This commit is contained in:
@ -264,13 +264,13 @@ sub volume_has_feature {
|
||||
}
|
||||
|
||||
sub volume_snapshot_list {
|
||||
my ($cfg, $volid, $prefix, $ip) = @_;
|
||||
my ($cfg, $volid, $prefix) = @_;
|
||||
|
||||
my ($storeid, $volname) = parse_volume_id($volid, 1);
|
||||
if ($storeid) {
|
||||
my $scfg = storage_config($cfg, $storeid);
|
||||
my $plugin = PVE::Storage::Plugin->lookup($scfg->{type});
|
||||
return $plugin->volume_snapshot_list($scfg, $storeid, $volname, $prefix, $ip);
|
||||
return $plugin->volume_snapshot_list($scfg, $storeid, $volname, $prefix);
|
||||
} elsif ($volid =~ m|^(/.+)$| && -e $volid) {
|
||||
die "send file/device '$volid' is not possible\n";
|
||||
} else {
|
||||
|
||||
@ -825,7 +825,7 @@ sub status {
|
||||
}
|
||||
|
||||
sub volume_snapshot_list {
|
||||
my ($class, $scfg, $storeid, $volname, $prefix, $ip) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $prefix) = @_;
|
||||
|
||||
# implement in subclass
|
||||
die "Volume_snapshot_list is not implemented for $class";
|
||||
|
||||
@ -363,7 +363,7 @@ sub volume_has_feature {
|
||||
}
|
||||
|
||||
sub volume_snapshot_list {
|
||||
my ($class, $scfg, $storeid, $volname, $prefix, $ip) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $prefix) = @_;
|
||||
# return an empty array if dataset does not exist.
|
||||
die "Volume_snapshot_list is not implemented for ZFS over iSCSI.\n";
|
||||
}
|
||||
|
||||
@ -495,7 +495,7 @@ sub volume_rollback_is_possible {
|
||||
}
|
||||
|
||||
sub volume_snapshot_list {
|
||||
my ($class, $scfg, $storeid, $volname, $prefix, $ip) = @_;
|
||||
my ($class, $scfg, $storeid, $volname, $prefix) = @_;
|
||||
|
||||
my ($vtype, $name, $vmid) = $class->parse_volname($volname);
|
||||
|
||||
@ -507,11 +507,6 @@ sub volume_snapshot_list {
|
||||
my $cmd = ['zfs', 'list', '-r', '-H', '-S', 'name', '-t', 'snap', '-o',
|
||||
'name', $zpath];
|
||||
|
||||
if ($ip) {
|
||||
$ip = "[$ip]" if Net::IP::ip_is_ipv6($ip);
|
||||
unshift @$cmd, 'ssh', '-o', ' BatchMode=yes', "root\@${ip}", '--';
|
||||
}
|
||||
|
||||
my $outfunc = sub {
|
||||
my $line = shift;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user