public_git
/
freenas-proxmox
mirror of https://github.com/TheGrandWazoo/freenas-proxmox.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merge pull request #76 from hans00/master 

Support for TrueNAS SCALE
This commit is contained in:
Kevin Scott Adams 2020-09-24 12:25:36 -04:00 committed by GitHub
parent c9ecef474b 6eedef4137
commit 9aa40c7d7d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
perl5/PVE/Storage/LunCmd/FreeNAS.pm
View File

@ -83,7 +83,7 @@ my $freenas_api_version_matrix = {
"type" => "DISK",
"name" => "\$name",
"disk" => "\$device",
},
},
},
"targetextent" => {
"resource" => "/api/v2.0/iscsi/targetextent/",
@ -399,11 +399,11 @@ sub freenas_api_check {
$result->{'fullversion'} =~ s/^"//g;
}
syslog("info", (caller(0))[3] . " : successful : Server version: " . $result->{'fullversion'});
$result->{'fullversion'} =~ s/^(\w+)\-(\d+)\.(\d+)\-(?:U|BETA)(\d?)\.?(\d?)//;
my $freenas_version = sprintf("%02d%02d%02d%02d", $2, $3 || 0, $4 || 0, $5 || 0);
$result->{'fullversion'} =~ /^(\w+(?:-\w+)?)\-(\d+)\.(\d+)/;
my $freenas_version = sprintf("%02d%02d", $2, $3 || 0);
$product_name = $1;
syslog("info", (caller(0))[3] . " : ". $product_name . " Unformatted Version: " . $freenas_version);
if ($freenas_version >= 11030100) {
if ($freenas_version >= 1103) {
$freenas_api_version = "v2.0";
$dev_prefix = "/dev/";
}
@ -439,7 +439,7 @@ sub freenas_api_call {
$freenas_rest_connection = $freenas_server_list->{$apihost};
$freenas_global_config = $freenas_global_config_list->{$apihost};
my $json_data = (defined $data) ? encode_json($data) : undef;
$freenas_rest_connection->$method($path, $json_data);
$freenas_rest_connection->request($method, $path, $json_data);
syslog("info", (caller(0))[3] . " : successful");
return;
}
@ -511,6 +511,7 @@ sub freenas_iscsi_create_extent {
my $name = $lun_path;
$name =~ s/^.*\///; # all from last /
$name = $scfg->{'pool'} . '/' . $name;
$name =~ s/\//-/; # replace / to -
my $device = $lun_path;
$device =~ s/^\/dev\///; # strip /dev/