kata-containers/s390-tools
1
0
Fork 0
mirror of https://github.com/ibm-s390-linux/s390-tools.git synced 2026-08-05 02:14:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

zfcpdbf: print HBA FC Endpoint Security trace records

Browse Source 
Format and print HBA FC Endpoint Security trace records with a record ID
of ZFCP_DBF_HBA_FCES (5). Align output to the one of FSF response trace
records for readability. Note that the FSF protocol status is most likely
FSF_PROT_GOOD (0x00000001).

Signed-off-by: Jens Remus <jremus@linux.ibm.com>
Reviewed-by: Steffen Maier <maier@linux.ibm.com>
Signed-off-by: Jan Höppner <hoeppner@linux.ibm.com>
This commit is contained in:
Jens Remus
2020-01-30 17:18:03 +01:00
committed by Jan Höppner
parent 67496afe57
commit fbf8513d43
1 changed files with 43 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
scripts/zfcpdbf
View File

@@ -2,7 +2,7 @@
#
# zfcpdbf - Tool to interpret the information from logging/tracing sources
#
# Copyright IBM Corp. 2010, 2017
# Copyright IBM Corp. 2010, 2020
#
# s390-tools is free software; you can redistribute it and/or modify
# it under the terms of the MIT license. See LICENSE for details.
@@ -652,6 +652,47 @@ sub _print_hba_id3
}
}
sub _print_hba_id5
{
my $fsf_req_id = shift();
my $rec = shift();
my $payload_length = shift();
my $rec_received = shift();
my $rec_issued;
$rec_issued = stck_to_timeval(substr($rec, 0, 16));
if (defined $timediff) { # do we want to see delayed responses ?
my @t_arr = split(/[-:]/, $rec_received);
my $ts1 = mktime($t_arr[5], $t_arr[4], $t_arr[3],
$t_arr[2], $t_arr[1] - 1, $t_arr[0] - 1900);
my ($ts2, $us2) = split(/:/, $rec_issued);
my $ts_received = $ts1 . "." . $t_arr[6];
my $ts_issued = $ts2 . "." . $us2;
if (($ts_received - $ts_issued) >= $timediff) {
print "WARNING: delayed response above ",
"skip level of $timediff seconds.\n";
}
}
print "FSF issued : ",str_timestamp($rec_issued),"\n";
print "FSF stat : 0x", substr($rec, 16, 8), "\n";
print "FSF stat qual : n/a\n";
print "Prot stat : n/a\n";
print "Prot stat qual : n/a\n";
print "Port handle : 0x", substr($rec, 24, 8), "\n";
print "LUN handle : n/a\n";
print "WWPN : 0x", substr($rec, 32, 16), "\n";
print "FCES old : 0x", substr($rec, 48, 8), "\n";
print "FCES new : 0x", substr($rec, 56, 8), "\n";
}
sub print_deferr_common
{
my $rec = shift();
@@ -854,6 +895,7 @@ sub assign_callback_subs
$print_hba_id[1] = \&_print_hba_id1;
$print_hba_id[2] = \&_print_hba_id2;
$print_hba_id[3] = \&_print_hba_id3;
$print_hba_id[5] = \&_print_hba_id5;
$print_rec_id[1] = \&_print_rec_id1;
$print_rec_id[2] = \&_print_rec_id2;