mirror of
https://github.com/ibm-s390-linux/s390-tools.git
synced 2026-08-05 02:14:52 +00:00
This commit is based on the s390-tools-1.39.0 version. Changes on top of s390-tools-1.39.0: - Add MIT license to all source files - Add LICENSE file - Transform REAMDE to README.md (markdown) - Add AUTHORS.md file - Add CONTRIBUTING.md file - Move changelog from README to CHANGELOG.md file Reviewed-by: Stefan Haberland <sth@linux.vnet.ibm.com> Signed-off-by: Michael Holzheu <holzheu@linux.vnet.ibm.com>
279 lines
7.7 KiB
Bash
Executable File
279 lines
7.7 KiB
Bash
Executable File
#!/bin/bash
|
|
#
|
|
# scsi_logging_level - Conveniently create and set scsi logging level,
|
|
# show SCSI_LOG fields in human readable form
|
|
#
|
|
# Copyright IBM Corp. 2006, 2017
|
|
#
|
|
# s390-tools is free software; you can redistribute it and/or modify
|
|
# it under the terms of the MIT license. See LICENSE for details.
|
|
#
|
|
|
|
SCRIPTNAME="scsi_logging_level"
|
|
|
|
declare -i LOG_ERROR=0
|
|
declare -i LOG_TIMEOUT=0
|
|
declare -i LOG_SCAN=0
|
|
declare -i LOG_MLQUEUE=0
|
|
declare -i LOG_MLCOMPLETE=0
|
|
declare -i LOG_LLQUEUE=0
|
|
declare -i LOG_LLCOMPLETE=0
|
|
declare -i LOG_HLQUEUE=0
|
|
declare -i LOG_HLCOMPLETE=0
|
|
declare -i LOG_IOCTL=0
|
|
|
|
declare -i LEVEL=0
|
|
|
|
_ERROR_SHIFT=0
|
|
_TIMEOUT_SHIFT=3
|
|
_SCAN_SHIFT=6
|
|
_MLQUEUE_SHIFT=9
|
|
_MLCOMPLETE_SHIFT=12
|
|
_LLQUEUE_SHIFT=15
|
|
_LLCOMPLETE_SHIFT=18
|
|
_HLQUEUE_SHIFT=21
|
|
_HLCOMPLETE_SHIFT=24
|
|
_IOCTL_SHIFT=27
|
|
|
|
SET=0
|
|
GET=0
|
|
CREATE=0
|
|
|
|
OPTS=`getopt -o hvcgsa:E:T:S:I:M:L:H: --long \
|
|
help,version,create,get,set,all:,error:,timeout:,scan:,ioctl:,\
|
|
midlevel:,mlqueue:,mlcomplete:,lowlevel:,llqueue:,llcomplete:,\
|
|
highlevel:,hlqueue:,hlcomplete: -n \'$SCRIPTNAME\' -- "$@"`
|
|
eval set -- "$OPTS"
|
|
|
|
# print version info
|
|
printversion()
|
|
{
|
|
cat <<EOF
|
|
$SCRIPTNAME: version %S390_TOOLS_VERSION%
|
|
Copyright IBM Corp. 2006, 2017
|
|
EOF
|
|
}
|
|
|
|
# print usage and help
|
|
printhelp()
|
|
{
|
|
cat <<EOF
|
|
Usage: $SCRIPTNAME [OPTIONS]
|
|
|
|
Create, get or set scsi logging level.
|
|
|
|
Options:
|
|
|
|
-h, --help print this help
|
|
-v, --version print version information
|
|
-s, --set create and set logging level as specified on
|
|
command line
|
|
-g, --get get current logging level and display it
|
|
-c, --create create logging level as specified on command line
|
|
-a, --all specify value for all SCSI_LOG fields
|
|
-E, --error specify SCSI_LOG_ERROR
|
|
-T, --timeout specify SCSI_LOG_TIMEOUT
|
|
-S, --scan specify SCSI_LOG_SCAN
|
|
-M, --midlevel specify SCSI_LOG_MLQUEUE and SCSI_LOG_MLCOMPLETE
|
|
--mlqueue specify SCSI_LOG_MLQUEUE
|
|
--mlcomplete specify SCSI_LOG_MLCOMPLETE
|
|
-L, --lowlevel specify SCSI_LOG_LLQUEUE and SCSI_LOG_LLCOMPLETE
|
|
--llqueue specify SCSI_LOG_LLQUEUE
|
|
--llcomplete specify SCSI_LOG_LLCOMPLETE
|
|
-H, --highlevel specify SCSI_LOG_HLQUEUE and SCSI_LOG_HLCOMPLETE
|
|
--hlqueue specify SCSI_LOG_HLQUEUE
|
|
--hlcomplete specify SCSI_LOG_HLCOMPLETE
|
|
-I, --ioctl specify SCSI_LOG_IOCTL
|
|
|
|
Exactly one of the options "-c", "-g" and "-s" has to be specified.
|
|
Valid values for SCSI_LOG fields are integers from 0 to 7.
|
|
|
|
Note: Several SCSI_LOG fields can be specified using several options.
|
|
When multiple options specify same SCSI_LOG field the most specific
|
|
option has precedence.
|
|
|
|
Example: "scsi_logging_level --hlqueue 3 --hlcomplete 2 --all 1 -s" sets
|
|
SCSI_LOG_HLQUEUE=3, SCSI_LOG_HLCOMPLETE=2 and assigns all other SCSI_LOG
|
|
fields the value 1.
|
|
EOF
|
|
}
|
|
|
|
check_level()
|
|
{
|
|
if [ `echo -n $1 | tr --complement [:digit:] 'a' | grep -s 'a'` ]
|
|
then
|
|
invalid_cmdline "log level '$1' out of range [0, 7]"
|
|
fi
|
|
|
|
if [ $1 -lt 0 -o $1 -gt 7 ]
|
|
then
|
|
invalid_cmdline "log level '$1' out of range [0, 7]"
|
|
fi
|
|
}
|
|
|
|
# check cmd line arguments
|
|
check_cmdline()
|
|
{
|
|
while true ; do
|
|
case "$1" in
|
|
-a|--all) _ALL=$2; check_level $2
|
|
shift 2;;
|
|
-c|--create) CREATE=1;
|
|
shift 1;;
|
|
-g|--get) GET=1
|
|
shift 1;;
|
|
-h|--help) printhelp
|
|
exit 0;;
|
|
-s|--set) SET=1
|
|
shift 1;;
|
|
-v|--version) printversion
|
|
exit 0;;
|
|
-E|--error) _ERROR=$2; check_level $2
|
|
shift 2;;
|
|
-T|--timeout) _TIMEOUT=$2; check_level $2
|
|
shift 2;;
|
|
-S|--scan) _SCAN=$2; check_level $2
|
|
shift 2;;
|
|
-M|--midlevel) _ML=$2; check_level $2
|
|
shift 2;;
|
|
--mlqueue) _MLQUEUE=$2; check_level $2
|
|
shift 2;;
|
|
--mlcomplete) _MLCOMPLETE=$2; check_level $2
|
|
shift 2;;
|
|
-L|--lowlevel) _LL=$2; check_level $2
|
|
shift 2;;
|
|
--llqueue) _LLQUEUE=$2; check_level $2
|
|
shift 2;;
|
|
--llcomplete) _LLCOMPLETE=$2; check_level $2
|
|
shift 2;;
|
|
-H|--highlevel) _HL=$2; check_level $2
|
|
shift 2;;
|
|
--hlqueue) _HLQUEUE=$2; check_level $2
|
|
shift 2;;
|
|
--hlcomplete) _HLCOMPLETE=$2; check_level $2
|
|
shift 2;;
|
|
-I|--ioctl) _IOCTL=$2; check_level $2
|
|
shift 2;;
|
|
--) shift; break;;
|
|
*) echo "Internal error!" ; exit 1;;
|
|
esac
|
|
done
|
|
|
|
if [ -n "$*" ]
|
|
then
|
|
invalid_cmdline invalid parameter $*
|
|
fi
|
|
|
|
if [ $GET = "1" -a $SET = "1" ]
|
|
then
|
|
invalid_cmdline options \'-c\', \'-g\' and \'-s\' are mutual exclusive
|
|
elif [ $GET = "1" -a $CREATE = "1" ]
|
|
then
|
|
invalid_cmdline options \'-c\', \'-g\' and \'-s\' are mutual exclusive
|
|
elif [ $SET = "1" -a $CREATE = "1" ]
|
|
then
|
|
invalid_cmdline options \'-c\', \'-g\' and \'-s\' are mutual exclusive
|
|
fi
|
|
|
|
LOG_ERROR=${_ERROR:-${_ALL:-0}}
|
|
LOG_TIMEOUT=${_TIMEOUT:-${_ALL:-0}}
|
|
LOG_SCAN=${_SCAN:-${_ALL:-0}}
|
|
LOG_MLQUEUE=${_MLQUEUE:-${_ML:-${_ALL:-0}}}
|
|
LOG_MLCOMPLETE=${_MLCOMPLETE:-${_ML:-${_ALL:-0}}}
|
|
LOG_LLQUEUE=${_LLQUEUE:-${_LL:-${_ALL:-0}}}
|
|
LOG_LLCOMPLETE=${_LLCOMPLETE:-${_LL:-${_ALL:-0}}}
|
|
LOG_HLQUEUE=${_HLQUEUE:-${_HL:-${_ALL:-0}}}
|
|
LOG_HLCOMPLETE=${_HLCOMPLETE:-${_HL:-${_ALL:-0}}}
|
|
LOG_IOCTL=${_IOCTL:-${_ALL:-0}}
|
|
}
|
|
|
|
invalid_cmdline()
|
|
{
|
|
echo "$SCRIPTNAME: $*"
|
|
echo "$SCRIPTNAME: Try '$SCRIPTNAME --help' for more information."
|
|
exit 1
|
|
}
|
|
|
|
get_logging_level()
|
|
{
|
|
echo "Current scsi logging level:"
|
|
LEVEL=`sysctl -n dev.scsi.logging_level`
|
|
if [ $? != 0 ]
|
|
then
|
|
echo "$SCRIPTNAME: could not read scsi logging level" \
|
|
"(kernel probably without SCSI_LOGGING support)"
|
|
exit 1
|
|
fi
|
|
}
|
|
|
|
show_logging_level()
|
|
{
|
|
echo "dev.scsi.logging_level = $LEVEL"
|
|
|
|
LOG_ERROR=$((($LEVEL>>$_ERROR_SHIFT) & 7))
|
|
LOG_TIMEOUT=$((($LEVEL>>$_TIMEOUT_SHIFT) & 7))
|
|
LOG_SCAN=$((($LEVEL>>$_SCAN_SHIFT) & 7))
|
|
LOG_MLQUEUE=$((($LEVEL>>$_MLQUEUE_SHIFT) & 7))
|
|
LOG_MLCOMPLETE=$((($LEVEL>>$_MLCOMPLETE_SHIFT) & 7))
|
|
LOG_LLQUEUE=$((($LEVEL>>$_LLQUEUE_SHIFT) & 7))
|
|
LOG_LLCOMPLETE=$((($LEVEL>>$_LLCOMPLETE_SHIFT) & 7))
|
|
LOG_HLQUEUE=$((($LEVEL>>$_HLQUEUE_SHIFT) & 7))
|
|
LOG_HLCOMPLETE=$((($LEVEL>>$_HLCOMPLETE_SHIFT) & 7))
|
|
LOG_IOCTL=$((($LEVEL>>$_IOCTL_SHIFT) & 7))
|
|
|
|
echo "SCSI_LOG_ERROR=$LOG_ERROR"
|
|
echo "SCSI_LOG_TIMEOUT=$LOG_TIMEOUT"
|
|
echo "SCSI_LOG_SCAN=$LOG_SCAN"
|
|
echo "SCSI_LOG_MLQUEUE=$LOG_MLQUEUE"
|
|
echo "SCSI_LOG_MLCOMPLETE=$LOG_MLCOMPLETE"
|
|
echo "SCSI_LOG_LLQUEUE=$LOG_LLQUEUE"
|
|
echo "SCSI_LOG_LLCOMPLETE=$LOG_LLCOMPLETE"
|
|
echo "SCSI_LOG_HLQUEUE=$LOG_HLQUEUE"
|
|
echo "SCSI_LOG_HLCOMPLETE=$LOG_HLCOMPLETE"
|
|
echo "SCSI_LOG_IOCTL=$LOG_IOCTL"
|
|
}
|
|
|
|
set_logging_level()
|
|
{
|
|
echo "New scsi logging level:"
|
|
sysctl -q -w dev.scsi.logging_level=$LEVEL
|
|
if [ $? != 0 ]
|
|
then
|
|
echo "$SCRIPTNAME: could not write scsi logging level" \
|
|
"(kernel probably without SCSI_LOGGING support)"
|
|
exit 1
|
|
fi
|
|
}
|
|
create_logging_level()
|
|
{
|
|
LEVEL=$((($LOG_ERROR & 7)<<$_ERROR_SHIFT))
|
|
LEVEL=$(($LEVEL|(($LOG_TIMEOUT & 7)<<$_TIMEOUT_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_SCAN & 7)<<$_SCAN_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_MLQUEUE & 7)<<$_MLQUEUE_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_MLCOMPLETE & 7)<<$_MLCOMPLETE_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_LLQUEUE & 7)<<$_LLQUEUE_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_LLCOMPLETE & 7)<<$_LLCOMPLETE_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_HLQUEUE & 7)<<$_HLQUEUE_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_HLCOMPLETE & 7)<<$_HLCOMPLETE_SHIFT)))
|
|
LEVEL=$(($LEVEL|(($LOG_IOCTL & 7)<<$_IOCTL_SHIFT)))
|
|
}
|
|
|
|
check_cmdline $*
|
|
|
|
if [ $SET = "1" ]
|
|
then
|
|
create_logging_level
|
|
set_logging_level
|
|
show_logging_level
|
|
elif [ $GET = "1" ]
|
|
then
|
|
get_logging_level
|
|
show_logging_level
|
|
elif [ $CREATE = "1" ]
|
|
then
|
|
create_logging_level
|
|
show_logging_level
|
|
else
|
|
invalid_cmdline missing option \'-g\', \'-s\' or \'-c\'
|
|
fi
|