forked from pool/s390-tools
Marcus Meissner
9b729e2acc
New package per "Factory first" policy. Please list me as bug owner and maintainer, if possible. OBS-URL: https://build.opensuse.org/request/show/459343 OBS-URL: https://build.opensuse.org/package/show/Base:System/s390-tools?expand=0&rev=1
21 lines
418 B
Bash
21 lines
418 B
Bash
#!/bin/bash
|
|
# checks DASD accessibility in VM and sets Linux-side readonly attributes
|
|
# accordingly
|
|
|
|
modprobe -q vmcp
|
|
|
|
vmcp q v dasd 2>/dev/null >/dev/null || exit 0 # not running in VM
|
|
|
|
vmcp q v dasd | while read x dev rest
|
|
do
|
|
dev=`echo $dev|tr A-F a-f`
|
|
roattr=/sys/bus/ccw/devices/?.?.$dev/readonly
|
|
test -e $roattr || continue
|
|
if echo "$rest"|grep -q R/O
|
|
then
|
|
echo 1 >$roattr
|
|
else
|
|
echo 0 >$roattr
|
|
fi
|
|
done
|