51403030c6
* s390-tools-01-opticsmon-Fix-runaway-loop-in-on_link_change.patch * s390-tools-02-libzpci-opticsmon-Refactor-on_link_change-using-new.patch OBS-URL: https://build.opensuse.org/package/show/Base:System/s390-tools?expand=0&rev=239
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
|