| #! /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 |
