File dasdro of Package s390-tools

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