1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
|
#! /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
|
