mirror of
https://github.com/ibm-s390-linux/s390-tools.git
synced 2026-08-05 02:14:52 +00:00
eba744a25e
Simply skip non-zfcp SCSI devices, such as iSCSI or virtio-scsi-ccw, to not erroneously access absent zfcp-specific sysfs attributes. Signed-off-by: Steffen Maier <maier@linux.ibm.com> Reviewed-by: Hendrik Brueckner <brueckner@linux.ibm.com> Reviewed-by: Jens Remus <jremus@linux.ibm.com> Signed-off-by: Jan Höppner <hoeppner@linux.ibm.com>
348 lines
11 KiB
Perl
Executable File
348 lines
11 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# lsluns - list LUNs discovered in the FC SAN, or show encryption state of attached LUNs
|
|
#
|
|
# Copyright IBM Corp. 2008, 2018
|
|
#
|
|
# s390-tools is free software; you can redistribute it and/or modify
|
|
# it under the terms of the MIT license. See LICENSE for details.
|
|
#
|
|
|
|
use strict;
|
|
use warnings;
|
|
use English;
|
|
use Getopt::Long;
|
|
use File::Basename;
|
|
use File::Glob;
|
|
|
|
my %res_hash = ();
|
|
my @adapter = ();
|
|
my @port = ();
|
|
my $active = "";
|
|
|
|
my $wlun = "0xc101000000000000";
|
|
my $lun0 = "0x0000000000000000";
|
|
my $sg_dir = "/sys/class/scsi_generic";
|
|
my $udevsettle_call;
|
|
my $udevadm = "/sbin/udevadm";
|
|
|
|
|
|
if (! -e $udevadm) {
|
|
$udevsettle_call = "/sbin/udevsettle";
|
|
} else {
|
|
$udevsettle_call = "$udevadm settle";
|
|
}
|
|
|
|
# read the first line of a sysfs-entry and compare it to a given string
|
|
# parameters:
|
|
# 1 - $sysfs_attr_path: path to the sysfs-entry
|
|
# 2 - $compare_value: compare-value (used as string)
|
|
# return:
|
|
# true/false: depending on the comparison (true for equal)
|
|
# undef: if I/O on the given path isn't possible
|
|
sub sysfs_read_and_compare($$)
|
|
{
|
|
my ($sysfs_attr_path, $compare_value) = @_;
|
|
|
|
open(my $sysfs_attr, "<", $sysfs_attr_path) or return undef;
|
|
my $sysfs_value = <$sysfs_attr>;
|
|
close($sysfs_attr);
|
|
|
|
# EOF?
|
|
if (!defined($sysfs_value)) {
|
|
return undef;
|
|
}
|
|
|
|
chomp($sysfs_value);
|
|
return $sysfs_value eq $compare_value;
|
|
}
|
|
|
|
sub list_luns
|
|
{
|
|
my %lun_hash = get_lun_hash();
|
|
my $drv_dir = "/sys/bus/ccw/drivers/zfcp";
|
|
my $man_att;
|
|
my $cnt;
|
|
|
|
foreach my $a (sort keys %res_hash) {
|
|
# first check whether the adapter is online and good to use
|
|
if (!sysfs_read_and_compare($drv_dir.'/'.$a.'/online', "1") ||
|
|
!sysfs_read_and_compare($drv_dir.'/'.$a.'/availability', "good") ||
|
|
!sysfs_read_and_compare($drv_dir.'/'.$a.'/failed', "0") ||
|
|
!sysfs_read_and_compare($drv_dir.'/'.$a.'/in_recovery', "0"))
|
|
{
|
|
print "Adapter $a is not in a good state; skipping LUN scan.\n";
|
|
next;
|
|
}
|
|
|
|
print "Scanning for LUNs on adapter $a\n";
|
|
foreach my $p (@{$res_hash{$a}}) {
|
|
next if (! -e $drv_dir."/$a/$p");
|
|
my $status = `cat $drv_dir/$a/$p/access_denied`;
|
|
$status .= `cat $drv_dir/$a/$p/failed`;
|
|
$status .= `cat $drv_dir/$a/$p/in_recovery`;
|
|
if ($status =~ /1/) {
|
|
print "\tat port $p:\n";
|
|
print "\t\tPort not online. Cannot scan for LUNs.\n";
|
|
next;
|
|
}
|
|
if (!defined($lun_hash{$a}{$p})) {
|
|
`echo $lun0 >> $drv_dir/$a/$p/unit_add 2>/dev/null`;
|
|
for ($cnt = 0; $cnt < 4; $cnt++) {
|
|
`$udevsettle_call`;
|
|
%lun_hash = get_lun_hash();
|
|
last if (defined($lun_hash{$a}{$p}));
|
|
select(undef, undef, undef, 0.1);
|
|
}
|
|
if (!defined($lun_hash{$a}{$p})) {
|
|
`echo $lun0 >> $drv_dir/$a/$p/unit_remove 2>/dev/null`;
|
|
`echo $wlun >> $drv_dir/$a/$p/unit_add 2>/dev/null`;
|
|
for ($cnt = 0; $cnt < 4; $cnt++) {
|
|
`$udevsettle_call`;
|
|
%lun_hash = get_lun_hash();
|
|
last if (defined($lun_hash{$a}{$p}));
|
|
select(undef, undef, undef, 0.1);
|
|
}
|
|
if (!defined($lun_hash{$a}{$p})) {
|
|
`echo $wlun >> $drv_dir/$a/$p/unit_remove 2>/dev/null`;
|
|
print"\tat port $p:\n";
|
|
print "\t\tCannot attach WLUN / LUN0 for scanning.\n";
|
|
next;
|
|
}
|
|
}
|
|
$man_att = 1;
|
|
}
|
|
|
|
my $retries = 0;
|
|
foreach my $lun (@{[keys %{$lun_hash{$a}{$p}}]}) {
|
|
my $sg_dev = $lun_hash{$a}{$p}{$lun};
|
|
select(undef, undef, undef, 0.1) while (! -e "/dev/$sg_dev");
|
|
my @output = `sg_luns /dev/$sg_dev 2>/dev/null`;
|
|
my $error = $?;
|
|
if ($man_att) {
|
|
`echo 1 >> $sg_dir/$sg_dev/device/delete 2>/dev/null`;
|
|
select(undef, undef, undef, 0.1);
|
|
`echo $lun >> $drv_dir/$a/$p/unit_remove 2>/dev/null`;
|
|
$man_att = 0;
|
|
}
|
|
print "\tat port $p:\n" if (!$retries);
|
|
if (!$error && @output) {
|
|
splice(@output, 0, 2);
|
|
map { s/\s*(\w{16})\s*/\t\t0x$1\n/ } @output;
|
|
print @output;
|
|
last;
|
|
}
|
|
if ($error) {
|
|
print "\t\tUnable to send the REPORT_LUNS command to LUN.\n";
|
|
}
|
|
$retries++;
|
|
last if ($retries > 3);
|
|
}
|
|
}
|
|
if (! -d $sg_dir) {
|
|
print "$PROGRAM_NAME: Error: Please load/configure SCSI Generic (sg) to use $PROGRAM_NAME.\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
# Look only for LUN0 and the REPORT LUNs WLUN. SAM specifies that the storage
|
|
# only has to response on one of those to the REPORT LUNs command.
|
|
sub get_lun_hash
|
|
{
|
|
my %lun_hash;
|
|
|
|
foreach my $device (</$sg_dir/sg*>) {
|
|
# skip non-zfcp SCSI devices and avoid file access error messages
|
|
next unless -r "$device/device/fcp_lun";
|
|
next unless -r "$device/device/wwpn";
|
|
next unless -r "$device/device/hba_id";
|
|
|
|
my $l = `cat $device/device/fcp_lun`;
|
|
my $p = `cat $device/device/wwpn`;
|
|
my $a = `cat $device/device/hba_id`;
|
|
|
|
$l =~ s/(0x\w{16})*\n/$1/;
|
|
$p =~ s/(0x\w{16})*\n/$1/;
|
|
chomp($a);
|
|
|
|
if ($active or ($l eq $lun0 or $l eq $wlun)) {
|
|
$lun_hash{$a}{$p}{$l} = ${[split('/', $device)]}[-1];
|
|
}
|
|
}
|
|
return %lun_hash;
|
|
}
|
|
|
|
sub lsluns_usage {
|
|
print <<EOD;
|
|
Usage:
|
|
This tool is designed for environments with SCSI devices attached
|
|
through the zfcp device driver.
|
|
|
|
$PROGRAM_NAME [-c <busid>] ... [-p <wwpn>] ... [-h] [-v]
|
|
|
|
List LUNs discovered in the Fibre Channel (FC) Storage Area Network (SAN).
|
|
This causes extra SAN traffic for each target port WWPN.
|
|
Discovering LUNs only makes sense for NPIV-enabled FCP devices
|
|
without zfcp automatic LUN scan. zfcp automatic LUN scan is available
|
|
as of kernel version 2.6.37, if not disabled with zfcp.allow_lun_scan=0.
|
|
For storage products that do not support a REPORT LUNS
|
|
well-known logical unit (such as IBM Storwize products),
|
|
ensure that LUN 0 represents a valid peripheral device type.
|
|
See the man page for more information.
|
|
|
|
$PROGRAM_NAME -a [-c <busid>] ... [-p <wwpn>] ... [-h] [-v]
|
|
|
|
Show encryption state of the attached LUNs.
|
|
This causes extra SAN traffic for each attached LUN.
|
|
|
|
For all other uses, such as listing attached LUNs or properties other than
|
|
encryption, use other tools such as "lszfcp -D" or "lsscsi -tv"
|
|
or "lszdev zfcp-lun -ii".
|
|
|
|
Limit the listing by specifying one or more adapters (FCP device
|
|
bus-IDs) or target port WWPNs or both.
|
|
|
|
Options:
|
|
-c <busid>, --ccw <busid>
|
|
Filter LUNs by adapter with the specified FCP device bus-ID. Can be
|
|
specified multiple times.
|
|
For example: "$PROGRAM_NAME -c 0.0.3922"
|
|
|
|
-p <wwpn>, --port <wwpn>
|
|
Filter LUNs by target port with the specified WWPN. Can be specified
|
|
multiple times.
|
|
For example: "$PROGRAM_NAME -p 0x5005123456789000"
|
|
|
|
-h, --help
|
|
Print help message and exit.
|
|
|
|
-v, --version
|
|
Display version information and exit.
|
|
EOD
|
|
exit 0;
|
|
}
|
|
|
|
sub lsluns_version {
|
|
print "$PROGRAM_NAME: version %S390_TOOLS_VERSION%\n";
|
|
print "Copyright IBM Corp. 2008, 2018\n";
|
|
}
|
|
|
|
sub lsluns_invalid_usage {
|
|
print "$PROGRAM_NAME: invalid option\n";
|
|
print "Try '$PROGRAM_NAME --help' for more information.\n";
|
|
}
|
|
|
|
sub get_env_list
|
|
{
|
|
my $a_ref_list = shift();
|
|
my $p_ref_list = shift();
|
|
my @res ;
|
|
my %res_hash;
|
|
|
|
if (!</sys/bus/ccw/drivers/zfcp/*.*.*/>) {
|
|
print "$PROGRAM_NAME: No adapter exists\n";
|
|
return;
|
|
}
|
|
@res = </sys/bus/ccw/drivers/zfcp/*.*.*/0x*>;
|
|
if (!@res) {
|
|
print "$PROGRAM_NAME: No port on any adapter exists\n";
|
|
return;
|
|
}
|
|
foreach my $entry (@res) {
|
|
my $a = ${[split('/', $entry)]}[-2];
|
|
my $p = ${[split('/', $entry)]}[-1];
|
|
next if (@$a_ref_list && "@$a_ref_list" !~ /$a/);
|
|
next if (@$p_ref_list && "@$p_ref_list" !~ /$p/);
|
|
push @{ $res_hash{$a} }, $p;
|
|
}
|
|
|
|
if (!%res_hash) {
|
|
print "$PROGRAM_NAME: Adapter and/or port filter(s) did not match anything\n";
|
|
}
|
|
return %res_hash;
|
|
}
|
|
|
|
sub show_attached_lun_info
|
|
{
|
|
my %lun_hash = get_lun_hash();
|
|
my @txt = ("Disk", "Tape", "Printer", "Proc", "WRO",
|
|
"CD/DVD", "Scanner", "OMD", "Changer","Comm","n/a",
|
|
"n/a","RAID", "Encl");
|
|
|
|
if (glob("/sys/class/scsi_device/*") && (! -d $sg_dir)) {
|
|
print "$PROGRAM_NAME: Error: Please load/configure SCSI Generic (sg) to use $PROGRAM_NAME.\n";
|
|
}
|
|
foreach my $a (sort keys %lun_hash) {
|
|
next if ("@adapter" !~ /$a/);
|
|
print "adapter = $a\n";
|
|
foreach my $p (sort keys %{$lun_hash{$a}}) {
|
|
next if ("@port" !~ /$p/);
|
|
print "\tport = $p\n";
|
|
foreach my $l (sort keys %{$lun_hash{$a}{$p}}) {
|
|
my $sg_dev = "/dev/".$lun_hash{$a}{$p}{$l};
|
|
my $inq = `sg_inq -r $sg_dev 2>/dev/null`;
|
|
if (!$inq) {
|
|
print("\t\tlun = $l [offline]\n");
|
|
next;
|
|
}
|
|
(my $vend = substr($inq, 0x8, 0x8)) =~ s/\s*//g;
|
|
(my $mod = substr($inq, 0x10, 0x10)) =~ s/\s*//g;
|
|
my $type = ord(substr($inq, 0x0, 0x1));
|
|
my $enc = ($mod =~ /2107/) ?
|
|
ord(substr($inq, 0xa2, 0x1)) : 0;
|
|
$l .= "(X)" if ($enc & 0x80);
|
|
$txt[$type] = $type if (!defined($txt[$type]));
|
|
print("\t\tlun = $l\t$sg_dev\t$txt[$type]",
|
|
"\t$vend:$mod\n");
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
|
|
########### main ################
|
|
|
|
$PROGRAM_NAME = basename($PROGRAM_NAME);
|
|
|
|
Getopt::Long::Configure(qw(bundling));
|
|
GetOptions('c|ccw=s' => \@adapter,
|
|
'p|port=s' => \@port,
|
|
'a|active' => \$active,
|
|
'v|version' => sub { lsluns_version(); exit 0; },
|
|
'h|help' => sub { lsluns_usage(); exit 0; },
|
|
) or do {
|
|
lsluns_invalid_usage();
|
|
exit 1;
|
|
};
|
|
|
|
@adapter = split(',', join(',', @adapter));
|
|
foreach (@adapter) {
|
|
$_ =~ tr/A-Z/a-z/;
|
|
}
|
|
|
|
@port = split(',', join(',', @port));
|
|
foreach (@port) {
|
|
$_ =~ tr/A-Z/a-z/;
|
|
}
|
|
|
|
%res_hash = get_env_list(\@adapter, \@port);
|
|
|
|
@adapter = keys %res_hash;
|
|
push @port, map { @{$res_hash{$_}} } keys %res_hash;
|
|
|
|
# checking for helper progs
|
|
|
|
die "$PROGRAM_NAME: Unable to execute due to missing sg3_utils package. ".
|
|
"Processing stopped.\n" if system("sg_luns -V > /dev/null 2>&1");
|
|
|
|
|
|
|
|
if ($active) {
|
|
show_attached_lun_info();
|
|
} else {
|
|
list_luns();
|
|
}
|
|
|
|
|