137 lines
4.1 KiB
Diff
137 lines
4.1 KiB
Diff
--- ZFSPlugin.pm.orig 2018-05-16 04:06:14.000000000 -0400
|
|
+++ ZFSPlugin.pm 2018-08-19 15:44:12.472851999 -0400
|
|
@@ -10,6 +10,7 @@
|
|
|
|
use base qw(PVE::Storage::ZFSPoolPlugin);
|
|
use PVE::Storage::LunCmd::Comstar;
|
|
+use PVE::Storage::LunCmd::FreeNAS;
|
|
use PVE::Storage::LunCmd::Istgt;
|
|
use PVE::Storage::LunCmd::Iet;
|
|
|
|
@@ -25,13 +26,14 @@
|
|
modify_lu => 1,
|
|
add_view => 1,
|
|
list_view => 1,
|
|
+ list_extent => 1,
|
|
list_lu => 1,
|
|
};
|
|
|
|
my $zfs_unknown_scsi_provider = sub {
|
|
my ($provider) = @_;
|
|
|
|
- die "$provider: unknown iscsi provider. Available [comstar, istgt, iet]";
|
|
+ die "$provider: unknown iscsi provider. Available [comstar, freenas, istgt, iet]";
|
|
};
|
|
|
|
my $zfs_get_base = sub {
|
|
@@ -39,6 +41,8 @@
|
|
|
|
if ($scfg->{iscsiprovider} eq 'comstar') {
|
|
return PVE::Storage::LunCmd::Comstar::get_base;
|
|
+ } elsif ($scfg->{iscsiprovider} eq 'freenas') {
|
|
+ return PVE::Storage::LunCmd::FreeNAS::get_base;
|
|
} elsif ($scfg->{iscsiprovider} eq 'istgt') {
|
|
return PVE::Storage::LunCmd::Istgt::get_base;
|
|
} elsif ($scfg->{iscsiprovider} eq 'iet') {
|
|
@@ -59,6 +63,8 @@
|
|
if ($lun_cmds->{$method}) {
|
|
if ($scfg->{iscsiprovider} eq 'comstar') {
|
|
$msg = PVE::Storage::LunCmd::Comstar::run_lun_command($scfg, $timeout, $method, @params);
|
|
+ } elsif ($scfg->{iscsiprovider} eq 'freenas') {
|
|
+ $msg = PVE::Storage::LunCmd::FreeNAS::run_lun_command($scfg, $timeout, $method, @params);
|
|
} elsif ($scfg->{iscsiprovider} eq 'istgt') {
|
|
$msg = PVE::Storage::LunCmd::Istgt::run_lun_command($scfg, $timeout, $method, @params);
|
|
} elsif ($scfg->{iscsiprovider} eq 'iet') {
|
|
@@ -155,6 +161,14 @@
|
|
return $class->zfs_request($scfg, undef, 'list_view', $guid);
|
|
}
|
|
|
|
+sub zfs_get_wwid_number {
|
|
+ my ($class, $scfg, $guid) = @_;
|
|
+
|
|
+ die "could not find lun_number for guid $guid" if !$guid;
|
|
+
|
|
+ return $class->zfs_request($scfg, undef, 'list_extent', $guid);
|
|
+}
|
|
+
|
|
# Configuration
|
|
|
|
sub type {
|
|
@@ -173,6 +187,22 @@
|
|
description => "iscsi provider",
|
|
type => 'string',
|
|
},
|
|
+ freenas_user => {
|
|
+ description => "FreeNAS API Username",
|
|
+ type => 'string',
|
|
+ },
|
|
+ freenas_password => {
|
|
+ description => "FreeNAS API Password",
|
|
+ type => 'string',
|
|
+ },
|
|
+ freenas_use_ssl => {
|
|
+ description => "FreeNAS API access via SSL",
|
|
+ type => 'boolean',
|
|
+ },
|
|
+ freenas_apiv4_host => {
|
|
+ description => "FreeNAS API Host",
|
|
+ type => 'string',
|
|
+ },
|
|
# this will disable write caching on comstar and istgt.
|
|
# it is not implemented for iet. iet blockio always operates with
|
|
# writethrough caching when not in readonly mode
|
|
@@ -204,6 +234,10 @@
|
|
sparse => { optional => 1 },
|
|
comstar_hg => { optional => 1 },
|
|
comstar_tg => { optional => 1 },
|
|
+ freenas_user => { optional => 1 },
|
|
+ freenas_password => { optional => 1 },
|
|
+ freenas_use_ssl => { optional => 1 },
|
|
+ freenas_apiv4_host => { optional => 1 },
|
|
content => { optional => 1 },
|
|
bwlimit => { optional => 1 },
|
|
};
|
|
@@ -225,7 +259,41 @@
|
|
my $guid = $class->zfs_get_lu_name($scfg, $name);
|
|
my $lun = $class->zfs_get_lun_number($scfg, $guid);
|
|
|
|
- my $path = "iscsi://$portal/$target/$lun";
|
|
+ my $wwid = $class->zfs_get_wwid_number($scfg, $guid);
|
|
+# syslog(info,"JD: path get_lun_number guid $uid");
|
|
+
|
|
+ if ($wwid =~ /^([-\@\w.]+)$/) {
|
|
+ $wwid = $1; # $data now untainted
|
|
+ } else {
|
|
+ die "Bad data in '$wwid'"; # log this somewhere
|
|
+ }
|
|
+ my $wwid_end = substr $wwid, 16;
|
|
+
|
|
+ my $mapper = '';
|
|
+ sleep 3;
|
|
+ run_command("iscsiadm -m session --rescan");
|
|
+ sleep 3;
|
|
+ my $line = `multipath -ll | grep \"$wwid_end\"`;
|
|
+ my ($mapper_device) = split(' ', $line);
|
|
+ $mapper_device = "" unless $mapper_device;
|
|
+ $mapper .= $mapper_device;
|
|
+
|
|
+ my $path = "";
|
|
+
|
|
+ if ($mapper =~ /^([-\@\w.]+)$/) {
|
|
+ $mapper = $1; # $data now untainted
|
|
+ } else {
|
|
+ $mapper = '';
|
|
+ }
|
|
+
|
|
+# syslog(info,"Mapper: $mapper\n");
|
|
+ if ($mapper eq "")
|
|
+ {
|
|
+ $path = "iscsi://$portal/$target/$lun";
|
|
+ } else {
|
|
+ $path = "/dev/mapper/$mapper";
|
|
+ sleep 5;
|
|
+ }
|
|
|
|
return ($path, $vmid, $vtype);
|
|
}
|