The Virtualization Cookbook for SLES 10 SP2 - z/VM - IBM

echo "Error: unable to load module vmcp, check kernel version"
exit
fi
fi
wait_for_device /dev/vmcp
[ $? -ne 0 ] && echo "Error: timed out waiting for /dev/vmcp" && exit
}
#+--------------------------------------------------------------------------+
function wait_for_device
# Call udevsettle, then if necessary sleep until a certain file exists
# Arg1: The path of the file to sleep on.
#+--------------------------------------------------------------------------+
{
device=$1
sync
$UDEVSETTLE
for t in $(seq 1 20)
do
[ -e $device ] && return 0
sleep 1
done
return 1
}
#+--------------------------------------------------------------------------+
function autolog
# Issue an XAUTOLOG command to bring up the new cloned image.
#+--------------------------------------------------------------------------+
{
cp_cmd XAUTOLOG $target_linux_id
rc=$?
if [ $? != 0 ]; then
echo "xautolog $target_linux_id failed with $rc"
return 0
fi
echo "Booting $target_linux_id"
}
#+--------------------------------------------------------------------------+
# main()
# Only root can run this script
[ $(id -u) != "0" ] && echo "Error: you must be root" && exit
# Check if the user has defined any clone.sh configurations
[ -f /etc/sysconfig/clone ] && . /etc/sysconfig/clone
# Set defaults for clone.sh configurations
[ -z "$PROMPT" ] && PROMPT="y"
[ -z "$CLONE_MNT_PT" ] && CLONE_MNT_PT="/mnt/clone"
# If the clone mount point does not exist then we'll create it for you
[ ! -d $CLONE_MNT_PT ] && mkdir -p $CLONE_MNT_PT
# Check if -v was specified on the command line
if [ "$1" = "-v" ] ; then
VERBOSE=1
Appendix B. Source code 261