#! /bin/bash
###############################################################################
# Conveniently create and set scsi logging level, show SCSI_LOG fields in human
# readable form.
#
# (C) Copyright IBM Corp. 2006
#
# Modified by D. Gilbert to replace the use of sysctl [20080218]
# Lat change: D. Gilbert 20150219
###############################################################################
REVISION="1.0"
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
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
%S390_TOOLS_VERSION% ($SCRIPTNAME $REVISION)
(C) Copyright IBM Corp. 2006
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 --highlevel 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()
{
num=$(($1))
if [ $num != "$1" ] ; then
invalid_cmdline "log level '$1' not a number"
elif [ $num -lt 0 ] || [ $num -gt 7 ] ; then
invalid_cmdline "log level '$1' out of range, expect '0' to '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)
LEVEL=$(cat /proc/sys/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 "/proc/sys/dev/scsi/logging_level = $LEVEL"
LOG_ERROR=$((LEVEL & 7)); LEVEL=$((LEVEL>>3))
LOG_TIMEOUT=$((LEVEL & 7)); LEVEL=$((LEVEL>>3))
LOG_SCAN=$((LEVEL & 7)); LEVEL=$((LEVEL>>3))
LOG_MLQUEUE=$((LEVEL & 7)); LEVEL=$((LEVEL>>3))
LOG_MLCOMPLETE=$((LEVEL & 7)); LEVEL=$((LEVEL>>3))
LOG_LLQUEUE=$((LEVEL & 7)); LEVEL=$((LEVEL>>3))
LOG_LLCOMPLETE=$((LEVEL & 7)); LEVEL=$((LEVEL>>3))
LOG_HLQUEUE=$((LEVEL & 7)); LEVEL=$((LEVEL>>3));
LOG_HLCOMPLETE=$((LEVEL & 7)); LEVEL=$((LEVEL>>3));
LOG_IOCTL=$((LEVEL & 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
echo $LEVEL > /proc/sys/dev/scsi/logging_level
if [ $? != 0 ]
then
echo "$SCRIPTNAME: could not write scsi logging level $LEVEL"
echo " kernel does not have SCSI_LOGGING support or needs superuser"
exit 1
fi
}
create_logging_level()
{
LEVEL=$((LOG_IOCTL & 7)); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_HLCOMPLETE & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_HLQUEUE & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_LLCOMPLETE & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_LLQUEUE & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_MLCOMPLETE & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_MLQUEUE & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_SCAN & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_TIMEOUT & 7))); LEVEL=$((LEVEL<<3))
LEVEL=$((LEVEL|(LOG_ERROR & 7)))
}
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