[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]

[PATCH 6/9] move linuxrc.s390 out of harm's way



We still need linuxrc.s390 (that's a project for another year), so move
it out of loader/ while we warm up the orbital lasers.
---
 data/Makefile.am    |    5 +
 data/linuxrc.s390   | 3079 +++++++++++++++++++++++++++++++++++++++++++++++++++
 loader/linuxrc.s390 | 3079 ---------------------------------------------------
 3 files changed, 3084 insertions(+), 3079 deletions(-)
 create mode 100644 data/linuxrc.s390
 delete mode 100644 loader/linuxrc.s390

diff --git a/data/Makefile.am b/data/Makefile.am
index 6e5b5b9..cc82ae5 100644
--- a/data/Makefile.am
+++ b/data/Makefile.am
@@ -29,6 +29,11 @@ langdir               = $(datadir)/$(PACKAGE_NAME)
 lang_DATA             = lang-names
 dist_lang_DATA        = lang-table
 
+if IS_S390
+shareddir             = $(datadir)/$(PACKAGE_NAME)
+dist_shared_SCRIPTS   = linuxrc.s390
+endif
+
 MAINTAINERCLEANFILES = Makefile.in
 
 lang-names: lang-table
diff --git a/data/linuxrc.s390 b/data/linuxrc.s390
new file mode 100644
index 0000000..3280498
--- /dev/null
+++ b/data/linuxrc.s390
@@ -0,0 +1,3079 @@
+#! /bin/bash
+
+# linuxrc.s390: init process of Red Hat's installer initrd for s390(x)
+# Copyright (C) 2000-2004 by
+#        Bernhard Rosenkraenzer <bero redhat com>
+#        Oliver Paukstadt <opaukstadt millenux com>
+#        Karsten Hopp <karsten redhat de>
+#        Florian La Roche <laroche redhat com>
+#        Nils Philippsen <nils redhat de>
+#        Helge Deller <hdeller redhat de>
+#        David Sainty <dsainty redhat com>
+# Copyright (C) IBM Corp. 2008,2009
+#        Author: Steffen Maier <maier de ibm com>
+#
+#    This program is free software; you can redistribute it and/or modify
+#    it under the terms of the GNU General Public License as published by
+#    the Free Software Foundation; either version 2 of the License, or
+#    (at your option) any later version.
+#
+#    This program is distributed in the hope that it will be useful,
+#    but WITHOUT ANY WARRANTY; without even the implied warranty of
+#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#    GNU General Public License for more details.
+#
+#    You should have received a copy of the GNU General Public License
+#    along with this program; if not, write to the Free Software
+#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+
+# prerequisites of this script to run inside the installer initrd:
+# - udevadm and udevd need to be there
+# - have /etc/udev/udev.conf with at least one comment line as content
+# - if necessary, have udev rules
+# - lsznet.raw and znetcontrolunits from s390utils-base in /lib/s390-tools
+# - pack kernel modules and module-init-tools (no longer use busybox for that)
+# - "multi on" in /etc/host.conf [RH bugs 486457,486461,483244]
+
+# TODOs:
+# - make sure driver modules get loaded automatically
+# - udev rule for lcs/ctcm vs. cu3088
+
+# debug: set -x
+
+if [ "${0##*/}" = "reboot" ]; then
+    kill -USR2 1
+    exit
+elif [ "${0##*/}" = "halt" ]; then
+    kill -USR1 1
+    exit
+fi
+
+VERSION=1.2
+
+export TEXTDOMAIN=s390installer
+export TEXTDOMAINDIR=/usr/lib/locale
+
+# helper function to execute command in arguments and print command on stdout
+function debug() {
+    # uncomment the following echo "$*" to enable debug output
+    #echo "$*"
+    $*
+}
+
+# FIXME: maybe change to "$$" for production use, in case it wouldn't be init
+declare -r INITPID="1"
+
+unset testing
+[ "$$" != "$INITPID" ] && testing="1"
+# uncomment the following test="1" to never execute sensitive commands
+#testing="1"
+
+if [ "$RUNKS" = "0" ]; then
+    RUNKS=""
+fi
+
+# ping command to use to test host availability (for gateway & dns servers)
+PINGOPTS="-c 3 -w 30"
+PING="ping $PINGOPTS"
+PING6="ping6 $PINGOPTS"
+
+# helper function to disable commands while running outside the initrd
+function tv() {
+    if [ -z "$testing" ]; then
+        $*
+    else
+        return 0
+    fi
+}
+
+function checkipv6()
+{
+    local ip=$1
+    [ -z "$ip" ] && return 1
+    /bin/ipcalc -c -6 "$ip" >/dev/null 2>&1
+    return $?
+}
+
+function checkipv4()
+{
+    local ip=$1
+    [ -z "$ip" ] && return 1
+    /bin/ipcalc -c -4 "$ip" >/dev/null 2>&1
+    return $?
+}
+
+function doshutdown()
+{
+    echo $"about to exec shutdown"
+    /sbin/umount -a -d -n >/dev/null 2>&1
+    exec /sbin/shutdown
+    exit 0
+}
+
+function doreboot()
+{
+    if [ -e "/sys/firmware/reipl" ]; then
+        read REIPL_TYPE < /sys/firmware/reipl/reipl_type
+        echo "reipl_type=$REIPL_TYPE"
+        pushd /sys/firmware/reipl/$REIPL_TYPE >/dev/null 2>&1
+        for i in *; do
+            echo "$i=`cat $i`"
+        done
+        popd >/dev/null 2>&1
+    fi
+
+    echo $"about to exec shutdown -r"
+    /sbin/umount -a -d -n >/dev/null 2>&1
+    exec /sbin/shutdown -r
+    exit 0
+}
+
+function sysecho () {
+    file=$1
+    shift
+    local i=1
+    while [ $i -le 10 ] ; do
+        if [ ! -f "$file" ]; then
+            sleep 1
+            i=$((i+1))
+        else
+            break
+        fi
+    done
+    [ -f "$file" ] && echo $* > $file
+}
+
+function dasd_settle() {
+    local dasd_status=/sys/bus/ccw/devices/$1/status
+    if [ ! -f $dasd_status ]; then
+        return 1
+    fi
+    local i=1
+    while [ $i -le 30 ] ; do
+        local status
+        read status < $dasd_status
+        case $status in
+            online|unformatted)
+                return 0 ;;
+            *)
+                sleep 0.1
+                i=$((i+1)) ;;
+        esac
+    done
+    return 1
+}
+
+function dasd_settle_all() {
+    for dasdccw in $(cut -d '(' -f 1 /proc/dasd/devices) ; do
+        if ! dasd_settle $dasdccw ; then
+            echo $"Could not access DASD $dasdccw in time"
+            return 1
+        fi
+    done
+    return 0
+}
+
+function startinetd()
+{
+    echo
+    echo $"Starting sshd to allow login over the network."
+    if [ -z "$testing" ]; then
+        echo $"Welcome to the anaconda install environment $VERSION for $S390ARCH" > /etc/issue.net
+        echo $"Welcome to the anaconda install environment $VERSION for $S390ARCH" > /etc/motd
+        echo >> /etc/motd
+    fi # testing
+
+    /usr/sbin/sshd -f /etc/ssh/sshd_config.anaconda
+    if [ -z "$RUNKS" ]; then
+        echo
+        echo $"Connect now to $IPADDR and log in as user 'install' to start the installation."
+        echo $"E.g. using: ssh -x install $IPADDR"
+        echo $"For VNC or text mode, disable X11 forwarding (recommended) with 'ssh -x'."
+        echo $"For X11, enable X11 forwarding with 'ssh -X'."
+        echo
+        echo $"You may log in as the root user to start an interactive shell."
+        read
+        while : ; do
+            /bin/sh --login
+            [ $? = 0 ] || break
+        done
+    fi
+}
+
+# prints a canonocalized device bus ID for a given devno of any format
+function canonicalize_devno()
+{
+    case ${#1} in
+        3) echo "0.0.0${1}" ;;
+        4) echo "0.0.${1}" ;;
+        *) echo "${1}" ;;
+    esac
+    return 0
+}
+
+# read file from CMS and write it to /tmp
+function readcmsfile() # $1=dasdport $2=filename
+{
+    local dev
+    if [ $# -ne 2 ]; then return; fi
+    # precondition: udevd created dasda block device node
+    if ! dasd_cio_free -d $1 ; then
+        echo $"DASD $1 could not be cleared from device blacklist"
+        return 1
+    fi
+    # precondition: dasd_eckd_mod driver incl. dependencies loaded,
+    #               dasd_mod must be loaded without setting any DASD online
+    dev=$(canonicalize_devno $1)
+    if ! sysecho /sys/bus/ccw/devices/$dev/online 1; then
+        echo $"DASD $dev could not be set online"
+        return 1
+    fi
+    udevadm settle
+    if ! dasd_settle $dev ; then
+        echo $"Could not access DASD $dev in time"
+        return 1
+    fi
+    udevadm settle
+    if ! cmsfscat -d /dev/dasda -a $2 > /tmp/$2; then
+        echo $"Could not read conf file $2 on CMS DASD $1."
+    fi
+    if ! sysecho /sys/bus/ccw/devices/$dev/online 0; then
+        echo $"DASD $dev could not be set offline again"
+        return 1
+    fi
+    udevadm settle
+    # consequences of no more module unload: loader can no longer
+    # use DASD module option to online DASDs and set other DASD parameters!
+}
+
+# adaption of the same function in init.c (udevd gets started later)
+function createDevices()
+{
+    awk '{ printf("mknod /dev/%s %s %s %s\n", $1, $2, $3, $4);
+      printf("chmod %s /dev/%s\n", $5, $1);
+      printf("chown %s /dev/%s\n", $6, $1);
+    }' <<EOF | sh
+console c 5 1 600 root:root
+null c 1 3 666 root:root
+zero c 1 5 666 root:root
+mem c 1 1 600 root:root
+ptmx c 5 2 666 root:root
+tty  c 5 0 666 root:root
+tty0 c 4 0 600 root:tty
+tty1 c 4 1 600 root:tty
+random c 1 8 644 root:root
+urandom c 1 9 644 root:root
+rtc c 10 135 644 root:root
+EOF
+    # tty handling is different from init.c since s390 does not have all
+    for i in 2 3 4 5 6 7 8 9 ; do
+        ln -s console /dev/tty$i
+    done
+    mkdir /dev/pts
+    ln -s /proc/self/fd /dev/fd
+}
+
+# approximately the main() function of init.c
+function init_main() {
+    S390ARCH=$(uname -m)
+    if [ "$S390ARCH" = "s390" ]; then
+        export S390ARCH="S/390"
+    else
+        export S390ARCH="zSeries"
+    fi
+
+    echo
+    echo $"Starting the $S390ARCH initrd to configure networking. Version is $VERSION"
+
+    # set up env vars as we do in init.c
+    if [ $(uname -m) = "s390x" ]; then
+        LD_LIBRARY_PATH=/lib64:/usr/lib64:/usr/X11R6/lib64:/usr/kerberos/lib64:/lib:/usr/lib:/usr/X11R6/lib:/usr/kerberos/lib
+    else
+        LD_LIBRARY_PATH=/lib:/usr/lib:/usr/X11R6/lib:/usr/kerberos/lib
+    fi
+    export LD_LIBRARY_PATH
+
+    PATH="$PATH:/usr/bin:/bin:/sbin:/usr/sbin:/mnt/sysimage/bin:/mnt/sysimage/usr/bin:/mnt/sysimage/usr/sbin:/mnt/sysimage/sbin:/mnt/sysimage/usr/X11R6/bin"
+    export PATH
+    HOME=/
+    export HOME
+    PYTHONPATH=/tmp/updates
+    export PYTHONPATH
+
+    if [ -z "$testing" ]; then
+
+        mount -t proc none /proc
+
+        mount -t tmpfs none /dev
+        createDevices
+        # udevd req'd by udevadm settle (/dev/.udev/queue)
+        # in readcmsfile, dialog_network_table, semantic_check_subchannels.
+        # (important: start udevd at the right time, e.g. after setup of /dev)
+        echo $"Starting udev..."
+        udevd --daemon
+        # debug: udevadm control --log-priority=debug
+
+        udevadm control --env=ANACONDA=1
+
+        mount -t devpts /dev/pts /dev/pts
+        mount -t sysfs none /sys
+
+        # remount root fs rw
+        mount /dev/root /  -o remount,rw
+
+        # limit output on 3270 console
+        # (console_loglevel of 4 is just right to not get driver info,
+        #  e.g. from qeth, since that would mix up with the user dialog)
+        echo "4 4 1 7" > /proc/sys/kernel/printk
+
+        # make /tmp/ramfs
+        mount -t ramfs none /tmp
+
+        # start rsyslogd after mount of /tmp ramfs since it logs to /tmp/syslog
+        echo $"Starting rsyslogd..."
+        rsyslogd -c 4
+
+        ifconfig lo 127.0.0.1 netmask 255.0.0.0
+        route add -host 127.0.0.1 dev lo
+
+        echo -e "127.0.0.1\tlocalhost.localdomain localhost localhost4 localhost4.localdomain4" > /etc/hosts
+        echo -e     "::1\t\tlocalhost.localdomain localhost localhost6 localhost6.localdomain6" >> /etc/hosts
+
+        /bin/dbus-uuidgen --ensure &
+        [ $? != 0 ] && echo "error on calling /bin/dbus-uuidgen --ensure"
+        /bin/dbus-daemon --system &
+        [ $? != 0 ] && echo "error on calling /bin/dbus-daemon --system"
+
+    fi # testing
+}
+
+# trigger udev to automatically load device drivers
+function udev_setup() {
+    if [ -z "$testing" ]; then
+       # debug: udevadm monitor &
+       udevadm trigger
+       udevadm settle
+    fi # testing
+}
+
+# from here on accesses to sysfs try to follow
+# linux/Documentation/sysfs-rules.txt
+
+### lsznet.raw integration
+
+declare -a nettable
+
+function read_lsznet_output() {
+    count=0
+    local line
+    while read line; do
+        nettable[$count]="$line"
+        count=$((count + 1))
+    # using the more sophisticated process substitution instead of temp file
+    # requires the symlink /dev/fd -> /proc/self/fd => createDevices
+    done < <(/lib/s390-tools/lsznet.raw)
+}
+
+function print_nettable() {
+    local fmtstring="%3s %-14s %-7s %-5s %-4s %-6s %-7s %s\n"
+    printf "$fmtstring" \
+        "NUM" "CARD" "CU" "CHPID" "TYPE" "DRIVER" "IF" "DEVICES"
+    local i
+    for ((i=0; i < count; i++)); do
+        local item cutype chp chpidtype devdrv devname chlist cardtype
+        read item cutype chp chpidtype devdrv devname chlist cardtype <<< ${nettable[$i]}
+        printf "$fmtstring" \
+            $item "$cardtype" $cutype $chp "$chpidtype" $devdrv $devname $chlist
+    done
+}
+
+function clear_screen() {
+    # FIXME: find a way to clear screen despite 3215 line mode terminal
+    echo
+}
+
+function dialog_network_table() {
+    while : ; do
+        echo $"Scanning for available network devices..."
+        # This may take a long time so we show "progress":
+        #( while true; do echo -n "."; sleep 1; done ) &
+        #local childpid=$!
+        read_lsznet_output
+        #kill $childpid
+        #echo
+        echo $"Autodetection found ${count} devices."
+        # count==0: there might still be a blacklist the user wants to clear.
+        # do not flood user with long list if there are many devices
+        if [ "$count" -le 15 ]; then
+            # Show list
+            answer=s
+        else # [ $count -gt 15 ]
+            echo
+            while : ; do
+                echo $"s) show all, m) manual config:"
+                local answer
+                read answer
+                case $answer in
+                    s|m) break ;;
+                esac
+            done
+        fi
+        [ "$answer" = "m" ] && break
+        # show network table to select network hardware configuration from
+        if [ "$count" -gt 0 ]; then
+            clear_screen
+            print_nettable
+            echo
+        fi
+        # account for possibly ignored common I/O devices
+        # cio_wc_bytes is NOT local so it can be re-used outside this function
+        cio_wc_bytes=0
+        local cio_wc_filename cio_wc_foo
+        if [ -f /proc/cio_ignore ]; then
+            local cio_wc=$(wc -c /proc/cio_ignore)
+            read cio_wc_bytes cio_wc_filename cio_wc_foo <<< "$cio_wc"
+            if [ "$cio_wc_bytes" != "0" ]; then
+                echo $"Note: There is a device blacklist active! (Clearing might take long)"
+                #cat /proc/cio_ignore | tr '\n' ','
+                #echo
+            else
+                if [ "$count" -eq 0 ]; then
+                    # count==0 AND no device blacklist => manual mode
+                    echo $"Entering manual configuration mode."
+                    break
+                fi
+            fi
+        fi
+        # selection dialog
+        while : ; do
+            [ "$count" -gt 0 ] && echo -n $"<num>) use config, "
+            [ "$cio_wc_bytes" != "0" ] && echo -n $"c) clear blacklist, "
+            echo $"m) manual config, r) rescan, s) shell:"
+            local choice
+            read choice
+            [ -z "$choice" ] && continue
+            if [ "$choice" = "s" ]; then
+                echo $"Enter 'exit' at the shell prompt to get back to the installation dialog."
+                /bin/bash
+                continue 2
+            fi
+            [ "$choice" = "m" ] && break
+            [ "$choice" = "r" ] && continue 2
+            [ "$cio_wc_bytes" != "0" -a "$choice" = "c" ] && break
+            [[ "$choice" =~ ^[[:digit:]]+$ ]]
+            case $? in
+                0)
+                    # string matched the pattern
+                    [ "$choice" -ge 1 -a "$choice" -le "$count"  ] && break
+                    ;;
+                1)
+                    # string did not match the pattern
+                    continue
+                    ;;
+                2)
+                    echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+                    ;;
+                *)
+                    echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+                    ;;
+            esac
+        done
+        if [ "$choice" = "c" ]; then
+            echo $"Clearing device blacklist..."
+            cio_ignore -R || echo $"Device blacklist could not be cleared"
+        fi
+        [ "$choice" = "m" ] && break
+        # finally extract config info from selected item
+        # array nettable starts at index zero, user input starts at index one
+        choice=$((choice - 1))
+        local item cutype chp chpidtype devdrv devname chlist cardtype
+        read item cutype chp chpidtype devdrv devname chlist cardtype <<< ${nettable[$choice]}
+        # $NETTYPE happens to be exactly the network driver name
+        if [ "$devdrv" = "ctcm" ]; then
+            NETTYPE="ctc"
+        else
+            NETTYPE=$devdrv
+        fi
+        SUBCHANNELS=$chlist
+        break
+    done
+    echo
+}
+
+declare -r PREFIXFORMAT=[[:xdigit:]]*
+declare -r SSIDFORMAT=[0-3]
+declare -r BUSIDFORMAT=[[:xdigit:]][[:xdigit:]][[:xdigit:]][[:xdigit:]]
+declare -r IDFORMAT=$PREFIXFORMAT.$SSIDFORMAT.$BUSIDFORMAT
+declare -r SUBCHANNEL_TYPE_IO=0
+
+. /lib/s390-tools/znetcontrolunits
+
+function cardtype2cleartext() {
+    local cardtype=$1
+    case $cardtype in
+        OSD_10GIG)        echo "OSA card in OSD mode, 10 Gigabit Ethernet" ;;
+        OSD_1000)         echo "OSA card in OSD mode, Gigabit Ethernet" ;;
+        OSD_100)          echo "OSA card in OSD mode, Fast Ethernet" ;;
+        OSD_GbE_LANE)     echo "OSA card in OSD mode, Gigabit Ethernet, LAN Emulation" ;;
+        OSD_FE_LANE)      echo "OSA card in OSD mode, Fast Ethernet, LAN Emulation" ;;
+        OSD_TR_LANE)      echo "OSA card in OSD mode, Token Ring, LAN Emulation" ;;
+        OSD_ATM_LANE)     echo "OSA card in OSD mode, ATM, LAN Emulation" ;;
+        OSD_Express)      echo "OSA card in OSD mode, unknown link type" ;;
+        HSTR)             echo "OSA card in OSD mode, High Speed Token Ring" ;;
+        OSN)              echo "OSA for NCP, ESCON/CDLC bridge" ;;
+        HiperSockets)     echo "HiperSockets with CHPID type IQD" ;;
+        "GuestLAN QDIO")  echo "GuestLAN based on OSA (QDIO)" ;;
+        "GuestLAN Hiper") echo "GuestLAN based on HiperSockets" ;;
+        unknown)          echo "other" ;;
+        *) echo "unknown"
+            echo "l.$LINENO: found unknown card_type, code needs to be fixed" 1>&2
+            ;;
+    esac
+}
+
+# returns true iff running under z/VM
+function isVM() {
+    local cpu_version=$(cat /proc/cpuinfo |grep "^processor " | head -n1 | sed 's/.*version = \([[:xdigit:]][[:xdigit:]]\).*/\1/' | tr '[:lower:]' '[:upper:]')
+    if [ "$cpu_version" = "FF" ]; then
+        return 0
+    else
+        return 1
+    fi
+}
+
+# watch out: potential error message as side effect
+function isLayer2Default() {
+    # Read default from sysfs because according to device
+    # drivers book there are differences in the default between
+    # OSA (l2), hipersockets (l3).
+    # This only works here in installer where nobody has overwritten
+    # the default setting with another custom value already!
+    if [ ! -f /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/layer2 ]; then
+        echo $"Could not read layer mode from sysfs"
+        return 1
+    fi
+    local layer2
+    read layer2 < /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/layer2
+    if [ "$layer2" = "1" ]; then
+        return 0
+    else
+        return 1
+    fi
+}
+
+# returns true iff either LAYER2 has been set to 1 or is the default
+# watch out: potential error message as side effect
+function isLayer2() {
+    case "x$LAYER2" in
+        x0) return 1 ;; # layer 3
+        x1) return 0 ;; # layer 2
+        x)  # LAYER2 is unset or empty => qeth driver default applies.
+            isLayer2Default
+            return $?
+            ;;
+        *) echo "l.$LINENO: unknown value \"$LAYER2\" for LAYER2, code needs to be fixed" 1>&2
+            return 2 ;;
+    esac
+}
+
+# returns true iff qeth device $SCH_R_DEVBUSID
+# is capable of supporting IPv6
+# watch out: potential error message as side effect
+function ipv6_capable() {
+    [ "$NETTYPE" = "qeth" ] || return 1
+    case $cardtype in
+        OSD_10GIG|OSD_1000|OSD_100|OSD_Express|HiperSockets|"GuestLAN QDIO")
+            return 0 ;;
+        OSD_GbE_LANE|OSD_FE_LANE|OSD_TR_LANE|OSD_ATM_LANE) return 1 ;;
+        HSTR|OSN|unknown) return 1 ;;
+        "GuestLAN Hiper") return 1 ;;
+        *) echo $"Unknown card_type to determine IPv6 support"
+            return 1 ;;
+    esac
+}
+
+# sets device online _and_ retrieves DEVICE at the same time
+function set_device_online() {
+    echo $"Activating network device..."
+    local sysnettype
+    case "${NETTYPE}" in
+        qeth|lcs) sysnettype=${NETTYPE} ;;
+        ctc) sysnettype=ctcm ;;
+    esac
+    if ! [ -f /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online ]; then
+        echo $"Sysfs path to set device online does not exist."
+        return 1
+    fi
+    if ! sysecho /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online "1"; then
+        echo $"Could not set device ($SUBCHANNELS) online"
+        return 1
+    fi
+    udevadm settle
+    local i=1
+    while : ; do
+        local online
+        read online < /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online
+        [ "$online" == "1" ] && break
+        sleep 1
+        i=$((i+1))
+        if [ "$i" -gt 10 ]; then
+            echo $"Could not set device ($SUBCHANNELS) online within timeout"
+            return 1
+        fi
+    done
+    if [ "$NETTYPE" = "lcs" -o "$NETTYPE" = "ctc" ]; then
+        if [ ! -d /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/net ]; then
+            echo $"Device $SUBCHANNELS does not have required sysfs directory 'net'"
+            return 1
+        fi
+        DEVICE=$(ls /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/net/)
+        if [ "$DEVICE" = "" ]; then
+            echo $"Could not get device name for $SUBCHANNELS"
+            return 1
+        fi
+    else # qeth
+        if [ ! -f /sys/devices/qeth/$SCH_R_DEVBUSID/if_name ]; then
+            echo $"Device $SUBCHANNELS does not have required sysfs attribute 'if_name'"
+            return 1
+        fi
+        # (device needs to be online to read if_name from sysfs attribute!)
+        read DEVICE < /sys/devices/qeth/$SCH_R_DEVBUSID/if_name
+        if [ "$DEVICE" = "" ]; then
+            echo $"Could not get device name for $SUBCHANNELS"
+            return 1
+        fi
+        if [ -f /sys/devices/qeth/$SCH_R_DEVBUSID/card_type ]; then
+            read cardtype < /sys/devices/qeth/$SCH_R_DEVBUSID/card_type
+            #debug echo "$cardtype"
+            # device is now online and link type will be known
+            echo -n $"Detected: "
+            cardtype2cleartext "$cardtype"
+        else
+            echo $"Could not read qeth network card type from sysfs."
+        fi
+    fi
+}
+
+# sets device up and blocks until device appears to be up
+function set_device_up() {
+    if [ -z "$DEVICE" ]; then
+        echo $"Could not determine interface name to bring up device $SUBCHANNELS"
+        return 1
+    fi
+    # Device does not come up fast enough to use "ip" to configure, so block.
+    # While OSA come up themselves after setting online,
+    # e.g. HiperSockets won't => set them up explicitly for the following check
+    debug ip link set up $DEVICE
+    local i=1
+    while : ; do
+        local tst=$(ip -o link show up dev $DEVICE)
+        [ -n "$tst" ] && break
+        sleep 1
+        i=$((i+1))
+        if [ "$i" -gt 10 ]; then
+            echo $"Could not bring up device $DEVICE within timeout"
+            return 1
+        fi
+    done
+    return 0
+}
+
+function syntax_check_domainname() {
+    # - match against regex adopted from RFC1035,sec.2.3.1 or RFC1034,sec.3.5
+    #   (Internationalized Domain Names in Applications (IDNA) [RFC4690]
+    #    have to be entered after encoding by punycode [RFC3492])
+    [[ "$1" =~ ^[[:alpha:]]([[:alnum:]-]{0,61}[[:alnum:]])?(\.[[:alpha:]]([[:alnum:]-]{0,61}[[:alnum:]])?)*$ ]]
+    case $? in
+        0)
+            # string matched the pattern
+            return 0
+            ;;
+        1)
+            # string did not match the pattern
+            echo "$2"
+            ;;
+        2)
+            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+            ;;
+        *)
+            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+            ;;
+    esac
+    return 1
+}
+
+function disable_ipv6_autoconf() {
+    sysctl -w net.ipv6.conf.all.accept_ra=0 > /dev/null
+    sysctl -w net.ipv6.conf.all.accept_redirects=0 > /dev/null
+    sysctl -w net.ipv6.conf.all.autoconf=0 > /dev/null
+    sysctl -w net.ipv6.conf.default.accept_ra=0 > /dev/null
+    sysctl -w net.ipv6.conf.default.accept_redirects=0 > /dev/null
+    sysctl -w net.ipv6.conf.default.autoconf=0 > /dev/null
+}
+
+function configure_ipv6_address() {
+    # device needs to be online
+    # arp flag needs to be on for ipv6 over osa because of ndisc.
+    # happens automatically by the driver. do NOT mess with default setting.
+    #NO#debug ip link set dev $DEVICE arp on
+    if ! debug ip -6 address add $IPADDR/$NETMASK dev $DEVICE; then
+        echo $"Could net set IPv6 address $IPADDR/$NETMASK for device $DEVICE"
+        return 1
+    fi
+    # network route has been set by above "ip address add" already
+    # take care of MTU, which is bundled with ifconfig in the other IPv4 cases
+    if [ -n "$MMTU" ]; then
+        if ! debug ip link set $DEVICE $MMTU; then
+            echo $"Could net set maximum transfer unit ($MMTU) for device $DEVICE"
+            return 1
+        fi
+    fi
+    return 0
+}
+
+function configure_ipv4_address() {
+    # it's IPv4 and we can make use of ipcalc for better usability
+    if ipcalc -bmnp $ipcalc_arg > /tmp/ipcalc.$$.out 2> /dev/null; then
+        . /tmp/ipcalc.$$.out
+    else
+        echo $"Could not calculate network address and broadcast address from"
+        echo $" IPv4 address $IPADDR and netmask $NETMASK"
+        return 1
+    fi
+    rm /tmp/ipcalc.$$.out
+    # device needs to be online
+    if ! debug ifconfig $DEVICE $IPADDR $MMTU netmask $NETMASK broadcast $BROADCAST; then
+        echo $"Could not set IPv4 address $IPADDR for device $DEVICE"
+        echo $" with network mask $NETMASK and broadcast address $BROADCAST"
+        [ -n "$MMTU" ] && echo $" and maximum transfer unit: $MMTU"
+        return 1
+    fi
+    # This network route is already there after ifconfig!
+    #if ! debug route add -net $NETWORK netmask $NETMASK dev $DEVICE; then
+    #    echo $"Could not add network route to $NETWORK/$NETMASK on device $DEVICE"
+    #    return 1
+    #fi
+    return 0
+}
+
+function handle_mtu() {
+    # don't ask for MTU, but use it if it has been set in the .parm file
+    # don't overwrite MMTU if it has been set for CTC
+    [ -n "$MTU" -a -z "$MMTU" ] && MMTU="mtu $MTU"
+}
+
+function rollback_config() {
+    # each transaction to roll back may fail, if previous setup has not
+    # made progress that far to reach a certain transation
+    # => error output is misleading and should be avoided
+    [ -n "$DEVICE" ] && tv ip -4 route flush default dev $DEVICE
+    [ -n "$DEVICE" ] && tv ip -6 route flush default dev $DEVICE
+    # address flush seems to be effective for all address families
+    [ -n "$DEVICE" ] && ip address flush dev $DEVICE
+    if [ -n "$NETTYPE" ]; then
+        if [ -n "$SCH_R_DEVBUSID" ]; then
+            local sysnettype
+            case "${NETTYPE}" in
+                qeth|lcs) sysnettype=${NETTYPE} ;;
+                ctcm) sysnettype=ctcm ;;
+            esac
+            [ -f /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online ] && \
+                sysecho /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online "0"
+            udevadm settle
+            [ -f /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/ungroup ] && \
+                sysecho /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/ungroup "1"
+            udevadm settle
+        fi
+    fi
+    [ -z "$mtu_was_set" ] && unset MTU
+    [ -z "$mmtu_was_set" ] && unset MMTU
+    [ -z "$vswitch_was_set" ] && unset VSWITCH
+    # prevent possible reuse of an old DEVICE on restarting dialog
+    unset DEVICE
+    # set activated DASDs offline again
+    local dasd
+    while read dasd < /proc/dasd/devices; do
+        dasd=${dasd%%(*}
+        sysecho /sys/bus/ccw/devices/$dasd/online 0
+    done
+    udevadm settle
+}
+
+### workflow helper functions
+
+# workflow ideas:
+# - setting/applying single configuration steps right away save us explicit
+#   syntactical & semantic checks PLUS we get direct feedback on error
+# - check error level of forked external programs and react on errors
+
+unset reenter
+unset redoitem
+unset interaction_happened
+
+function reenter() {
+    [ -z "$reenter" ] && return 1
+    # reenter menu should only be shown if NOT redoing item
+    if [ -n "$redoitem" ]; then
+        # unset redoitem # wrong => do NOT do this here
+        return 1
+    fi
+    return 0
+}
+
+function reenter_menu() {
+    local oldvalue=$1
+    interaction_happened="yes"
+    # unsetting input here is not sufficient, since reenter_menu
+    # is not called for predefined parameters
+    # which then might get assigned a previous old input of another parameter!
+    #unset input
+    reenter || return 0
+    # don't present reenter menu for empty parameters
+    # (currently ignoring parameters that are allowed to be empty!)
+    # this could be improved by checking if variable has been set/defined
+    #[ -z "$1" ] && return 0
+    while : ; do
+        if [ -n "$helptext" ]; then
+            echo $"0) default is previous \"$oldvalue\", 1) new value, ?) help"
+        else
+            echo $"0) default is previous \"$oldvalue\", 1) new value"
+        fi
+        # uncoded alternative: 2) skip parameter
+        local answer
+        read answer
+        [ -z "$answer" ] && return 1
+        case $answer in
+            0) return 1 ;;
+            1)  # Deciding to enter new value gets user out of reenter-mode
+                # temporarily for this parameter.
+                # To put it differently: redoing does NOT present old values.
+                redoitem="yes"
+                echo -n $"new value: "
+                return 0
+                ;;
+            "?") input="?"
+                return 1
+                ;;
+        esac
+    done
+}
+
+function workflow_item_menu() {
+    local noredo=$1
+    # default is to continue if running kickstart to prevent interaction
+    [ -n "$RUNKS" ] && return 0
+    interaction_happened="yes"
+    while : ; do
+        unset redoitem
+        if [ "$noredo" = "noredo" ]; then
+            echo $"1) continue, 2) restart dialog, 3) halt, 4) shell"
+        else
+            echo $"0) redo this parameter, 1) continue, 2) restart dialog, 3) halt, 4) shell"
+        fi
+        local answer
+        read answer
+        case $answer in
+            0) [ "$noredo" = "noredo" ] && continue
+                redoitem="yes"
+                continue 2
+                ;;
+            1) return 0 ;; # can be used to break at caller on ignore
+            2) reenter="yes"
+                rollback_config
+                continue 3
+                ;;
+            3) tv doshutdown
+                exit 0
+                ;;
+            4) echo $"Enter 'exit' at the shell prompt to get back to the installation dialog."
+                /bin/bash
+                if [ "$noredo" != "noredo" ] && [ -n "$question_prefix" ]; then
+                    $question_prefix
+                    echo
+                fi
+                ;; # stay in workflow item menu
+        esac
+    done
+}
+
+# input variables: PARMNAME, question_prefix, question_choices,
+#                  "options" ...
+# output variables: $question_prefix, $helptext
+# modifies: the variable named $PARMNAME, $OPTIND
+function ask() {
+    [ $# -lt 3 ] && echo "l.$LINENO: too few arguments (<3), please fix calling code." 1>&2
+    local PARMNAME=$1
+    shift
+    question_prefix=$1
+    shift
+    local question_choices=$1
+    shift
+    local exception
+    local syntax_check
+    unset helptext
+    local handle
+    local finish
+    local optname
+    OPTIND=1
+    while getopts ":e:s:h:c:f:" optname; do
+        case $optname in
+            e) exception=$OPTARG ;;
+            s) syntax_check=$OPTARG ;;
+            h) helptext=$OPTARG ;;
+            c) handle=$OPTARG ;;
+            f) finish=$OPTARG ;;
+            "?") ;; # ignore invalid option
+            :) echo "l.$LINENO: Missing parameter to option -$OPTARG" 1>&2 ;;
+        esac
+    done
+    while : ; do
+        unset input
+        local input
+        # actually ask question if one of the following is true:
+        # - $PARMNAME parameter has not been set yet, e.g. not in parm file
+        # - on 2nd and further attempts, i.e. redoing the parameter
+        # - on having restarted the whole dialog
+        # describing the same from another viewpoint:
+        # - if $PARMNAME has been set, try to check syntax and apply
+        # - on redo, $PARMNAME has been set and reenter is false,
+        #   but still ask question again
+        # - on reenter, $PARMNAME might have been set, but still ask question
+        if [ -z "${!PARMNAME}" -o -n "$redoitem" -o -n "$reenter" ]; then
+            # one empty line to separate parameter questions from each other
+            echo
+            $question_prefix
+            if reenter; then
+                echo
+            else
+                $question_choices
+            fi
+            # on reenter, give choice between old value and entering new one
+            reenter_menu ${!PARMNAME} && read input \
+                && [ "$input" != "?" ] && eval ${PARMNAME}=\$input
+            # escaping the $ in the RHS of the eval statement makes it safe
+        fi
+        if [ -n "$helptext" ] && [ "$input" = "?" ]; then
+            $helptext
+            continue
+        fi
+        # optional: default or exceptional handling
+        [ -n "$exception" ] && $exception
+        if [ -n "$syntax_check" -a -z "$handle" ]; then
+            # some parameters have only syntax check (and deferred config):
+            if $syntax_check; then
+                break
+            else
+                workflow_item_menu && break
+            fi
+        elif [ -n "$syntax_check" -a -n "$handle" ]; then
+            # most common parameters have syntax and configuration:
+            # user might still continue on syntax error
+            $syntax_check || workflow_item_menu
+            # optional: actual configuration
+            if $handle; then
+                # parmname has been configured successfully
+                break
+            else
+                # user might still continue on configuration failure
+                workflow_item_menu && break
+            fi
+        elif [ -n "$finish" ]; then
+            # few parameters need special handling done by their own function:
+            $finish
+        else
+            echo $"Unsupported calling of ask function, please fix calling code"
+        fi
+    done # PARMNAME
+    # disable potential temporary redoing-mode during reenter-mode
+    unset redoitem
+}
+
+### NETTYPE
+
+function syntax_check_nettype() {
+    # - NETTYPE \in {qeth,lcs,ctc}
+    [[ "$NETTYPE" =~ (^qeth$)|(^lcs$)|(^ctc$) ]]
+    case $? in
+        0)
+            # string matched the pattern
+            return 0
+            ;;
+        1)
+            # string did not match the pattern
+            ;;
+        2)
+            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+            ;;
+        *)
+            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+            ;;
+    esac
+    echo $"Incorrect format or value for network type (NETTYPE): $NETTYPE"
+    return 1
+}
+
+function question_prefix_nettype() {
+    echo -n $"Network type"
+}
+
+function question_choices_nettype() {
+    echo $" (qeth, lcs, ctc, ? for help). Default is qeth:"
+}
+
+function helptext_nettype() {
+    echo $" Help text for network type:"
+    echo $"  qeth: OSA-Express Fast Ethernet, Gigabit Ethernet (including 1000Base-T),"
+    echo $"        High Speed Token Ring, Hipersockets, and ATM (running Ethernet LAN emulation)"
+    echo $"        features in QDIO mode."
+    echo $"        [default]"
+    echo $"  lcs:  OSA-2 Ethernet/Token Ring, OSA-Express Fast Ethernet in non-QDIO mode,"
+    echo $"        OSA-Express High Speed Token Ring in non-QDIO mode and Gigabit Ethernet"
+    echo $"        in non-QDIO mode."
+    echo $"  ctc:  Deprecated, useful for migration."
+}
+
+function exception_nettype() {
+    # - default is qeth since it should be common
+    if [ -z "$NETTYPE" ]; then
+        NETTYPE=qeth
+        break
+    fi
+}
+
+function finish_nettype() {
+    if syntax_check_nettype; then
+        break
+    else
+        # necessary parts which would otherwise be done by workflow_item_menu
+        interaction_happened="yes"
+        redoitem="yes"
+    fi
+}
+
+function do_nettype() {
+    ask NETTYPE \
+        question_prefix_nettype question_choices_nettype \
+        -h helptext_nettype -e exception_nettype -f finish_nettype
+}
+
+### CHANDEV
+
+function do_chandev() {
+    echo
+    echo $"The CHANDEV variable isn't used anymore, please update your "
+    echo $".parm or the .conf file to use NETTYPE, SUBCHANNELS, etc. instead."
+    echo
+}
+
+### SUBCHANNELS
+
+function syntax_check_subchannels() {
+    SUBCHANNELS=$(echo $SUBCHANNELS | tr ABCDEF abcdef)
+    # - make subchannel question dependent on NETTYPE (2 vs. 3 subchannels)
+    if [ "$NETTYPE" = "qeth" ]; then
+        # - match against regex, depending on qeth
+        [[ "$SUBCHANNELS" =~ ^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4},[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4},[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$ ]]
+    else
+        # - match against regex, depending on lcs/ctc
+        [[ "$SUBCHANNELS" =~ ^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4},[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$ ]]
+    fi
+    case $? in
+        0)
+            # string matched the pattern
+            return 0
+            ;;
+        1)
+            # string did not match the pattern
+            echo $"Incorrect format for channels (SUBCHANNELS): $SUBCHANNELS"
+            ;;
+        2)
+            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+            ;;
+        *)
+            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+            ;;
+    esac
+    return 1
+}
+
+function semantic_check_subchannels() {
+    local subch_count
+    if [ "$NETTYPE" = "qeth" ]; then
+        subch_count=3
+    else
+        subch_count=2
+    fi
+    # done: make subchannel handling more robust by not relying on REMATCH
+    local -a subch_array
+    IFS=,
+    read -a subch_array <<< "indexzero,$SUBCHANNELS"
+    unset IFS
+    local i
+    local all_subch_good=0
+    for ((i=1; i <= $subch_count; i++)); do
+        local devbusid=${subch_array[$i]}
+        # remember first subchannel for potential undo of ccwgroup
+        # (via /sys/devices/qeth/$SCH_R_DEVBUSID/ungroup)
+        [ "$i" -eq 1 ] && SCH_R_DEVBUSID=$devbusid
+        local prefix ssid devno foo
+        IFS=.
+        read prefix ssid devno foo <<< "$devbusid"
+        unset IFS
+        local dev_p=$(echo /sys/devices/css$prefix/$IDFORMAT/$devbusid)
+        # - check for existence of devnos in sysfs
+        if [ ! -d "$dev_p" -a "$cio_wc_bytes" != "0" ]; then
+            # - try to free from /proc/cio_ignore if they don't exist
+            echo $"Device $devbusid not present, trying to clear from blacklist and resense..."
+            if ! znet_cio_free -d $devbusid; then
+                echo $"Device $devbusid could not be cleared from device blacklist"
+            fi
+        fi
+        # reevaluate since globbing might not have worked before device existed
+        dev_p=$(echo /sys/devices/css$prefix/$IDFORMAT/$devbusid)
+        if [ ! -d "$dev_p" ]; then
+            echo $"Device $devbusid does not exist"
+            all_subch_good=1
+            continue
+        fi
+        # devno does exist now
+        local subch_p=${dev_p%/*}
+        local subch=${subch_p##*/}
+        # filter definitely unusable subchannels ...
+        # - check for subchannel type I/O
+        if [ -f $subch_p/type ]; then
+            local type
+            read type < $subch_p/type
+            if [ "$type" != "$SUBCHANNEL_TYPE_IO" ]; then
+                echo $"Channel $subch (device $devbusid) is not of type I/O"
+                all_subch_good=1
+                continue
+            fi
+        fi
+        # - check for correct CU type/model, depending on qeth/lcs/ctc
+        if [ ! -f $dev_p/cutype ]; then
+            echo $"Device $devbusid does not have required sysfs attribute 'cutype'"
+            all_subch_good=1
+            continue
+        fi
+        local cutype
+        read cutype < $dev_p/cutype
+        if search_cu $cutype; then
+            local driver
+            if [ "$NETTYPE" = "ctc" ]; then
+                driver="ctcm"
+            else
+                driver=$NETTYPE
+            fi
+            if [ "${CU_DEVDRV[$cu_idx]}" != "$driver" ]; then
+                echo $"Device $devbusid has control unit type $cutype,"
+                echo $" which does not match your selected network type $NETTYPE"
+                all_subch_good=1
+                continue
+            fi
+        else
+            echo $"Device $devbusid has control unit type $cutype which is unknown"
+            all_subch_good=1
+            continue
+        fi
+        # read CHPIDs information about subchannels
+        if [ ! -f $subch_p/chpids ]; then
+            echo $"Channel $subch (device $devbusid) does not have required sysfs attribute 'chpids'"
+            all_subch_good=1
+            continue
+        fi
+        local chpid_list
+        read chpid_list < $subch_p/chpids
+        local -a chpids
+        read -a chpids <<< "$chpid_list"
+        if [ ${#chpids[ ]} -ne 8 ]; then
+            echo $"sysfs reported ${#chpids[ ]} CHPIDs instead of expected 8, code needs fix"
+        fi
+        if [ ! -f $subch_p/pimpampom ]; then
+            echo $"Channel $subch (device $devbusid) does not have required sysfs attribute 'pimpampom'"
+            all_subch_good=1
+            continue
+        fi
+        local pim pam pom foo
+        read pim pam pom foo < $subch_p/pimpampom
+        local pimchpidZ=""
+        for ((chp=0; chp < 8; chp++)); do
+            local mask=$((0x80 >> chp))
+            if (( 0x$pim & $mask )); then
+                pimchpidZ=${pimchpidZ}${chpids[chp]}
+            else
+                pimchpidZ=${pimchpidZ}"ZZ"
+            fi
+        done
+        local pimchpids=${pimchpidZ//ZZ/}
+        if [ "x$pimchpids" == "x" ]; then
+            echo $"Channel $subch (device $devbusid) does not have any installed channel path"
+            all_subch_good=1
+            continue
+        fi
+        # compare parts of different subchannels for required matches
+        if [ "$i" -eq 1 ]; then
+            # remember parts of first subchannel for comparison
+            local sch_r_prefix=$prefix
+            local sch_r_ssid=$ssid
+            local sch_r_devno=$devno
+            local sch_r_pimchipidZ=$pimchpidZ
+            local sch_r_cutype=$cutype
+        else
+            local comparison=0
+            # $sch_r_... might be empty if first channel was wrong
+            # => be sure to quote all variable accesses in test statements.
+            # - all subchannels must be of same CU type/model
+            if [ "$cutype" != "$sch_r_cutype" ]; then
+                echo $"Device $devbusid does not have the same control unit type as device $SCH_R_DEVBUSID"
+                comparison=1
+            fi
+            # - all subchannels must have same CHPIDs
+            if [ "$pimchpidZ" != "$sch_r_pimchipidZ" ]; then
+                echo $"Device $devbusid does not have the same CHPIDs as device $SCH_R_DEVBUSID"
+                comparison=1
+            fi
+            # - all subchannels should have same prefix & ssid ?
+            if [ "$prefix" != "$sch_r_prefix" \
+                -o "$ssid" != "$sch_r_ssid" ]; then
+                echo $"Device $devbusid does not have the same prefix and subchannel set ID as device $SCH_R_DEVBUSID"
+                comparison=1
+            fi
+            if [ "$i" -eq 2 ]; then
+                local sch_w_devbusid=$devbusid
+                local sch_w_devno=$devno
+                # TODO: not true for CTCM => relax
+                # - write_devbusid == read_devbusid+1
+                if [ $((0x$devno)) -ne $((0x$sch_r_devno + 1)) ]; then
+                    echo $"Device bus ID of write channel (dev $devbusid) must be one larger than"
+                    echo $" that of read channel (dev $SCH_R_DEVBUSID)"
+                    comparison=1
+                fi
+            elif [ "$i" -eq 3 ]; then
+                # check data subchannel unequal to read/write subchannel
+                # (also seems to be handled by ccwgroup kernel subsystem)
+                if [ "$devbusid" = "$sch_w_devbusid" \
+                    -o "$devbusid" = "$SCH_R_DEVBUSID" ]; then
+                    echo $"Device bus ID of data channel (dev $devbusid) must be different to that of"
+                    echo $" read channel ($SCH_R_DEVBUSID) and write channel ($sch_w_devbusid)"
+                    comparison=1
+                fi
+            fi
+            if [ "$comparison" != 0 ]; then
+                all_subch_good=1
+                continue
+            fi
+        fi
+        # filter potentially good subchannels ...
+        if [ -h $dev_p/group_device ]; then
+            echo $"Device $devbusid is already in a ccwgroup and thus unavailable"
+            all_subch_good=1
+            continue
+        fi
+        if [ ! -f $dev_p/online ]; then
+            echo $"Device $devbusid does not have required sysfs attribute 'online'"
+            all_subch_good=1
+            continue
+        fi
+        local online
+        read online < $dev_p/online
+        if [ "$online" = "1" ]; then
+            echo $"Device $devbusid is already in use and thus unavailable"
+            all_subch_good=1
+            continue
+        fi
+        # - check availability
+        if [ ! -f $dev_p/availability ]; then
+            echo $"Device $devbusid does not have required sysfs attribute 'availability'"
+            all_subch_good=1
+            continue
+        fi
+        local availability
+        read availability < $dev_p/availability
+        if [ "$availability" != "good" ]; then
+            echo $"Device $devbusid is not available but '$availiability'"
+            all_subch_good=1
+            continue
+        fi
+
+    done # for ((i=1; i <= $subch_count; i++))
+    if [ "$all_subch_good" = "0" ]; then
+        return 0
+    fi
+    return 1
+}
+
+function handle_subchannels() {
+    # - try to establish ccwgroup right here and fail out on error
+    local driver
+    if [ "$NETTYPE" = "ctc" ]; then
+        driver="ctcm"
+    else
+        driver=$NETTYPE
+    fi
+    # if necessary,
+    # rebind hybrid devices (3088/08 and 3088/1f) to user specified driver
+    local curdrv
+    curdrv=$(readlink /sys/bus/ccw/devices/$SCH_R_DEVBUSID/driver)
+    curdrv=${curdrv##*/}
+    if [ "$curdrv" = "lcs" -a "$NETTYPE" = "ctc" ]; then
+        sysecho /sys/bus/ccw/drivers/lcs/unbind "$SCH_R_DEVBUSID"
+        sysecho /sys/bus/ccw/drivers/ctcm/bind "$SCH_R_DEVBUSID"
+    fi
+    if [ "$curdrv" = "ctcm" -a "$NETTYPE" = "lcs" ]; then
+        sysecho /sys/bus/ccw/drivers/ctcm/unbind "$SCH_R_DEVBUSID"
+        sysecho /sys/bus/ccw/drivers/lcs/bind "$SCH_R_DEVBUSID"
+    fi
+    local channel2
+    channel2=${SUBCHANNELS##*,}
+    curdrv=$(readlink /sys/bus/ccw/devices/$channel2/driver)
+    curdrv=${curdrv##*/}
+    if [ "$curdrv" = "lcs" -a "$NETTYPE" = "ctc" ]; then
+        sysecho /sys/bus/ccw/drivers/lcs/unbind "$channel2"
+        sysecho /sys/bus/ccw/drivers/ctcm/bind "$channel2"
+    fi
+    if [ "$curdrv" = "ctcm" -a "$NETTYPE" = "lcs" ]; then
+        sysecho /sys/bus/ccw/drivers/ctcm/unbind "$channel2"
+        sysecho /sys/bus/ccw/drivers/lcs/bind "$channel2"
+    fi
+    # create ccwgroup
+    if sysecho /sys/bus/ccwgroup/drivers/${driver}/group "$SUBCHANNELS"; then
+        udevadm settle
+        case "$NETTYPE" in
+            qeth)
+                # Just preliminary card_type info until device goes online!
+                # In fact it seems enough to separate OSA from HiperSockets.
+                if [ -f /sys/devices/qeth/$SCH_R_DEVBUSID/card_type ]; then
+                    read cardtype < /sys/devices/qeth/$SCH_R_DEVBUSID/card_type
+                else
+                    echo $"Could not read qeth network card type from sysfs."
+                fi
+                ;;
+            ctc|lcs)
+                if [ -f /sys/devices/$driver/$SCH_R_DEVBUSID/type ]; then
+                    local type
+                    read type < /sys/devices/$driver/$SCH_R_DEVBUSID/type
+                    [ "$type" = "CTC/A" ] && \
+                        type="channel-to-channel adapter (CTC/A)"
+                    echo $"Detected: $type"
+                else
+                    echo $"Could not read ctc network card type from sysfs."
+                fi
+                ;;
+        esac
+        return 0
+    else
+        echo $"Channels $SUBCHANNELS could not be grouped"
+    fi
+    return 1
+}
+
+function question_prefix_subchannels() {
+    if [ "$NETTYPE" = "qeth" ]; then
+        echo -n $"Read,write,data channel"
+    else
+        echo -n $"Read,write channel"
+    fi
+}
+
+function question_choices_subchannels() {
+    if [ "$NETTYPE" = "qeth" ]; then
+        echo $" (e.g. 0.0.0300,0.0.0301,0.0.0302 or ? for help)."
+    else
+        echo $" (e.g. 0.0.0600,0.0.0601 or ? for help)"
+    fi
+}
+
+function helptext_subchannels() {
+    if [ "$NETTYPE" = "qeth" ]; then
+        echo $" Help text for qeth channels:"
+        echo $"  Enter the device bus ID of your CCW devices."
+        echo $"  QETH needs three channels for read, write, and data,"
+        echo $"  e.g. 0.0.0300,0.0.0301,0.0.0302"
+    else
+        echo $" Help text for lcs/ctc channels:"
+        echo $"  Enter the device bus ID of your CCW devices."
+        echo $"  CTC/ESCON and LCS need two channels for read and write,"
+        echo $"  e.g. 0.0.0600,0.0.0601 will configure the CTC or ESCON interface"
+        echo $"  with the channels 0x600 and 0x601"
+    fi
+}
+
+function finish_subchannels() {
+    syntax_check_subchannels || workflow_item_menu
+    # continuing on syntax error is doomed to fail,
+    # since handle_subchannels relies on the regex-based strict parsing
+    # in syntax_check_subchannels which does not match anything then
+    # news: relaxed by splitting semantic check and actual handling
+    semantic_check_subchannels || workflow_item_menu
+    if handle_subchannels; then
+        break
+    else
+        workflow_item_menu && break
+    fi
+}
+
+function do_subchannels() {
+    ask SUBCHANNELS \
+        question_prefix_subchannels question_choices_subchannels \
+        -h helptext_subchannels -f finish_subchannels
+}
+
+### PORTNAME (qeth)
+
+function syntax_check_portname() {
+    # - 1-8 characters, we convert it to upper case
+    PORTNAME=$(echo $PORTNAME | tr '[:lower:]' '[:upper:]')
+    local portname_len=${#PORTNAME}
+    if [ "$portname_len" -ge 1 -a "$portname_len" -le 8 ]; then
+        return 0
+    fi
+    echo $"Incorrect string length [1..8] for portname (PORTNAME): $PORTNAME"
+    return 1
+}
+
+function handle_portname() {
+    [ -n "$PORTNAME" ] || return 0
+    # - try to set portname right here w/ error handling
+    if sysecho /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/portname "$PORTNAME"; then
+        return 0
+    else
+        echo $"Portname '$PORTNAME' could not be configured for $SUBCHANNELS"
+    fi
+    return 1
+}
+
+function hint_portname() {
+    if [ -f /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/portname ]; then
+        local pname_hint
+        read pname_hint < /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/portname
+        if [ "$pname_hint" = "no portname required" ]; then
+            echo $"  * Your configuration does not require a portname. *"
+        fi
+    fi
+}
+
+function question_prefix_portname(){
+    echo -n $"Portname"
+}
+
+function question_choices_portname(){
+    echo $" (1..8 characters, or ? for help). Default is no portname:"
+}
+
+function helptext_portname(){
+    echo $" Help text for portname:"
+    # updated text describing when portname is obsolete;
+    # taken from:
+    # SA22-7935-09, Open Systems Adapter-Express Customer's
+    #   Guide and Reference, 10th ed. May 2008, IBM, p.17f.
+    # SC33-8411-00, Device Drivers, Features, and Commands,
+    #   1st ed. May 2008, IBM, p.116.
+    echo $"  Portname of the OSA-Express feature in QDIO mode and z/VM Guest LAN."
+    echo $"  This parameter is optional with:"
+    echo $"   - z/VM 4.4.0 or z/VM 4.3.0 with APARs VM63308 and PQ73878"
+    echo $"   - z800, z900 with >= Driver 3G - EC stream J11204, MCL032 (OSA level 3.33)"
+    echo $"   - z890, z990, z9, z10 mainframes"
+    hint_portname
+    echo $"  If portname is used, all operating systems sharing port must use same name."
+    echo $"  Input empty string if you don't want to enter a portname. [default]"
+}
+
+function exception_portname(){
+    [ -z "$PORTNAME" ] && break
+}
+
+function do_portname() {
+    ask PORTNAME \
+        question_prefix_portname question_choices_portname \
+        -h helptext_portname \
+        -e exception_portname -s syntax_check_portname -c handle_portname
+}
+
+### PORTNO (qeth)
+
+function syntax_check_qeth_portno() {
+    case $PORTNO in
+        0|1)
+            return 0
+            ;;
+    esac
+    echo $"Incorrect format or value for relative port number (PORTNO): $PORTNO"
+    return 1
+}
+
+function handle_qeth_portno() {
+    if sysecho /sys/devices/qeth/$SCH_R_DEVBUSID/portno "$PORTNO"; then
+        return 0
+    fi
+    echo $"Could not configure relative port number $PORTNO for $SUBCHANNELS"
+    return 1
+}
+
+function question_prefix_portno() {
+    echo -n $"Relative port number for OSA"
+}
+
+function question_choices_portno() {
+    echo $" (0, 1, or ? for help). Default is 0:"
+}
+
+function helptext_portno() {
+    echo $" Help text for relative port number for OSA with 2 ports per CHPID:"
+    echo $"  This applies to:"
+    echo $"   - OSA-Express3 Gigabit Ethernet on z10 systems"
+    echo $"   - OSA-Express ATM on zSeries 800 and 900 systems"
+    echo $"  0 for relative port number 0 [default]"
+    echo $"  1 for relative port number 1"
+    echo $"  Input empty string to not modify the default configuration."
+}
+
+function exception_portno() {
+    # Writing portno of e.g. hipersockets device fails.
+    # Therefore, do not configure on empty default value.
+    [ -z "$PORTNO" ] && break
+}
+
+function do_portno() {
+    ask PORTNO \
+        question_prefix_portno question_choices_portno \
+        -h helptext_portno -e exception_portno \
+        -s syntax_check_qeth_portno -c handle_qeth_portno
+}
+
+### LAYER2
+
+function syntax_check_layer2() {
+    # - $LAYER2 \in {0,1}
+    case $LAYER2 in
+        0|1)
+            return 0
+            ;;
+    esac
+    echo $"Incorrect format or value for layer2 mode (LAYER2): $LAYER2"
+    return 1
+}
+
+function handle_layer2() {
+    [ "$NETTYPE" == "qeth" ] || return 0
+    [ -n "$LAYER2" ] || return 0
+    # - try to set layer2 mode right here w/ error handling
+    if sysecho /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/layer2 "$LAYER2"; then
+        return 0
+    else
+        echo $"Layer2 mode '$LAYER2' could not be configured for $SUBCHANNELS"
+    fi
+    return 1
+}
+
+function question_prefix_layer2() {
+    echo -n $"Layer mode"
+}
+
+function question_choices_layer2() {
+    echo -n $" (0 for layer3, 1 for layer2, or ? for help)."
+    if [ "$isLayer2Default" = "yes" ]; then
+        echo $" Default is 1:"
+    else
+        echo $" Default is 0:"
+    fi
+}
+
+function helptext_layer2() {
+    echo $" Help text for OSA mode of operation: layer 2 vs. layer 3"
+    if [ "$isLayer2Default" = "yes" ]; then
+        echo $"  0 for layer 3 mode (may not work with dhcp, tcpdump, etc.)"
+        echo $"  1 for layer 2 mode [default]"
+    else
+        echo $"  0 for layer 3 mode [default] (may not work with dhcp, tcpdump, etc.)"
+        echo $"  1 for layer 2 mode"
+    fi
+}
+
+function exception_layer2() {
+    if [ -z "$LAYER2" ]; then
+        isLayer2Default && LAYER2=1 || LAYER2=0
+        # do not break, always apply, default may differ from online layer mode
+        #break
+    fi
+}
+
+function do_layer2() {
+    isLayer2Default && isLayer2Default=yes || isLayer2Default=no
+    ask LAYER2 \
+        question_prefix_layer2 question_choices_layer2 \
+        -h helptext_layer2 -e exception_layer2 \
+        -s syntax_check_layer2 -c handle_layer2
+}
+
+### MACADDR
+
+function syntax_check_macaddr() {
+    # - match against regex
+    [[ "$MACADDR" =~ ^[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]$ ]]
+    case $? in
+        0)
+            # string matched the pattern
+            return 0
+            ;;
+        1)
+            # string did not match the pattern
+            echo $"Incorrect format for mac address (MACADDR): $MACADDR"
+            ;;
+        2)
+            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+            ;;
+        *)
+            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+            ;;
+    esac
+    return 1
+}
+
+function handle_macaddr() {
+    # - try to set macaddr right here w/ error handlg.
+    # device needs to be online
+    if debug ifconfig $DEVICE hw ether $MACADDR; then
+        return 0
+    fi
+    echo $"MAC address $MACADDR could not be configured for"
+    echo $" $SUBCHANNELS (network device $DEVICE)"
+    return 1
+}
+
+function question_prefix_macaddr() {
+    echo -n $"Unique MAC address"
+}
+
+function question_choices_macaddr() {
+    macaddr_default=$(ifconfig $DEVICE | grep 'HWaddr' | sed 's/.*HWaddr \([[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]\).*/\1/')
+    echo $" (e.g. 02:00:00:00:00:00, ? for help). Default is $macaddr_default:"
+}
+
+function helptext_macaddr() {
+    echo $" Help text for MAC address:"
+    if [ -z "${cardtype//OSD_*/}" ]; then
+        echo $"  For real OSA in layer 2 mode, a random MAC address is automatically assigned."
+    else
+        echo $"  If connecting to a layer 2 VSWITCH, a MAC address is automatically assigned."
+    fi
+    echo $"  You may accept the automatic MAC address with an empty input. [default]"
+    echo $"  If the automatic address is not unique, please provide a MAC address."
+    [ -z "${cardtype//OSD_*/}" ] && \
+        echo $"  For real OSA, the provided address must be different from that of the OSA."
+    echo $"  You may override the automatic MAC address with non-empty input."
+    echo $"  An example MAC address would be: 02:00:00:00:00:00"
+}
+
+function exception_macaddr() {
+    if [ -z "$MACADDR" ]; then
+        if [ -z "${cardtype//OSD_*/}" ]; then
+            # keep random default MAC address of real OSA,
+            # so the OSA comes up with the same MAC each time in the future
+            MACADDR=$macaddr_default
+        else
+            # virtual OSA in layer2 is GuestLAN or VSWITCH
+            VSWITCH=1
+        fi
+        break
+    fi
+}
+
+function do_macaddr() {
+    ask MACADDR \
+        question_prefix_macaddr question_choices_macaddr \
+        -h helptext_macaddr -e exception_macaddr \
+        -s syntax_check_macaddr -c handle_macaddr
+}
+
+### CTCPROT
+
+function syntax_check_ctcprot() {
+    case "x$CTCPROT" in
+        x|x0)
+            unset CTCPROT
+            return 0
+            ;;
+        x1|x3)
+            return 0
+            ;;
+        x2)
+            echo $"CTC tty's are not usable for this installation (CTCPROT)"
+            ;;
+        *)
+            echo $"Incorrect format or value for CTC protocol (CTCPROT): $CTCPROT"
+            ;;
+    esac
+    return 1
+}
+
+function handle_ctcprot() {
+    [ -n "$CTCPROT" ] || return 0
+    if sysecho /sys/devices/ctcm/${SCH_R_DEVBUSID}/protocol "$CTCPROT"; then
+        return 0
+    fi
+    echo $"Could not configure CTC protocol $CTCPROT for $SUBCHANNELS"
+    return 1
+}
+
+function question_prefix_ctcprot() {
+    echo -n $"CTC protocol"
+}
+
+function question_choices_ctcprot() {
+    echo $" (0, 1, 3, or ? for help). Default is 0:"
+}
+
+function helptext_ctcprot() {
+    echo $" Help text for CTC protocol:"
+    echo $"  Protocol which should be used for the CTC interface"
+    echo $"  0 for compatibility with p.e. VM TCP service machine [default]"
+    echo $"  1 for enhanced package checking for Linux peers"
+    echo $"  3 for compatibility with OS/390 or z/OS peers"
+}
+
+function do_ctcprot() {
+    ask CTCPROT \
+        question_prefix_ctcprot question_choices_ctcprot \
+        -h helptext_ctcprot -s syntax_check_ctcprot -c handle_ctcprot
+}
+
+### PORTNAME (LCS portno)
+
+function syntax_check_lcs_portno() {
+    [[ "$PORTNAME" =~ ^[[:digit:]]+$ ]]
+    case $? in
+        0)
+            # string matched the pattern
+            return 0
+            ;;
+        1)
+            # string did not match the pattern
+            ;;
+        2)
+            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+            ;;
+        *)
+            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+            ;;
+    esac
+    echo $"Incorrect format for LCS port number (PORTNAME): $PORTNAME"
+    return 1
+}
+
+function handle_lcs_portno() {
+    [ -n "$PORTNAME" ] || return 0
+    if sysecho /sys/devices/lcs/$SCH_R_DEVBUSID/portno "$PORTNAME"; then
+        return 0
+    fi
+    echo $"Could not configure relative port number $PORTNAME for $SUBCHANNELS"
+    return 1
+}
+
+function question_prefix_lcs_portno() {
+    echo -n $"Relative port number of your LCS device"
+}
+
+function question_choices_lcs_portno() {
+    echo $" (number or ? for help). Default is 0:"
+}
+
+function helptext_lcs_portno() {
+    echo $" Help text for relative port number of LCS device:"
+    echo $"  Required for OSA-Express ATM cards only."
+}
+
+function exception_lcs_portno() {
+    [ -z "$PORTNAME" ] && break
+}
+
+function do_lcs_portno() {
+    # LCS portno and QETH portname share the parameter variable PORTNAME.
+    # For compatibility with existing parm files we keep this scheme.
+    ask PORTNAME \
+        question_prefix_lcs_portno question_choices_lcs_portno \
+        -e exception_lcs_portno \
+        -h helptext_lcs_portno -s syntax_check_lcs_portno -c handle_lcs_portno
+}
+
+### HOSTNAME
+
+function syntax_check_hostname() {
+    syntax_check_domainname "$HOSTNAME" "Incorrect format for hostname (HOSTNAME): $HOSTNAME"
+}
+
+function handle_hostname() {
+    if ! hostname $HOSTNAME; then
+        echo $"Could not configure hostname $HOSTNAME"
+        return 1
+    fi
+    return 0
+}
+
+function question_prefix_hostname() {
+    echo -n $"Hostname of your new Linux guest"
+}
+
+function question_choices_hostname() {
+    echo $" (FQDN e.g. s390.redhat.com or ? for help):"
+}
+
+function helptext_hostname() {
+    echo $" Help text for hostname:"
+    echo $"  Enter the full qualified domain name of your host."
+}
+
+function do_hostname() {
+    ask HOSTNAME \
+        question_prefix_hostname question_choices_hostname \
+        -h helptext_hostname -s syntax_check_hostname -c handle_hostname
+}
+
+### IPADDR
+
+function syntax_check_ipaddr() {
+    unset ipv4
+    unset ipv6
+    if checkipv4 $IPADDR; then
+        ipv4="yes"
+        return 0
+    elif [ "$ipv6_capable" = "yes" ] && checkipv6 $IPADDR; then
+        ipv6="yes"
+        return 0
+    fi
+    echo $"Incorrect format for IP address (IPADDR): $IPADDR"
+    return 1
+}
+
+function question_prefix_ipaddr() {
+    echo -n $"IPv4 address"
+    [ "$ipv6_capable" = "yes" ] && echo -n $" / IPv6 addr."
+}
+
+function question_choices_ipaddr() {
+    echo -n $" (e.g. 10.0.0.2"
+    [ "$ipv6_capable" = "yes" ] && echo -n $" / 2001:0DB8::"
+    echo $" or ? for help)"
+}
+
+function helptext_ipaddr() {
+    echo $" Help text for IP address:"
+    echo $"  Enter a valid IPv4 address of your new Linux guest (e.g. 10.0.0.2)"
+    if [ "$ipv6_capable" = "yes" ]; then
+        echo $"  or alternatively a valid IPv6 address without CIDR prefix (e.g. 2001:0DB8::)"
+        echo $"  IPv6 is supported on:"
+        echo $"   - Ethernet interfaces of the OSA-Express adapter running in QDIO mode."
+        echo $"   - HiperSockets interfaces"
+        echo $"   - z/VM guest LAN interfaces running in QDIO mode."
+        echo $"  IPv6 is not supported on HiperSockets guest LAN, OSA-Express Token Ring, ATM."
+    fi
+}
+
+function do_ipaddr() {
+    ipv6_capable && ipv6_capable=yes || ipv6_capable=no
+    ask IPADDR \
+        question_prefix_ipaddr question_choices_ipaddr \
+        -h helptext_ipaddr -s syntax_check_ipaddr
+    if [ "$ipv6" ]; then
+       # qeth_l3 would load ipv6 automatically but not qeth_l2
+       modprobe ipv6
+       tv disable_ipv6_autoconf
+    fi
+
+    # no handling/configuring of IPADDR yet, since more parameters needed
+}
+
+### NETMASK (IPv4)
+
+function syntax_check_netmask_v4() {
+    # also support CIDR prefix
+    if [[ "$NETMASK" =~ ^[[:digit:]]+$ ]]; then
+        if [ "$NETMASK" -ge 1 -a "$NETMASK" -le 32 ]; then
+            ipcalc_arg="$IPADDR/$NETMASK"
+            return 0
+        fi
+        echo $"Incorrect value for network prefix [1..32] (NETMASK): $NETMASK"
+        return 1
+    elif checkipv4 $NETMASK; then
+        ipcalc_arg="$IPADDR $NETMASK"
+        return 0
+    fi
+    echo $"Incorrect format or value for network mask (NETMASK): $NETMASK"
+    return 1
+}
+
+function question_prefix_netmask() {
+    echo -n $"IPv4 netmask or CIDR prefix"
+}
+
+function hint_netmask_v4() {
+    # default based on class a/b/c address
+    local a b c d
+    IFS=.
+    read a b c d <<< "$IPADDR"
+    unset IFS
+    local ip=$(( ( a << 24 ) + ( b << 16 ) + ( c << 8 ) + ( d ) ))
+    # <<EOF convince syntax highlighter that above shifts are no here documents
+    if   [ $(( ip & 0x80000000 )) -eq $(( 0x00000000 )) ]; then
+        # class a
+        echo "255.0.0.0"
+    elif [ $(( ip & 0xC0000000 )) -eq $(( 0x80000000 )) ]; then
+        # class b
+        echo "255.255.0.0"
+    elif [ $(( ip & 0xE0000000 )) -eq $(( 0xC0000000 )) ]; then
+        # class c
+        echo "255.255.255.0"
+    else
+        # some other class that should not be used as host address
+        return 1
+    fi
+    return 0
+}
+
+function question_choices_netmask() {
+    echo -n $" (e.g. 255.255.255.0 or 1..32 or ? for help)"
+    local default=$(hint_netmask_v4)
+    if [ -n "$default" ]; then
+        echo $". Default is $default:"
+    else
+        echo $":"
+        echo $"The IP address you entered previously should probably not be used for a host."
+    fi
+}
+
+function helptext_netmask() {
+    echo $" Help text for IPv4 netmask or CIDR prefix:"
+    echo $"  Enter a valid IPv4 netmask or CIDR prefix (e.g. 255.255.255.0 or 1..32)"
+    local default=$(hint_netmask_v4)
+    if [ -n "$default" ]; then
+        echo $"  Default is $default"
+    else
+        echo $"The IP address you entered previously should probably not be used for a host."
+    fi
+}
+
+function exception_netmask() {
+    if [ -z "$NETMASK" ]; then
+        NETMASK=$(hint_netmask_v4)
+    fi
+}
+
+function do_netmask() {
+    ask NETMASK \
+        question_prefix_netmask question_choices_netmask \
+        -h helptext_netmask \
+        -s syntax_check_netmask_v4 -e exception_netmask
+    # no handling/configuring of NETMASK yet, since more parameters needed
+}
+
+### NETWORK
+
+function do_network() {
+    echo
+    echo $"The NETWORK parameter isn't used anymore and will be ignored."
+    echo $" It is sufficient to specify IPADDR and NETMASK."
+    echo
+    unset NETWORK
+}
+
+### BROADCAST
+
+function do_broadcast() {
+    echo
+    echo $"The BROADCAST parameter isn't used anymore and will be ignored."
+    echo $" It is sufficient to specify IPADDR and NETMASK."
+    echo
+    unset BROADCAST
+}
+
+### NETMASK (IPv6)
+
+function syntax_check_prefix_v6() {
+    if [[ "$NETMASK" =~ ^[[:digit:]]+$ ]]; then
+        if [ "$NETMASK" -ge 1 -a "$NETMASK" -le 128 ]; then
+            return 0
+        fi
+    fi
+    echo $"Incorrect value for network prefix [1..128] (NETMASK): $NETMASK"
+    return 1
+}
+
+function question_prefix_netmask_v6() {
+    echo -n $"CIDR prefix for the IPv6 address"
+}
+
+function question_choices_netmask_v6() {
+    echo $" (1..128):"
+}
+
+function do_netmask_v6() {
+    ask NETMASK \
+        question_prefix_netmask_v6 question_choices_netmask_v6 \
+        -s syntax_check_prefix_v6
+    # no handling/configuring of NETMASK yet, since more parameters needed
+}
+
+### GATEWAY (IPv4)
+
+function configure_ipv4_gateway() {
+    # FIXME:
+    # - Strictly speaking we should first check reachability of gateway
+    #   and then configure the gateway route.
+    #   This would require a new intermediate workflow_item step
+    #   so that the user might continue despite unreachable gateway.
+    # done: Only adding default route might add multiple undesired default
+    # routes on redoing the parameter item, so delete default route
+    # before adding a new one.
+    ip -4 route del default dev $DEVICE >& /dev/null
+    [ -z "$GATEWAY" ] && return 0
+    if ! tv route add default gw $GATEWAY dev $DEVICE; then
+        echo $"Could net set default route on device $DEVICE via gateway $GATEWAY"
+        return 1
+    fi
+    # BH FIXME: Workaround for manual MACADDR, need ping to update arp table
+    echo $"Trying to reach gateway $GATEWAY..."
+    if [ "$NETTYPE" = "ctc" ]; then
+        # (virtual) CTC(/A) seems to need some time to get functional
+        local i=1
+        while : ; do
+            $PING $GATEWAY >& /dev/null && break
+            i=$((i+1))
+            if [ "$i" -gt 3 ]; then
+                echo $"Could not reach gateway $GATEWAY within timeout"
+                return 1
+            fi
+        done
+    else
+        if ! $PING $GATEWAY >& /dev/null; then
+            echo $"Could not reach your default gateway $GATEWAY"
+            return 1
+        fi
+    fi
+    return 0
+}
+
+function hint_ipv4_gateway() {
+    # - provide default suggestion based on network,
+    #   for a class C network this would be either .1 or .254 at the end
+    local a b c d
+    IFS=.
+    read a b c d <<< "$NETWORK"
+    unset IFS
+    local ip=$(( ( a << 24 ) + ( b << 16 ) + ( c << 8 ) + ( d ) ))
+    # <<EOF convince syntax highlighter that above shifts are no here documents
+    local lo=$(( ip | 1 ))
+    local lo_a=$(( (lo & 0xFF000000) >> 24 ))
+    local lo_b=$(( (lo & 0x00FF0000) >> 16 ))
+    local lo_c=$(( (lo & 0x0000FF00) >> 8 ))
+    local lo_d=$(( (lo & 0x000000FF) ))
+    local hi=$(( ip | ( (2**(32 - PREFIX)) - 1 ) ))
+    local hi_a=$(( (hi & 0xFF000000) >> 24 ))
+    local hi_b=$(( (hi & 0x00FF0000) >> 16 ))
+    local hi_c=$(( (hi & 0x0000FF00) >> 8 ))
+    local hi_d=$(( (hi & 0x000000FE) ))
+    echo $"  Depending on your network design patterns, the default gateway"
+    echo $"   might be $lo_a.$lo_b.$lo_c.$lo_d or $hi_a.$hi_b.$hi_c.$hi_d"
+}
+
+function question_prefix_gateway() {
+    echo -n $"IPv4 address of your default gateway"
+}
+
+function question_choices_gateway() {
+    echo $" or ? for help:"
+}
+
+function helptext_gateway() {
+    echo $" Help text for IPv4 default gateway:"
+    echo $"  For HiperSockets with internal traffic only you may want to leave this empty"
+    echo $"  and choose continue afterwards to go on without gateway."
+    hint_ipv4_gateway
+}
+
+function finish_gateway() {
+    if ! checkipv4 $GATEWAY; then
+        # above checkipv4 is silent, so make up for syntax error
+        echo $"Incorrect format for IPv4 address of gateway (GATEWAY): $GATEWAY"
+        workflow_item_menu
+    fi
+    if configure_ipv4_gateway; then
+        break
+    else
+        workflow_item_menu && break
+    fi
+}
+
+# FIXME: allow empty/no gateway?
+
+function do_gateway() {
+    ask GATEWAY \
+        question_prefix_gateway question_choices_gateway \
+        -h helptext_gateway -f finish_gateway
+}
+
+### GATEWAY (IPv6)
+
+function configure_ipv6_gateway() {
+    # FIXME:
+    # - Strictly speaking we should first check reachability of gateway
+    #   and then configure the gateway route.
+    #   This would require a new intermediate workflow_item step
+    #   so that the user might continue despite unreachable gateway.
+    # done: Only adding default route might add multiple undesired default
+    # routes on redoing the parameter item, so delete default route
+    # before adding a new one.
+    ip -6 route del default dev $DEVICE >& /dev/null
+    [ -z "$GATEWAY" ] && return 0
+    # IPv6 http://www.ibiblio.org/pub/Linux/docs/HOWTO/other-formats/html_single/Linux+IPv6-HOWTO.html#AEN1147
+    #       ip -6 route add ::/0 dev $DEVICE via $GATEWAY
+    # (Could also be learned by autoconfiguration on the link:
+    #  after IP address setup and device up,
+    #   see if default route has been learned
+    #   ip -6 route show | grep ^default
+    #  However, we currently use manual IPv6 configuration only.)
+    if ! debug ip -6 route add ::/0 dev $DEVICE via $GATEWAY; then
+        echo $"Could net set default route on device $DEVICE"
+        echo $" via gateway $GATEWAY"
+        return 1
+    fi
+    # BH FIXME: Workaround for manual MACADDR, need ping to update arp table
+    echo $"Trying to reach gateway $GATEWAY..."
+    if ! $PING6 $GATEWAY >& /dev/null; then
+        echo $"Could not reach your default gateway $GATEWAY"
+        return 1
+    fi
+    return 0
+}
+
+function question_prefix_gateway_v6() {
+    echo -n $"IPv6 address of your default gateway"
+}
+
+function question_choices_gateway_v6() {
+    echo $":"
+}
+
+function helptext_gateway_v6() {
+    echo $" Help text for IPv6 default gateway:"
+    echo $"  For HiperSockets with internal traffic only you may want to leave this empty"
+    echo $"  and choose continue afterwards to go on without gateway."
+}
+
+function finish_gateway_v6() {
+    if ! checkipv6 $GATEWAY; then
+        # above checkipv6 is silent, so make up for syntax error
+        echo $"Incorrect format for IPv6 address of gateway (GATEWAY): $GATEWAY"
+        workflow_item_menu
+    fi
+    if configure_ipv6_gateway; then
+        break
+    else
+        workflow_item_menu && break
+    fi
+}
+
+# FIXME: allow empty/no gateway?
+
+function do_gateway_v6() {
+    ask GATEWAY \
+        question_prefix_gateway_v6 question_choices_gateway_v6 \
+        -h helptext_gateway_v6 -f finish_gateway_v6
+}
+
+### GATEWAY (IPv4, point-to-point)
+
+function configure_ipv4_ptp() {
+    # device needs to be online
+    if debug ifconfig $DEVICE $IPADDR $MMTU pointopoint $GATEWAY; then
+        configure_ipv4_gateway
+        return $?
+    fi
+    echo $"Could not set IPv4 address $IPADDR for device $DEVICE"
+    echo $" to peer $GATEWAY"
+    [ -n "$MMTU" ] && echo $" and maximum transfer unit: $MMTU"
+    return 1
+}
+
+function question_prefix_ptp_gateway() {
+    echo -n $"IPv4 address of your point-to-point partner"
+}
+
+function question_choices_ptp_gateway() {
+    echo $" or ? for help:"
+    # no hinting possible here
+}
+
+function helptext_ptp_gateway() {
+    echo $" Help text for point-to-point partner:"
+    echo $"  IPv4 address of your CTC or ESCON point-to-point partner."
+}
+
+function finish_ptp_gateway() {
+    if checkipv4 $GATEWAY; then
+        if [ "$GATEWAY" = "$IPADDR" ]; then
+            echo $"IPv4 address of partner should probably be different from the guest's address"
+            workflow_item_menu && break
+        else
+            break
+        fi
+    else
+        # above checkipv4 is silent, so make up for syntax error
+        echo $"Incorrect format for IPv4 address of partner (GATEWAY): $GATEWAY"
+        workflow_item_menu && break
+    fi
+    # too early to actually configure gateway
+}
+
+function do_ptp_gateway() {
+    ask GATEWAY \
+        question_prefix_ptp_gateway question_choices_ptp_gateway \
+        -h helptext_ptp_gateway -f finish_ptp_gateway
+}
+
+### DNS
+
+function syntax_check_dns() {
+    if [ -z "$DNS" ]; then
+        echo $"You might encounter problems without a nameserver, especially with FTP installs"
+        return 1
+    fi
+    local dnsitem
+    local allgood="yes"
+    if [ "$ipv6" ]; then
+        while read dnsitem; do
+            if ! checkipv6 $dnsitem; then
+                echo $"Not a valid IPv6 address for DNS server: $dnsitem"
+                allgood="no"
+            fi
+        done < <(echo $DNS | sed 's/,/\n/g')
+    else
+         while read dnsitem; do
+           if ! checkipv4 $dnsitem; then
+                echo $"Not a valid IPv4 address for DNS server: $dnsitem"
+                allgood="no"
+            fi
+         done < <(echo $DNS | sed 's/:/\n/g')
+    fi
+    if [ "$allgood" = "yes" ]; then
+        return 0
+    else
+        return 1
+    fi
+}
+
+function handle_dns() {
+    # - foreach DNS try if server is reachable by one ping
+    [ -z "$DNS" ] && return 0
+    local dnsitem
+    local allgood="yes"
+    echo $"Trying to reach DNS servers..."
+    if [ "$ipv6" ]; then
+        while read dnsitem; do
+            if ! $PING6 $dnsitem >& /dev/null; then
+                echo $"Could not ping DNS server (might still serve DNS requests): $dnsitem"
+                allgood="no"
+                # this should not be a hard failure since some network
+                # environments may prevent pings to DNS servers
+                # => prevent workflow_item_menu in kickstart mode
+            fi
+        done < <(echo $DNS | sed 's/,/\n/g')
+    else
+        while read dnsitem; do
+            # Some network environment may prevent a DNS server from being
+            # reachable by ping, so it would make sense to use nslookup.
+            # However, nslookup fails with "Resolver Error 0 (no error)"
+            # at this stage of the setup progress => not useful
+            if ! $PING $dnsitem >& /dev/null; then
+                echo $"Could not ping DNS server: $dnsitem"
+#                if nslookup $dnsitem $dnsitem >& /dev/null; then
+#                    echo $" but could resolve DNS server with itself: $dnsitem"
+#                else
+#                    echo $"Could not resolve DNS server with itself: $dnsitem"
+#                    allgood="no"
+#                fi
+#            elif ! nslookup $dnsitem $dnsitem >& /dev/null; then
+#                echo $"Could not resolve DNS server with itself: $dnsitem"
+                allgood="no"
+            fi
+        done < <(echo $DNS | sed 's/:/\n/g')
+    fi
+    if [ "$allgood" = "yes" ]; then
+        return 0
+    else
+        return 1
+    fi
+}
+
+function question_prefix_dns() {
+    if [ "$ipv6" ]; then
+        echo -n $"IPv6 addresses of DNS servers"
+    else
+        echo -n $"IPv4 addresses of DNS servers"
+    fi
+}
+
+function question_choices_dns() {
+    if [ "$ipv6" ]; then
+        echo $" (separated by commas ',' or ? for help):"
+    else
+        echo $" (separated by colons ':' or ? for help):"
+    fi
+}
+
+function helptext_dns() {
+    echo $" Help text for DNS servers:"
+    if [ "$ipv6" ]; then
+        echo $"  Enter IPv6 addresses of DNS servers separated by commas ','"
+    else
+        echo $"  Enter IPv4 addresses of DNS servers separated by colons ':'"
+    fi
+    echo $"  Default are no DNS servers at all."
+    echo $"  However, you might encounter problems without a nameserver,"
+    echo $"   especially with FTP installs."
+    if [ "$ipv6" ]; then
+        echo $"  An example with 2 servers would be: 2001:0DB8::42,2001:0DB8::BE:AF"
+    else
+        echo $"  An example with 2 servers would be: 10.0.0.250:10.1.1.1"
+    fi
+}
+
+function do_dns() {
+    ask DNS \
+        question_prefix_dns question_choices_dns \
+        -h helptext_dns -s syntax_check_dns -c handle_dns
+}
+
+### SEARCHDNS
+
+function syntax_check_searchdns() {
+    [ -z "$SEARCHDNS" ] && return 0
+    local dnsitem
+    local allgood="yes"
+    while read dnsitem; do
+        syntax_check_domainname "$dnsitem" $"Not a valid DNS search domain: $dnsitem" || allgood="no"
+    done < <(echo $SEARCHDNS | sed 's/:/\n/g')
+    if [ "$allgood" = "yes" ]; then
+        return 0
+    else
+        return 1
+    fi
+}
+
+function question_prefix_searchdns() {
+    echo -n $"DNS search domains"
+}
+
+function question_choices_searchdns() {
+    echo $" (separated by colons ':' or ? for help):"
+}
+
+function helptext_searchdns() {
+    echo $" Help text for DNS search domains:"
+    echo $"  Enter search domains according to hostname syntax separated by colons."
+    echo $"  Default are no DNS search domains at all."
+    echo $"  An example would be: subdomain.domain.com:domain.com"
+}
+
+function do_searchdns() {
+    ask SEARCHDNS \
+        question_prefix_searchdns question_choices_searchdns \
+        -h helptext_searchdns -s syntax_check_searchdns
+}
+
+### DASD
+
+function parse_dasd() {
+    local handle
+    [ "$1" = "-h" ] && handle=yes || unset handle
+    local dasditem
+    local allgood="yes"
+    local cio_wc=$(wc -c /proc/cio_ignore)
+    read cio_wc_bytes cio_wc_filename cio_wc_foo <<< "$cio_wc"
+    if [ "$handle" = "yes" -a "$cio_wc_bytes" != "0" ]; then
+        echo $"Trying to clear specified DASDs from device blacklist..."
+        mkdir -p /etc/modprobe.d
+        echo "options dasd_mod dasd=$DASD" > /etc/modprobe.d/dasd_mod.conf
+        if ! dasd_cio_free; then
+            echo $"Not all specified DASDs could be detected within timeout."
+            allgood="no"
+        fi
+    fi
+    while read dasditem; do
+        unset range features range lo hi rangegood \
+            attrs devno lodevno hidevno devbusid sys
+        case $dasditem in
+            autodetect)
+                [ -z "$handle" ] && continue
+                cio_wc=$(wc -c /proc/cio_ignore)
+                read cio_wc_bytes cio_wc_filename cio_wc_foo <<< "$cio_wc"
+                # above we only freed the devices specified in $DASD,
+                # so there might still be other DASDs in the blacklist
+                if [ "$cio_wc_bytes" != "0" ]; then
+                    echo $"Note: There is a device blacklist active! Only activating visible DASDs."
+                fi
+                local sys
+                while read sys; do
+                    if ! sysecho $sys/online 1; then
+                        echo $"Could not set DASD ${sys##*/} online"
+                    fi
+                done < <(find /sys/bus/ccw/drivers/dasd-eckd/ -name "*.?.????" 2>/dev/null;\
+                    find /sys/bus/ccw/drivers/dasd-fba/ -name "*.?.????" 2>/dev/null)
+                ;;
+            probeonly|nopav|nofcx)
+                if [ -z "$handle" ]; then
+                    echo $"DASD option $dasditem not supported by installer"
+                fi
+                ;;
+            "") continue ;; # empty range
+            *)  local range features rangegood="yes"
+                IFS='('
+                read range features <<< "$dasditem"
+                unset IFS
+                # parse: dev OR dev'-'dev
+                local lo=${range%%-*}
+                [[ "$lo" =~ (^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$)|(^[[:xdigit:]]{3,4}$) ]]
+                case $? in
+                    0)  # string matched the pattern
+                        lo=$(canonicalize_devno $lo) ;;
+                    1)  # string did not match the pattern
+                        rangegood="no"
+                        if [ -z "$handle" ]; then
+                            echo $"Incorrect format for lower bound of DASD range $range: $lo"
+                            allgood="no"
+                        fi
+                        ;;
+                    2)  echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2 ;;
+                    *)  echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2 ;;
+                esac
+                if [ "${range//*-*/}" = "" ]; then
+                    local hi=${range##*-}
+                    [[ "$hi" =~ (^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$)|(^[[:xdigit:]]{3,4}$) ]]
+                    case $? in
+                        0)  # string matched the pattern
+                            hi=$(canonicalize_devno $hi)
+                            if [ "${lo%.*}" != "${hi%.*}" ]; then
+                                echo $"Prefixes of DASD range $range do not match: ${lo%.*} != ${hi%.*}"
+                                rangegood="no"
+                                allgood="no"
+                            fi
+                            ;;
+                        1)  # string did not match the pattern
+                            rangegood="no"
+                            if [ -z "$handle" ]; then
+                                echo $"Incorrect format for upper bound of DASD range $range: $hi"
+                                allgood="no"
+                            fi
+                            ;;
+                        2)  echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2 ;;
+                        *)  echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2 ;;
+                    esac
+                fi
+                if [ "${features//*)/}" != "" ]; then
+                    if [ -z "$handle" ]; then
+                        echo $"Missing closing parenthesis at features of DASD range $range: ($features"
+                        allgood="no"
+                    fi
+                fi
+                local attrs=""
+                if [ -n "$features" ]; then
+                    features="${features%)}"
+                    while read feature; do
+                        case $feature in
+                            ro) attrs=$attrs" readonly" ;;
+                            diag) attrs=$attrs" use_diag" ;;
+                            erplog|failfast) attrs=$attrs" "$feature ;;
+                            *) if [ -z "$handle" ]; then
+                                   echo $"Unknown DASD feature for device range $range: $feature"
+                                   allgood="no"
+                               fi
+                               ;;
+                        esac
+                    done < <(echo $features | sed 's/:/\n/g')
+                fi
+                [ "$rangegood" = "yes" ] || continue
+                [ "$handle" = "yes" ] || continue
+                # now apply $attrs and set DASDs $lo to $hi online
+                [ -z "$hi" ] && hi=$lo
+                local devno lodevno=$((0x${lo##*.})) hidevno=$((0x${hi##*.}))
+                local dasdconf="/etc/dasd.conf"
+                for ((devno=$lodevno; $devno <= $hidevno; ++devno)); do
+                    local devbusid=$(printf "%s.%04x" ${lo%.*} $devno)
+                    local sys="/sys/bus/ccw/devices/"$devbusid
+                    echo -n "$devbusid" >> $dasdconf
+                    for attr in $attrs; do
+                        if [ "$attr" = "use_diag" ]; then
+                            # diag discipline cannot be auto-loaded
+                            modprobe dasd_diag_mod
+                        fi
+                        if [ ! -f $sys/$attr ]; then
+                            echo $"DASD $devbusid does not provide attribute $attr"
+                            continue
+                        fi
+                        if ! sysecho $sys/$attr 1; then
+                            echo $"Could not set attribute $attr for DASD $devbusid"
+                        fi
+                        echo -n " $attr=1" >> $dasdconf
+                    done
+                    if [ ! -f $sys/online ]; then
+                        echo $"DASD $devbusid not found"
+                        continue
+                    fi
+                    if ! sysecho $sys/online 1; then
+                        echo $"Could not set DASD $devbusid online"
+                    fi
+                    echo >> $dasdconf
+                done
+                ;;
+        esac
+    done < <(echo $DASD | sed 's/,/\n/g')
+    if [ "$handle" = "yes" ]; then
+        udevadm settle
+        dasd_settle_all || return 1
+        echo $"Activated DASDs:"
+        cat /proc/dasd/devices | sed -e 's/ at ([^)]*) is//' -e 's/ at/,/'
+    fi
+    if [ "$allgood" = "yes" ]; then
+        return 0
+    else
+        return 1
+    fi
+}
+
+function syntax_check_dasd() {
+    parse_dasd
+    return $?
+}
+
+function handle_dasd() {
+    parse_dasd -h
+    return $?
+}
+
+function question_prefix_dasd() {
+    echo -n $"DASD range"
+}
+
+function question_choices_dasd() {
+    echo $" (e.g. 200-203,205 or ? for help). Default is autoprobing:"
+}
+
+function helptext_dasd() {
+    echo $" Help text for DASD range:"
+    echo $"  Comma separated list of ranges of device bus IDs."
+    echo $"  Default is autoprobing (not recommended)."
+    echo $"  Examples would be: 200-203 or 200,201,202,203 or 0.0.0200-0.0.0203,0.0.0205"
+}
+
+function exception_dasd() {
+    [ -z "$DASD" ] && DASD="autodetect"
+}
+
+function do_dasd() {
+    ask DASD \
+        question_prefix_dasd question_choices_dasd \
+        -h helptext_dasd -e exception_dasd -s syntax_check_dasd -c handle_dasd
+}
+
+### FCP
+
+function syntax_check_fcp() {
+    local allgood="yes"
+    local i
+    for i in ${!FCP_*}; do
+        local -a fcp
+        local devno wwpn lun
+        read -a fcp <<< "${!i}"
+        case ${#fcp[ ]} in
+            3)
+                devno=${fcp[0]}
+                wwpn=${fcp[1]}
+                lun=${fcp[2]}
+                ;;
+            5)
+                devno=${fcp[0]}
+                wwpn=${fcp[2]}
+                lun=${fcp[4]}
+                echo $"Deprecated number of FCP arguments (5 instead of 3): "
+                echo $" $i=\"${!i}\""
+                echo $" should instead be: "
+                echo $" $i=\"$devno $wwpn $lun\""
+                ;;
+            *)
+                echo $"Unsupported number of FCP arguments (${#fcp[ ]} instead of 3) in:"
+                echo $" $i=\"${!i}\""
+                allgood="no"
+                continue
+                ;;
+        esac
+        [[ "$devno" =~ (^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$)|(^[[:xdigit:]]{3,4}$) ]]
+        case $? in
+            0)  ;; # string matched the pattern
+            1)  # string did not match the pattern
+                echo $"Incorrect format for FCP device $devno in:"
+                echo $" $i=\"${!i}\""
+                allgood="no"
+                ;;
+            2)
+                echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+                ;;
+            *)
+                echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+                ;;
+        esac
+        # zfcp.py:class ZFCPDevice would also accept WWPN without leading 0x
+        [[ "$wwpn" =~ ^0x[[:xdigit:]]{16}$ ]]
+        case $? in
+            0)  ;; # string matched the pattern
+            1)  # string did not match the pattern
+                echo $"Incorrect format for FCP WWPN $wwpn in:"
+                echo $" $i=\"${!i}\""
+                allgood="no"
+                ;;
+            2)  echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2 ;;
+            *)  echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2 ;;
+        esac
+        # zfcp.py:class ZFCPDevice would also accept LUN without leading 0x
+        # zfcp.py:class ZFCPDevice would also accept 16 bit LUN and pads with 0
+        [[ "$lun" =~ ^0x[[:xdigit:]]{8}0{8}$ ]]
+        case $? in
+            0)  ;; # string matched the pattern
+            1)  # string did not match the pattern
+                echo $"Incorrect format for FCP LUN $lun in:"
+                echo $" $i=\"${!i}\""
+                allgood="no"
+                ;;
+            2)
+                echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
+                ;;
+            *)
+                echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
+                ;;
+        esac
+    done
+    if [ "$allgood" = "yes" ]; then
+        return 0
+    else
+        return 1
+    fi
+}
+
+###
+
+function show_parms() {
+    # The only issue with this stateless approach to showing parameters based
+    # on their content being non-empty is, that parameters with defaults
+    # such as LAYER2, (PORTNAME,) CTCPROT, PORTNO (,MACADDR) won't be shown
+    # if the user just hit enter, so the parm file would be "incomplete".
+    # However this is not easy to fix in here, since it would require the
+    # inter-parameter dependenies coded below in the main part, e.g. an
+    # empty LAYER2 should only be printed with default value if $NETTYPE=qeth.
+    # For the time being, at least the parameters LAYER2, PORTNAME, and CTCPROT
+    # only get asked on being empty if not running in kickstart mode.
+    cat << EOF
+NETTYPE=$NETTYPE
+IPADDR=$IPADDR
+NETMASK=$NETMASK
+GATEWAY=$GATEWAY
+HOSTNAME=$HOSTNAME
+EOF
+    [ "$SUBCHANNELS" ] && echo "SUBCHANNELS=$SUBCHANNELS"
+    [ "$LAYER2" ] && echo "LAYER2=$LAYER2"
+    [ "$VSWITCH" ] && echo "VSWITCH=$VSWITCH"
+    [ "$MACADDR" ] && echo "MACADDR=$MACADDR"
+    [ "$PORTNAME" ] && echo "PORTNAME=$PORTNAME"
+    [ "$PORTNO" ] && echo "PORTNO=$PORTNO"
+    [ "$PEERID" ] && echo "PEERID=$PEERID"
+    [ "$CTCPROT" ] && echo "CTCPROT=$CTCPROT"
+    if [ -n "$mmtu_was_set" ]; then
+        echo "MMTU=\"$MMTU\""
+    elif [ -n "$mtu_was_set" ]; then
+        echo "MTU=$MTU"
+    fi
+    [ "$DNS" ] && echo "DNS=$DNS"
+    [ "$SEARCHDNS" ] && echo "SEARCHDNS=$SEARCHDNS"
+    [ "$DASD" ] && echo "DASD=$DASD"
+}
+
+function final_check() {
+    # final check && break
+    if [ -z "$interaction_happened" ]; then
+        # if parm file was good enough just continue without interaction
+        break
+        return 0
+    fi
+    while : ; do
+        # optionally consider "continue" as default
+        # but then again the user may inadvertently continue
+        echo
+        echo $"c) continue, p) parm file/configuration, n) network state, r) restart, s) shell"
+        local answer
+        read answer
+        case $answer in
+            c) return 0 ;;
+            p) echo
+                show_parms ;;
+            n) # show interfaces and routing table
+                ifconfig -a
+                if [ "$ipv6" ]; then
+                    #route -n -A inet6
+                    # the following produces more compact output for 80 columns
+                    ip -6 route show | grep -v "^unreachable "
+                else
+                    route -n
+                fi
+                ;;
+            d) # show active DASDs with some useful details
+                echo $"Activated DASDs:"
+                cat /proc/dasd/devices|sed -e 's/ at ([^)]*) is//' -e 's/ at/,/'
+                ;;
+            r) break ;;
+            s) echo $"Enter 'exit' at the shell prompt to get back to the installation dialog."
+                /bin/bash
+                ;;
+    esac
+    done
+    return 1
+}
+
+### MAIN ###
+
+init_main
+udev_setup
+
+# Parse configuration
+if [ -n "$CMSDASD" -a -n "$CMSCONFFILE" ]; then
+    readcmsfile $CMSDASD $CMSCONFFILE
+    source /tmp/$CMSCONFFILE #2>/dev/null
+fi
+
+if [ -r /sys/firmware/ipl/ipl_type ]; then
+    #local ipl_type
+    read ipl_type < /sys/firmware/ipl/ipl_type
+    if [ "$ipl_type" = "fcp" ]; then
+        while : ; do
+            echo $"Your IPL device is set to FCP."
+            echo $"Would you like to perform a CD-ROM/DVD-ROM installation? (y/n)"
+            #local do_cd_install
+            read do_cd_install
+            case $do_cd_install in
+                y|Y|[Yy][Ee][Ss])
+                    # precondition: zfcp driver incl. dependencies loaded
+                    #local CD_DEVICE WWPN LUN
+                    read CD_DEVICE < /sys/firmware/ipl/device
+                    read WWPN < /sys/firmware/ipl/wwpn
+                    read LUN < /sys/firmware/ipl/lun
+                    zfcp_cio_free -d $CD_DEVICE \
+                        || echo $"Device $CD_DEVICE could not be cleared from device blacklist"
+                    sysecho /sys/bus/ccw/drivers/zfcp/$CD_DEVICE/online 1 \
+                        || echo $"Could not set FCP device $CD_DEVICE online"
+                    udevadm settle
+                    # port (WWPN) appears automatically
+                    sysecho /sys/bus/ccw/drivers/zfcp/$CD_DEVICE/$WWPN/unit_add $LUN \
+                        || echo $"Could not add LUN $LUN at WWPN $WWPN on FCP device $CD_DEVICE"
+                    udevadm settle
+                    break
+                    ;;
+                n|N|[Nn][Oo])
+                    break
+                    ;;
+                *)
+                    echo
+                    echo $"*** INVALID ANSWER: $do_cd_install"
+                    echo
+                    unset do_cd_install
+                    ;;
+            esac
+        done
+    fi
+fi
+
+# Perform a network installation
+
+[ -n "$MTU" ] && mtu_was_set=$MTU
+[ -n "$MMTU" ] && mmtu_was_set=$MMTU
+[ -n "$VSWITCH" ] && vswitch_was_set=$VSWITCH
+
+[ -n "$CHANDEV" ] && do_chandev
+[ -n "$NETWORK" ] && do_network
+[ -n "$BROADCAST" ] && do_broadcast
+
+# [ -z "${cardtype//OSD_*/}" ] can be used to check for real OSA
+
+# Check for missing parameters, prompt for them if necessary
+while : ; do
+
+    # do not show list of possible network device configurations, if:
+    # - running unattended install with kickstart
+    # - relevant parameters have already been specified in parm file
+    #   (a possible optimization would be matching those parms to table entry)
+    # - dialog has not been restarted
+    [ -n "$reenter" \
+        -o -z "$RUNKS" -a \( -z "$NETTYPE" -o -z "$SUBCHANNELS" \) ] && \
+        dialog_network_table
+    if isVM; then
+        echo $"* NOTE: To enter default or empty values press enter twice. *"
+    fi
+    do_nettype
+
+    # precondition: driver (qeth/lcs/ctcm) loaded incl. dependencies
+    do_subchannels
+    if [ "$NETTYPE" = "qeth" ]; then
+        [ -z "$reenter" -a -n "$RUNKS" -a -z "$PORTNAME" ] || \
+            [ -n "${cardtype//OSD_*/}" ] || do_portname
+        # See also https://bugzilla.redhat.com/show_bug.cgi?id=439461
+        #
+        # If running in kickstart mode (unattended), we assume no
+        # interaction and the user won't get asked for PORTNO.
+        # Otherwise the user will be asked for PORTNO.
+        # If the user specified PORTNO in parm/conf file, PORTNO gets
+        # respected (or the user will be asked if it was wrong).
+        if [ -f /sys/devices/qeth/$SCH_R_DEVBUSID/portno ]; then
+            # driver support exists since RHEL5.2
+            [ -z "$reenter" -a -n "$RUNKS" -a -z "$PORTNO" ] || \
+                [ -n "${cardtype//OSD_*/}" ] || do_portno
+        fi
+        do_layer2
+        # set device online to know the device name
+        # and to know if it's OSD/HiperSockets/GuestLAN BUT do not
+        # try to ifconfig the device up since that requires
+        # setting the mac address before (if applicable).
+        set_device_online || workflow_item_menu noredo
+        # MAC address handling is not part of
+        # https://bugzilla.redhat.com/show_bug.cgi?id=233376
+        # Instead the additions come from
+        # https://bugzilla.redhat.com/show_bug.cgi?id=248049
+        # The new parms VSWITCH and MACADDR are described in
+        # the RHEL 5.1 release notes.
+        if isLayer2; then
+            if [ -z "$VSWITCH" -o "$VSWITCH" == 0 ]; then
+                do_macaddr
+            fi
+        fi
+    elif [ "$NETTYPE" = "ctc" ]; then
+        [ -z "$reenter" -a -n "$RUNKS" -a -z "$CTCPROT" ] || do_ctcprot
+        set_device_online || workflow_item_menu noredo
+    elif [ "$NETTYPE" = "lcs" ]; then
+        [ -n "$RUNKS" -a -z "$PORTNAME" ] && PORTNAME=0
+        do_lcs_portno
+        set_device_online || workflow_item_menu noredo
+    fi
+
+    # device needs to be up before configuring with ifconfig/ip in
+    # configure_ipv6_address/configure_ipv4_address/configure_ipv4_address
+    set_device_up || workflow_item_menu noredo
+
+    [ "$HOSTNAME" = "(none)" ] && unset HOSTNAME
+    do_hostname
+
+    # Note: The workflow_item_menu does a rollback_config on restart
+    # dialog, i.e. hardware config has been reset and it is impossible to
+    # only restart halfway at IPADDR.
+    do_ipaddr
+    if [ "$ipv6" ]; then
+        # this branch is all IPv6 and at the same time also NETTYPE==qeth
+        do_netmask_v6
+        handle_mtu
+        configure_ipv6_address || workflow_item_menu noredo
+        do_gateway_v6
+    else
+        # Consider IPv4 as default, even for unknown IP versions
+        # due to invalid input for IPADDR ignored by the user previously
+        # (neither ipv6 nor ipv4 is set).
+        # Otherwise we would skip things like NETMASK or GATEWAY
+        # and jump forward to DNS which is probably not what we want.
+        if [ "$NETTYPE" = "qeth" ] || [ "$NETTYPE" = "lcs" ]; then
+            do_netmask
+            handle_mtu
+            configure_ipv4_address || workflow_item_menu noredo
+            do_gateway
+        else  # ctc0
+            if [ -z "$NETMASK" ]; then
+                # If the user did not supply netmask, we add the right one.
+                # Netmask MUST be present,
+                # or pumpSetupInterface() blows routes.
+                NETMASK="255.255.255.255"
+            fi
+            # don't ask for MTU, but use it if set in the parm file
+            # don't overwrite MMTU if it has been set for CTC
+            [ "$NETTYPE" = "ctc" -a -z "$MTU" -a -z "$MMTU" ] && \
+                MMTU="mtu 1500"
+            do_ptp_gateway
+            configure_ipv4_ptp || workflow_item_menu noredo
+        fi
+    fi
+
+    do_dns
+    [ -n "$DNS" ] && do_searchdns
+
+    do_dasd
+
+    echo $"Initial configuration completed."
+    final_check && break
+    rollback_config
+    reenter="yes"
+
+done # outer dialog loop
+
+if [ -z "$testing" ]; then
+
+    # convert to space-separated lists
+    if [ -n "$SEARCHDNS" ]; then
+        SEARCHDNS=$(echo $SEARCHDNS |sed -e 's/:/ /g')
+        for i in "$SEARCHDNS"; do echo "search $i"; done >> /etc/resolv.conf
+    fi
+    if [ -n "$DNS" ]; then
+        if [ "$ipv6" ]; then
+            RESOLVDNS=$(echo $DNS |sed -e 's/,/ /g')
+        else
+            RESOLVDNS=$(echo $DNS |sed -e 's/:/ /g')
+        fi
+        for i in $RESOLVDNS; do echo "nameserver $i"; done >> /etc/resolv.conf
+    fi
+
+    # make sure we have an /etc/hosts file (originally required for telnetd,
+    # which is no longer included)
+    if [ ! -z "$HOSTNAME" -a ! -z "$IPADDR" ]; then
+        echo -e "$IPADDR\t$HOSTNAME $(echo $HOSTNAME | cut -d '.' -f 1)" >> /etc/hosts
+    fi
+
+fi # testing
+
+# syntax check to give user early feedback on parameters provided in parm file
+# (he probably won't notice the logs written by anaconda later on)
+syntax_check_fcp
+# currently we ignore failed syntax checks since FCP parms are non-interactive
+for i in ${!FCP_*}; do
+    echo "${!i}" >> /etc/zfcp.conf
+done
+# cio_ignore handling for FCP should happen when the content of /etc/zfcp.conf
+# will actually be processed which is in anaconda's zfcp.py ZFCP::readConfig()
+
+# TODO/FIXME: also need to pass IPv6 decision to loader/anaconda
+#    [ "$ipv6" ] && echo "IPV6=yes"
+
+# transfer options into install environment
+# loader now uses ifcfg instead of install.cfg to receive our network config
+
+# additionally, loader's readNetInfo needs to know our DEVICE name
+echo $DEVICE > /tmp/s390net
+
+if [ "$ipv6" ]; then
+    DNS1=$(echo $DNS | cut -d ',' -f 1)
+    DNS2=$(echo $DNS | cut -d ',' -f 2)
+else
+    DNS1=$(echo $DNS | cut -d ':' -f 1)
+    DNS2=$(echo $DNS | cut -d ':' -f 2)
+fi
+
+NETSCRIPTS="/etc/sysconfig/network-scripts"
+IFCFGFILE="$NETSCRIPTS/ifcfg-$DEVICE"
+if [ ! -d "$NETSCRIPTS" ]; then
+    mkdir -p $NETSCRIPTS
+fi
+
+# to please NetworkManager on startup in loader before loader reconfigures net
+cat > /etc/sysconfig/network << EOF
+HOSTNAME=$HOSTNAME
+EOF
+if [ "$ipv6" ]; then
+    echo "NETWORKING_IPV6=yes" >> /etc/sysconfig/network
+else
+    echo "NETWORKING=yes" >> /etc/sysconfig/network
+fi
+
+cat > $IFCFGFILE << EOF
+DEVICE=$DEVICE
+ONBOOT=yes
+BOOTPROTO=static
+MTU=$MTU
+SUBCHANNELS=$SUBCHANNELS
+EOF
+if [ "$ipv6" ]; then
+    cat >> $IFCFGFILE << EOF
+IPV6INIT=yes
+IPV6_AUTOCONF=no
+IPV6ADDR=$IPADDR/$NETMASK
+IPV6_DEFAULTGW=$GATEWAY
+EOF
+else
+    cat >> $IFCFGFILE << EOF
+IPADDR=$IPADDR
+NETMASK=$NETMASK
+BROADCAST=$BROADCAST
+GATEWAY=$GATEWAY
+EOF
+fi
+# real DNS config for NetworkManager to generate /etc/resolv.conf
+[ "$DNS1" != "" ] && echo "DNS1=$DNS1" >> $IFCFGFILE
+[ "$DNS2" != "" ] && echo "DNS2=$DNS2" >> $IFCFGFILE
+# just to please loader's readNetInfo && writeEnabledNetInfo
+# which eats DNS1,DNS2,... and generates it themselves based on DNS
+if [ "$ipv6" ]; then
+    [ "$DNS" != "" ] && echo "DNS=\"$DNS\"" >> $IFCFGFILE
+else
+    [ "$DNS" != "" ] && echo "DNS=\"$(echo $DNS|sed -e 's/:/,/g')\"" >> $IFCFGFILE
+fi
+# colons in SEARCHDNS already replaced with spaces above for /etc/resolv.conf
+[ "$SEARCHDNS" != "" ] && echo "DOMAIN=\"$SEARCHDNS\"" >> $IFCFGFILE
+[ "$NETTYPE" != "" ] && echo "NETTYPE=$NETTYPE" >> $IFCFGFILE
+[ "$PEERID" != "" ] && echo "PEERID=$PEERID" >> $IFCFGFILE
+[ "$PORTNAME" != "" ] && echo "PORTNAME=$PORTNAME" >> $IFCFGFILE
+[ "$CTCPROT" != "" ] && echo "CTCPROT=$CTCPROT" >> $IFCFGFILE
+[ "$MACADDR" != "" ] && echo "MACADDR=$MACADDR" >> $IFCFGFILE
+optstr=""
+for option in LAYER2 PORTNO; do
+    [ -z "${!option}" ] && continue
+    [ -n "$optstr" ] && optstr=${optstr}" "
+    optstr=${optstr}$(echo ${option} | tr [[:upper:]] [[:lower:]])"="${!option}
+done
+# write single quotes since network.py removes double quotes but we need quotes
+echo "OPTIONS='$optstr'" >> $IFCFGFILE
+unset option
+unset optstr
+
+if [ -z "$testing" ]; then
+
+    # so that the vars get propagated into the sshd shells
+    mkdir /.ssh
+    cat >> /.ssh/environment <<EOF
+LD_LIBRARY_PATH=$LD_LIBRARY_PATH
+PATH=$PATH
+HOME=$HOME
+PYTHONPATH=$PYTHONPATH
+EOF
+
+    cat >> /etc/profile <<EOF
+LD_LIBRARY_PATH=$LD_LIBRARY_PATH
+PATH=$PATH
+HOME=$HOME
+PYTHONPATH=$PYTHONPATH
+export LD_LIBRARY_PATH PATH HOME PYTHONPATH
+EOF
+
+    if [ -n "$DISPLAY" ]; then
+        echo "export DISPLAY=$DISPLAY" >> /etc/profile
+    fi
+
+    # I'm tired of typing this out...
+    echo "loader" >> /.bash_history
+
+    echo -n $$ > /var/run/init.pid
+
+    # shutdown (halt) on SIGUSR1
+    trap doshutdown SIGUSR1
+    # reboot on SIGUSR2
+    trap doreboot SIGUSR2
+
+    startinetd
+
+    if [ -n "$RUNKS" ]; then
+        /sbin/loader
+    fi
+
+    doshutdown
+
+fi # testing
+
+# ;;; Local Variables: ***
+# ;;; mode: sh ***
+# ;;; end: ***
diff --git a/loader/linuxrc.s390 b/loader/linuxrc.s390
deleted file mode 100644
index 3280498..0000000
--- a/loader/linuxrc.s390
+++ /dev/null
@@ -1,3079 +0,0 @@
-#! /bin/bash
-
-# linuxrc.s390: init process of Red Hat's installer initrd for s390(x)
-# Copyright (C) 2000-2004 by
-#        Bernhard Rosenkraenzer <bero redhat com>
-#        Oliver Paukstadt <opaukstadt millenux com>
-#        Karsten Hopp <karsten redhat de>
-#        Florian La Roche <laroche redhat com>
-#        Nils Philippsen <nils redhat de>
-#        Helge Deller <hdeller redhat de>
-#        David Sainty <dsainty redhat com>
-# Copyright (C) IBM Corp. 2008,2009
-#        Author: Steffen Maier <maier de ibm com>
-#
-#    This program is free software; you can redistribute it and/or modify
-#    it under the terms of the GNU General Public License as published by
-#    the Free Software Foundation; either version 2 of the License, or
-#    (at your option) any later version.
-#
-#    This program is distributed in the hope that it will be useful,
-#    but WITHOUT ANY WARRANTY; without even the implied warranty of
-#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-#    GNU General Public License for more details.
-#
-#    You should have received a copy of the GNU General Public License
-#    along with this program; if not, write to the Free Software
-#    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-#
-
-# prerequisites of this script to run inside the installer initrd:
-# - udevadm and udevd need to be there
-# - have /etc/udev/udev.conf with at least one comment line as content
-# - if necessary, have udev rules
-# - lsznet.raw and znetcontrolunits from s390utils-base in /lib/s390-tools
-# - pack kernel modules and module-init-tools (no longer use busybox for that)
-# - "multi on" in /etc/host.conf [RH bugs 486457,486461,483244]
-
-# TODOs:
-# - make sure driver modules get loaded automatically
-# - udev rule for lcs/ctcm vs. cu3088
-
-# debug: set -x
-
-if [ "${0##*/}" = "reboot" ]; then
-    kill -USR2 1
-    exit
-elif [ "${0##*/}" = "halt" ]; then
-    kill -USR1 1
-    exit
-fi
-
-VERSION=1.2
-
-export TEXTDOMAIN=s390installer
-export TEXTDOMAINDIR=/usr/lib/locale
-
-# helper function to execute command in arguments and print command on stdout
-function debug() {
-    # uncomment the following echo "$*" to enable debug output
-    #echo "$*"
-    $*
-}
-
-# FIXME: maybe change to "$$" for production use, in case it wouldn't be init
-declare -r INITPID="1"
-
-unset testing
-[ "$$" != "$INITPID" ] && testing="1"
-# uncomment the following test="1" to never execute sensitive commands
-#testing="1"
-
-if [ "$RUNKS" = "0" ]; then
-    RUNKS=""
-fi
-
-# ping command to use to test host availability (for gateway & dns servers)
-PINGOPTS="-c 3 -w 30"
-PING="ping $PINGOPTS"
-PING6="ping6 $PINGOPTS"
-
-# helper function to disable commands while running outside the initrd
-function tv() {
-    if [ -z "$testing" ]; then
-        $*
-    else
-        return 0
-    fi
-}
-
-function checkipv6()
-{
-    local ip=$1
-    [ -z "$ip" ] && return 1
-    /bin/ipcalc -c -6 "$ip" >/dev/null 2>&1
-    return $?
-}
-
-function checkipv4()
-{
-    local ip=$1
-    [ -z "$ip" ] && return 1
-    /bin/ipcalc -c -4 "$ip" >/dev/null 2>&1
-    return $?
-}
-
-function doshutdown()
-{
-    echo $"about to exec shutdown"
-    /sbin/umount -a -d -n >/dev/null 2>&1
-    exec /sbin/shutdown
-    exit 0
-}
-
-function doreboot()
-{
-    if [ -e "/sys/firmware/reipl" ]; then
-        read REIPL_TYPE < /sys/firmware/reipl/reipl_type
-        echo "reipl_type=$REIPL_TYPE"
-        pushd /sys/firmware/reipl/$REIPL_TYPE >/dev/null 2>&1
-        for i in *; do
-            echo "$i=`cat $i`"
-        done
-        popd >/dev/null 2>&1
-    fi
-
-    echo $"about to exec shutdown -r"
-    /sbin/umount -a -d -n >/dev/null 2>&1
-    exec /sbin/shutdown -r
-    exit 0
-}
-
-function sysecho () {
-    file=$1
-    shift
-    local i=1
-    while [ $i -le 10 ] ; do
-        if [ ! -f "$file" ]; then
-            sleep 1
-            i=$((i+1))
-        else
-            break
-        fi
-    done
-    [ -f "$file" ] && echo $* > $file
-}
-
-function dasd_settle() {
-    local dasd_status=/sys/bus/ccw/devices/$1/status
-    if [ ! -f $dasd_status ]; then
-        return 1
-    fi
-    local i=1
-    while [ $i -le 30 ] ; do
-        local status
-        read status < $dasd_status
-        case $status in
-            online|unformatted)
-                return 0 ;;
-            *)
-                sleep 0.1
-                i=$((i+1)) ;;
-        esac
-    done
-    return 1
-}
-
-function dasd_settle_all() {
-    for dasdccw in $(cut -d '(' -f 1 /proc/dasd/devices) ; do
-        if ! dasd_settle $dasdccw ; then
-            echo $"Could not access DASD $dasdccw in time"
-            return 1
-        fi
-    done
-    return 0
-}
-
-function startinetd()
-{
-    echo
-    echo $"Starting sshd to allow login over the network."
-    if [ -z "$testing" ]; then
-        echo $"Welcome to the anaconda install environment $VERSION for $S390ARCH" > /etc/issue.net
-        echo $"Welcome to the anaconda install environment $VERSION for $S390ARCH" > /etc/motd
-        echo >> /etc/motd
-    fi # testing
-
-    /usr/sbin/sshd -f /etc/ssh/sshd_config.anaconda
-    if [ -z "$RUNKS" ]; then
-        echo
-        echo $"Connect now to $IPADDR and log in as user 'install' to start the installation."
-        echo $"E.g. using: ssh -x install $IPADDR"
-        echo $"For VNC or text mode, disable X11 forwarding (recommended) with 'ssh -x'."
-        echo $"For X11, enable X11 forwarding with 'ssh -X'."
-        echo
-        echo $"You may log in as the root user to start an interactive shell."
-        read
-        while : ; do
-            /bin/sh --login
-            [ $? = 0 ] || break
-        done
-    fi
-}
-
-# prints a canonocalized device bus ID for a given devno of any format
-function canonicalize_devno()
-{
-    case ${#1} in
-        3) echo "0.0.0${1}" ;;
-        4) echo "0.0.${1}" ;;
-        *) echo "${1}" ;;
-    esac
-    return 0
-}
-
-# read file from CMS and write it to /tmp
-function readcmsfile() # $1=dasdport $2=filename
-{
-    local dev
-    if [ $# -ne 2 ]; then return; fi
-    # precondition: udevd created dasda block device node
-    if ! dasd_cio_free -d $1 ; then
-        echo $"DASD $1 could not be cleared from device blacklist"
-        return 1
-    fi
-    # precondition: dasd_eckd_mod driver incl. dependencies loaded,
-    #               dasd_mod must be loaded without setting any DASD online
-    dev=$(canonicalize_devno $1)
-    if ! sysecho /sys/bus/ccw/devices/$dev/online 1; then
-        echo $"DASD $dev could not be set online"
-        return 1
-    fi
-    udevadm settle
-    if ! dasd_settle $dev ; then
-        echo $"Could not access DASD $dev in time"
-        return 1
-    fi
-    udevadm settle
-    if ! cmsfscat -d /dev/dasda -a $2 > /tmp/$2; then
-        echo $"Could not read conf file $2 on CMS DASD $1."
-    fi
-    if ! sysecho /sys/bus/ccw/devices/$dev/online 0; then
-        echo $"DASD $dev could not be set offline again"
-        return 1
-    fi
-    udevadm settle
-    # consequences of no more module unload: loader can no longer
-    # use DASD module option to online DASDs and set other DASD parameters!
-}
-
-# adaption of the same function in init.c (udevd gets started later)
-function createDevices()
-{
-    awk '{ printf("mknod /dev/%s %s %s %s\n", $1, $2, $3, $4);
-      printf("chmod %s /dev/%s\n", $5, $1);
-      printf("chown %s /dev/%s\n", $6, $1);
-    }' <<EOF | sh
-console c 5 1 600 root:root
-null c 1 3 666 root:root
-zero c 1 5 666 root:root
-mem c 1 1 600 root:root
-ptmx c 5 2 666 root:root
-tty  c 5 0 666 root:root
-tty0 c 4 0 600 root:tty
-tty1 c 4 1 600 root:tty
-random c 1 8 644 root:root
-urandom c 1 9 644 root:root
-rtc c 10 135 644 root:root
-EOF
-    # tty handling is different from init.c since s390 does not have all
-    for i in 2 3 4 5 6 7 8 9 ; do
-        ln -s console /dev/tty$i
-    done
-    mkdir /dev/pts
-    ln -s /proc/self/fd /dev/fd
-}
-
-# approximately the main() function of init.c
-function init_main() {
-    S390ARCH=$(uname -m)
-    if [ "$S390ARCH" = "s390" ]; then
-        export S390ARCH="S/390"
-    else
-        export S390ARCH="zSeries"
-    fi
-
-    echo
-    echo $"Starting the $S390ARCH initrd to configure networking. Version is $VERSION"
-
-    # set up env vars as we do in init.c
-    if [ $(uname -m) = "s390x" ]; then
-        LD_LIBRARY_PATH=/lib64:/usr/lib64:/usr/X11R6/lib64:/usr/kerberos/lib64:/lib:/usr/lib:/usr/X11R6/lib:/usr/kerberos/lib
-    else
-        LD_LIBRARY_PATH=/lib:/usr/lib:/usr/X11R6/lib:/usr/kerberos/lib
-    fi
-    export LD_LIBRARY_PATH
-
-    PATH="$PATH:/usr/bin:/bin:/sbin:/usr/sbin:/mnt/sysimage/bin:/mnt/sysimage/usr/bin:/mnt/sysimage/usr/sbin:/mnt/sysimage/sbin:/mnt/sysimage/usr/X11R6/bin"
-    export PATH
-    HOME=/
-    export HOME
-    PYTHONPATH=/tmp/updates
-    export PYTHONPATH
-
-    if [ -z "$testing" ]; then
-
-        mount -t proc none /proc
-
-        mount -t tmpfs none /dev
-        createDevices
-        # udevd req'd by udevadm settle (/dev/.udev/queue)
-        # in readcmsfile, dialog_network_table, semantic_check_subchannels.
-        # (important: start udevd at the right time, e.g. after setup of /dev)
-        echo $"Starting udev..."
-        udevd --daemon
-        # debug: udevadm control --log-priority=debug
-
-        udevadm control --env=ANACONDA=1
-
-        mount -t devpts /dev/pts /dev/pts
-        mount -t sysfs none /sys
-
-        # remount root fs rw
-        mount /dev/root /  -o remount,rw
-
-        # limit output on 3270 console
-        # (console_loglevel of 4 is just right to not get driver info,
-        #  e.g. from qeth, since that would mix up with the user dialog)
-        echo "4 4 1 7" > /proc/sys/kernel/printk
-
-        # make /tmp/ramfs
-        mount -t ramfs none /tmp
-
-        # start rsyslogd after mount of /tmp ramfs since it logs to /tmp/syslog
-        echo $"Starting rsyslogd..."
-        rsyslogd -c 4
-
-        ifconfig lo 127.0.0.1 netmask 255.0.0.0
-        route add -host 127.0.0.1 dev lo
-
-        echo -e "127.0.0.1\tlocalhost.localdomain localhost localhost4 localhost4.localdomain4" > /etc/hosts
-        echo -e     "::1\t\tlocalhost.localdomain localhost localhost6 localhost6.localdomain6" >> /etc/hosts
-
-        /bin/dbus-uuidgen --ensure &
-        [ $? != 0 ] && echo "error on calling /bin/dbus-uuidgen --ensure"
-        /bin/dbus-daemon --system &
-        [ $? != 0 ] && echo "error on calling /bin/dbus-daemon --system"
-
-    fi # testing
-}
-
-# trigger udev to automatically load device drivers
-function udev_setup() {
-    if [ -z "$testing" ]; then
-       # debug: udevadm monitor &
-       udevadm trigger
-       udevadm settle
-    fi # testing
-}
-
-# from here on accesses to sysfs try to follow
-# linux/Documentation/sysfs-rules.txt
-
-### lsznet.raw integration
-
-declare -a nettable
-
-function read_lsznet_output() {
-    count=0
-    local line
-    while read line; do
-        nettable[$count]="$line"
-        count=$((count + 1))
-    # using the more sophisticated process substitution instead of temp file
-    # requires the symlink /dev/fd -> /proc/self/fd => createDevices
-    done < <(/lib/s390-tools/lsznet.raw)
-}
-
-function print_nettable() {
-    local fmtstring="%3s %-14s %-7s %-5s %-4s %-6s %-7s %s\n"
-    printf "$fmtstring" \
-        "NUM" "CARD" "CU" "CHPID" "TYPE" "DRIVER" "IF" "DEVICES"
-    local i
-    for ((i=0; i < count; i++)); do
-        local item cutype chp chpidtype devdrv devname chlist cardtype
-        read item cutype chp chpidtype devdrv devname chlist cardtype <<< ${nettable[$i]}
-        printf "$fmtstring" \
-            $item "$cardtype" $cutype $chp "$chpidtype" $devdrv $devname $chlist
-    done
-}
-
-function clear_screen() {
-    # FIXME: find a way to clear screen despite 3215 line mode terminal
-    echo
-}
-
-function dialog_network_table() {
-    while : ; do
-        echo $"Scanning for available network devices..."
-        # This may take a long time so we show "progress":
-        #( while true; do echo -n "."; sleep 1; done ) &
-        #local childpid=$!
-        read_lsznet_output
-        #kill $childpid
-        #echo
-        echo $"Autodetection found ${count} devices."
-        # count==0: there might still be a blacklist the user wants to clear.
-        # do not flood user with long list if there are many devices
-        if [ "$count" -le 15 ]; then
-            # Show list
-            answer=s
-        else # [ $count -gt 15 ]
-            echo
-            while : ; do
-                echo $"s) show all, m) manual config:"
-                local answer
-                read answer
-                case $answer in
-                    s|m) break ;;
-                esac
-            done
-        fi
-        [ "$answer" = "m" ] && break
-        # show network table to select network hardware configuration from
-        if [ "$count" -gt 0 ]; then
-            clear_screen
-            print_nettable
-            echo
-        fi
-        # account for possibly ignored common I/O devices
-        # cio_wc_bytes is NOT local so it can be re-used outside this function
-        cio_wc_bytes=0
-        local cio_wc_filename cio_wc_foo
-        if [ -f /proc/cio_ignore ]; then
-            local cio_wc=$(wc -c /proc/cio_ignore)
-            read cio_wc_bytes cio_wc_filename cio_wc_foo <<< "$cio_wc"
-            if [ "$cio_wc_bytes" != "0" ]; then
-                echo $"Note: There is a device blacklist active! (Clearing might take long)"
-                #cat /proc/cio_ignore | tr '\n' ','
-                #echo
-            else
-                if [ "$count" -eq 0 ]; then
-                    # count==0 AND no device blacklist => manual mode
-                    echo $"Entering manual configuration mode."
-                    break
-                fi
-            fi
-        fi
-        # selection dialog
-        while : ; do
-            [ "$count" -gt 0 ] && echo -n $"<num>) use config, "
-            [ "$cio_wc_bytes" != "0" ] && echo -n $"c) clear blacklist, "
-            echo $"m) manual config, r) rescan, s) shell:"
-            local choice
-            read choice
-            [ -z "$choice" ] && continue
-            if [ "$choice" = "s" ]; then
-                echo $"Enter 'exit' at the shell prompt to get back to the installation dialog."
-                /bin/bash
-                continue 2
-            fi
-            [ "$choice" = "m" ] && break
-            [ "$choice" = "r" ] && continue 2
-            [ "$cio_wc_bytes" != "0" -a "$choice" = "c" ] && break
-            [[ "$choice" =~ ^[[:digit:]]+$ ]]
-            case $? in
-                0)
-                    # string matched the pattern
-                    [ "$choice" -ge 1 -a "$choice" -le "$count"  ] && break
-                    ;;
-                1)
-                    # string did not match the pattern
-                    continue
-                    ;;
-                2)
-                    echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-                    ;;
-                *)
-                    echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-                    ;;
-            esac
-        done
-        if [ "$choice" = "c" ]; then
-            echo $"Clearing device blacklist..."
-            cio_ignore -R || echo $"Device blacklist could not be cleared"
-        fi
-        [ "$choice" = "m" ] && break
-        # finally extract config info from selected item
-        # array nettable starts at index zero, user input starts at index one
-        choice=$((choice - 1))
-        local item cutype chp chpidtype devdrv devname chlist cardtype
-        read item cutype chp chpidtype devdrv devname chlist cardtype <<< ${nettable[$choice]}
-        # $NETTYPE happens to be exactly the network driver name
-        if [ "$devdrv" = "ctcm" ]; then
-            NETTYPE="ctc"
-        else
-            NETTYPE=$devdrv
-        fi
-        SUBCHANNELS=$chlist
-        break
-    done
-    echo
-}
-
-declare -r PREFIXFORMAT=[[:xdigit:]]*
-declare -r SSIDFORMAT=[0-3]
-declare -r BUSIDFORMAT=[[:xdigit:]][[:xdigit:]][[:xdigit:]][[:xdigit:]]
-declare -r IDFORMAT=$PREFIXFORMAT.$SSIDFORMAT.$BUSIDFORMAT
-declare -r SUBCHANNEL_TYPE_IO=0
-
-. /lib/s390-tools/znetcontrolunits
-
-function cardtype2cleartext() {
-    local cardtype=$1
-    case $cardtype in
-        OSD_10GIG)        echo "OSA card in OSD mode, 10 Gigabit Ethernet" ;;
-        OSD_1000)         echo "OSA card in OSD mode, Gigabit Ethernet" ;;
-        OSD_100)          echo "OSA card in OSD mode, Fast Ethernet" ;;
-        OSD_GbE_LANE)     echo "OSA card in OSD mode, Gigabit Ethernet, LAN Emulation" ;;
-        OSD_FE_LANE)      echo "OSA card in OSD mode, Fast Ethernet, LAN Emulation" ;;
-        OSD_TR_LANE)      echo "OSA card in OSD mode, Token Ring, LAN Emulation" ;;
-        OSD_ATM_LANE)     echo "OSA card in OSD mode, ATM, LAN Emulation" ;;
-        OSD_Express)      echo "OSA card in OSD mode, unknown link type" ;;
-        HSTR)             echo "OSA card in OSD mode, High Speed Token Ring" ;;
-        OSN)              echo "OSA for NCP, ESCON/CDLC bridge" ;;
-        HiperSockets)     echo "HiperSockets with CHPID type IQD" ;;
-        "GuestLAN QDIO")  echo "GuestLAN based on OSA (QDIO)" ;;
-        "GuestLAN Hiper") echo "GuestLAN based on HiperSockets" ;;
-        unknown)          echo "other" ;;
-        *) echo "unknown"
-            echo "l.$LINENO: found unknown card_type, code needs to be fixed" 1>&2
-            ;;
-    esac
-}
-
-# returns true iff running under z/VM
-function isVM() {
-    local cpu_version=$(cat /proc/cpuinfo |grep "^processor " | head -n1 | sed 's/.*version = \([[:xdigit:]][[:xdigit:]]\).*/\1/' | tr '[:lower:]' '[:upper:]')
-    if [ "$cpu_version" = "FF" ]; then
-        return 0
-    else
-        return 1
-    fi
-}
-
-# watch out: potential error message as side effect
-function isLayer2Default() {
-    # Read default from sysfs because according to device
-    # drivers book there are differences in the default between
-    # OSA (l2), hipersockets (l3).
-    # This only works here in installer where nobody has overwritten
-    # the default setting with another custom value already!
-    if [ ! -f /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/layer2 ]; then
-        echo $"Could not read layer mode from sysfs"
-        return 1
-    fi
-    local layer2
-    read layer2 < /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/layer2
-    if [ "$layer2" = "1" ]; then
-        return 0
-    else
-        return 1
-    fi
-}
-
-# returns true iff either LAYER2 has been set to 1 or is the default
-# watch out: potential error message as side effect
-function isLayer2() {
-    case "x$LAYER2" in
-        x0) return 1 ;; # layer 3
-        x1) return 0 ;; # layer 2
-        x)  # LAYER2 is unset or empty => qeth driver default applies.
-            isLayer2Default
-            return $?
-            ;;
-        *) echo "l.$LINENO: unknown value \"$LAYER2\" for LAYER2, code needs to be fixed" 1>&2
-            return 2 ;;
-    esac
-}
-
-# returns true iff qeth device $SCH_R_DEVBUSID
-# is capable of supporting IPv6
-# watch out: potential error message as side effect
-function ipv6_capable() {
-    [ "$NETTYPE" = "qeth" ] || return 1
-    case $cardtype in
-        OSD_10GIG|OSD_1000|OSD_100|OSD_Express|HiperSockets|"GuestLAN QDIO")
-            return 0 ;;
-        OSD_GbE_LANE|OSD_FE_LANE|OSD_TR_LANE|OSD_ATM_LANE) return 1 ;;
-        HSTR|OSN|unknown) return 1 ;;
-        "GuestLAN Hiper") return 1 ;;
-        *) echo $"Unknown card_type to determine IPv6 support"
-            return 1 ;;
-    esac
-}
-
-# sets device online _and_ retrieves DEVICE at the same time
-function set_device_online() {
-    echo $"Activating network device..."
-    local sysnettype
-    case "${NETTYPE}" in
-        qeth|lcs) sysnettype=${NETTYPE} ;;
-        ctc) sysnettype=ctcm ;;
-    esac
-    if ! [ -f /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online ]; then
-        echo $"Sysfs path to set device online does not exist."
-        return 1
-    fi
-    if ! sysecho /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online "1"; then
-        echo $"Could not set device ($SUBCHANNELS) online"
-        return 1
-    fi
-    udevadm settle
-    local i=1
-    while : ; do
-        local online
-        read online < /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online
-        [ "$online" == "1" ] && break
-        sleep 1
-        i=$((i+1))
-        if [ "$i" -gt 10 ]; then
-            echo $"Could not set device ($SUBCHANNELS) online within timeout"
-            return 1
-        fi
-    done
-    if [ "$NETTYPE" = "lcs" -o "$NETTYPE" = "ctc" ]; then
-        if [ ! -d /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/net ]; then
-            echo $"Device $SUBCHANNELS does not have required sysfs directory 'net'"
-            return 1
-        fi
-        DEVICE=$(ls /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/net/)
-        if [ "$DEVICE" = "" ]; then
-            echo $"Could not get device name for $SUBCHANNELS"
-            return 1
-        fi
-    else # qeth
-        if [ ! -f /sys/devices/qeth/$SCH_R_DEVBUSID/if_name ]; then
-            echo $"Device $SUBCHANNELS does not have required sysfs attribute 'if_name'"
-            return 1
-        fi
-        # (device needs to be online to read if_name from sysfs attribute!)
-        read DEVICE < /sys/devices/qeth/$SCH_R_DEVBUSID/if_name
-        if [ "$DEVICE" = "" ]; then
-            echo $"Could not get device name for $SUBCHANNELS"
-            return 1
-        fi
-        if [ -f /sys/devices/qeth/$SCH_R_DEVBUSID/card_type ]; then
-            read cardtype < /sys/devices/qeth/$SCH_R_DEVBUSID/card_type
-            #debug echo "$cardtype"
-            # device is now online and link type will be known
-            echo -n $"Detected: "
-            cardtype2cleartext "$cardtype"
-        else
-            echo $"Could not read qeth network card type from sysfs."
-        fi
-    fi
-}
-
-# sets device up and blocks until device appears to be up
-function set_device_up() {
-    if [ -z "$DEVICE" ]; then
-        echo $"Could not determine interface name to bring up device $SUBCHANNELS"
-        return 1
-    fi
-    # Device does not come up fast enough to use "ip" to configure, so block.
-    # While OSA come up themselves after setting online,
-    # e.g. HiperSockets won't => set them up explicitly for the following check
-    debug ip link set up $DEVICE
-    local i=1
-    while : ; do
-        local tst=$(ip -o link show up dev $DEVICE)
-        [ -n "$tst" ] && break
-        sleep 1
-        i=$((i+1))
-        if [ "$i" -gt 10 ]; then
-            echo $"Could not bring up device $DEVICE within timeout"
-            return 1
-        fi
-    done
-    return 0
-}
-
-function syntax_check_domainname() {
-    # - match against regex adopted from RFC1035,sec.2.3.1 or RFC1034,sec.3.5
-    #   (Internationalized Domain Names in Applications (IDNA) [RFC4690]
-    #    have to be entered after encoding by punycode [RFC3492])
-    [[ "$1" =~ ^[[:alpha:]]([[:alnum:]-]{0,61}[[:alnum:]])?(\.[[:alpha:]]([[:alnum:]-]{0,61}[[:alnum:]])?)*$ ]]
-    case $? in
-        0)
-            # string matched the pattern
-            return 0
-            ;;
-        1)
-            # string did not match the pattern
-            echo "$2"
-            ;;
-        2)
-            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-            ;;
-        *)
-            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-            ;;
-    esac
-    return 1
-}
-
-function disable_ipv6_autoconf() {
-    sysctl -w net.ipv6.conf.all.accept_ra=0 > /dev/null
-    sysctl -w net.ipv6.conf.all.accept_redirects=0 > /dev/null
-    sysctl -w net.ipv6.conf.all.autoconf=0 > /dev/null
-    sysctl -w net.ipv6.conf.default.accept_ra=0 > /dev/null
-    sysctl -w net.ipv6.conf.default.accept_redirects=0 > /dev/null
-    sysctl -w net.ipv6.conf.default.autoconf=0 > /dev/null
-}
-
-function configure_ipv6_address() {
-    # device needs to be online
-    # arp flag needs to be on for ipv6 over osa because of ndisc.
-    # happens automatically by the driver. do NOT mess with default setting.
-    #NO#debug ip link set dev $DEVICE arp on
-    if ! debug ip -6 address add $IPADDR/$NETMASK dev $DEVICE; then
-        echo $"Could net set IPv6 address $IPADDR/$NETMASK for device $DEVICE"
-        return 1
-    fi
-    # network route has been set by above "ip address add" already
-    # take care of MTU, which is bundled with ifconfig in the other IPv4 cases
-    if [ -n "$MMTU" ]; then
-        if ! debug ip link set $DEVICE $MMTU; then
-            echo $"Could net set maximum transfer unit ($MMTU) for device $DEVICE"
-            return 1
-        fi
-    fi
-    return 0
-}
-
-function configure_ipv4_address() {
-    # it's IPv4 and we can make use of ipcalc for better usability
-    if ipcalc -bmnp $ipcalc_arg > /tmp/ipcalc.$$.out 2> /dev/null; then
-        . /tmp/ipcalc.$$.out
-    else
-        echo $"Could not calculate network address and broadcast address from"
-        echo $" IPv4 address $IPADDR and netmask $NETMASK"
-        return 1
-    fi
-    rm /tmp/ipcalc.$$.out
-    # device needs to be online
-    if ! debug ifconfig $DEVICE $IPADDR $MMTU netmask $NETMASK broadcast $BROADCAST; then
-        echo $"Could not set IPv4 address $IPADDR for device $DEVICE"
-        echo $" with network mask $NETMASK and broadcast address $BROADCAST"
-        [ -n "$MMTU" ] && echo $" and maximum transfer unit: $MMTU"
-        return 1
-    fi
-    # This network route is already there after ifconfig!
-    #if ! debug route add -net $NETWORK netmask $NETMASK dev $DEVICE; then
-    #    echo $"Could not add network route to $NETWORK/$NETMASK on device $DEVICE"
-    #    return 1
-    #fi
-    return 0
-}
-
-function handle_mtu() {
-    # don't ask for MTU, but use it if it has been set in the .parm file
-    # don't overwrite MMTU if it has been set for CTC
-    [ -n "$MTU" -a -z "$MMTU" ] && MMTU="mtu $MTU"
-}
-
-function rollback_config() {
-    # each transaction to roll back may fail, if previous setup has not
-    # made progress that far to reach a certain transation
-    # => error output is misleading and should be avoided
-    [ -n "$DEVICE" ] && tv ip -4 route flush default dev $DEVICE
-    [ -n "$DEVICE" ] && tv ip -6 route flush default dev $DEVICE
-    # address flush seems to be effective for all address families
-    [ -n "$DEVICE" ] && ip address flush dev $DEVICE
-    if [ -n "$NETTYPE" ]; then
-        if [ -n "$SCH_R_DEVBUSID" ]; then
-            local sysnettype
-            case "${NETTYPE}" in
-                qeth|lcs) sysnettype=${NETTYPE} ;;
-                ctcm) sysnettype=ctcm ;;
-            esac
-            [ -f /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online ] && \
-                sysecho /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/online "0"
-            udevadm settle
-            [ -f /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/ungroup ] && \
-                sysecho /sys/devices/${sysnettype}/$SCH_R_DEVBUSID/ungroup "1"
-            udevadm settle
-        fi
-    fi
-    [ -z "$mtu_was_set" ] && unset MTU
-    [ -z "$mmtu_was_set" ] && unset MMTU
-    [ -z "$vswitch_was_set" ] && unset VSWITCH
-    # prevent possible reuse of an old DEVICE on restarting dialog
-    unset DEVICE
-    # set activated DASDs offline again
-    local dasd
-    while read dasd < /proc/dasd/devices; do
-        dasd=${dasd%%(*}
-        sysecho /sys/bus/ccw/devices/$dasd/online 0
-    done
-    udevadm settle
-}
-
-### workflow helper functions
-
-# workflow ideas:
-# - setting/applying single configuration steps right away save us explicit
-#   syntactical & semantic checks PLUS we get direct feedback on error
-# - check error level of forked external programs and react on errors
-
-unset reenter
-unset redoitem
-unset interaction_happened
-
-function reenter() {
-    [ -z "$reenter" ] && return 1
-    # reenter menu should only be shown if NOT redoing item
-    if [ -n "$redoitem" ]; then
-        # unset redoitem # wrong => do NOT do this here
-        return 1
-    fi
-    return 0
-}
-
-function reenter_menu() {
-    local oldvalue=$1
-    interaction_happened="yes"
-    # unsetting input here is not sufficient, since reenter_menu
-    # is not called for predefined parameters
-    # which then might get assigned a previous old input of another parameter!
-    #unset input
-    reenter || return 0
-    # don't present reenter menu for empty parameters
-    # (currently ignoring parameters that are allowed to be empty!)
-    # this could be improved by checking if variable has been set/defined
-    #[ -z "$1" ] && return 0
-    while : ; do
-        if [ -n "$helptext" ]; then
-            echo $"0) default is previous \"$oldvalue\", 1) new value, ?) help"
-        else
-            echo $"0) default is previous \"$oldvalue\", 1) new value"
-        fi
-        # uncoded alternative: 2) skip parameter
-        local answer
-        read answer
-        [ -z "$answer" ] && return 1
-        case $answer in
-            0) return 1 ;;
-            1)  # Deciding to enter new value gets user out of reenter-mode
-                # temporarily for this parameter.
-                # To put it differently: redoing does NOT present old values.
-                redoitem="yes"
-                echo -n $"new value: "
-                return 0
-                ;;
-            "?") input="?"
-                return 1
-                ;;
-        esac
-    done
-}
-
-function workflow_item_menu() {
-    local noredo=$1
-    # default is to continue if running kickstart to prevent interaction
-    [ -n "$RUNKS" ] && return 0
-    interaction_happened="yes"
-    while : ; do
-        unset redoitem
-        if [ "$noredo" = "noredo" ]; then
-            echo $"1) continue, 2) restart dialog, 3) halt, 4) shell"
-        else
-            echo $"0) redo this parameter, 1) continue, 2) restart dialog, 3) halt, 4) shell"
-        fi
-        local answer
-        read answer
-        case $answer in
-            0) [ "$noredo" = "noredo" ] && continue
-                redoitem="yes"
-                continue 2
-                ;;
-            1) return 0 ;; # can be used to break at caller on ignore
-            2) reenter="yes"
-                rollback_config
-                continue 3
-                ;;
-            3) tv doshutdown
-                exit 0
-                ;;
-            4) echo $"Enter 'exit' at the shell prompt to get back to the installation dialog."
-                /bin/bash
-                if [ "$noredo" != "noredo" ] && [ -n "$question_prefix" ]; then
-                    $question_prefix
-                    echo
-                fi
-                ;; # stay in workflow item menu
-        esac
-    done
-}
-
-# input variables: PARMNAME, question_prefix, question_choices,
-#                  "options" ...
-# output variables: $question_prefix, $helptext
-# modifies: the variable named $PARMNAME, $OPTIND
-function ask() {
-    [ $# -lt 3 ] && echo "l.$LINENO: too few arguments (<3), please fix calling code." 1>&2
-    local PARMNAME=$1
-    shift
-    question_prefix=$1
-    shift
-    local question_choices=$1
-    shift
-    local exception
-    local syntax_check
-    unset helptext
-    local handle
-    local finish
-    local optname
-    OPTIND=1
-    while getopts ":e:s:h:c:f:" optname; do
-        case $optname in
-            e) exception=$OPTARG ;;
-            s) syntax_check=$OPTARG ;;
-            h) helptext=$OPTARG ;;
-            c) handle=$OPTARG ;;
-            f) finish=$OPTARG ;;
-            "?") ;; # ignore invalid option
-            :) echo "l.$LINENO: Missing parameter to option -$OPTARG" 1>&2 ;;
-        esac
-    done
-    while : ; do
-        unset input
-        local input
-        # actually ask question if one of the following is true:
-        # - $PARMNAME parameter has not been set yet, e.g. not in parm file
-        # - on 2nd and further attempts, i.e. redoing the parameter
-        # - on having restarted the whole dialog
-        # describing the same from another viewpoint:
-        # - if $PARMNAME has been set, try to check syntax and apply
-        # - on redo, $PARMNAME has been set and reenter is false,
-        #   but still ask question again
-        # - on reenter, $PARMNAME might have been set, but still ask question
-        if [ -z "${!PARMNAME}" -o -n "$redoitem" -o -n "$reenter" ]; then
-            # one empty line to separate parameter questions from each other
-            echo
-            $question_prefix
-            if reenter; then
-                echo
-            else
-                $question_choices
-            fi
-            # on reenter, give choice between old value and entering new one
-            reenter_menu ${!PARMNAME} && read input \
-                && [ "$input" != "?" ] && eval ${PARMNAME}=\$input
-            # escaping the $ in the RHS of the eval statement makes it safe
-        fi
-        if [ -n "$helptext" ] && [ "$input" = "?" ]; then
-            $helptext
-            continue
-        fi
-        # optional: default or exceptional handling
-        [ -n "$exception" ] && $exception
-        if [ -n "$syntax_check" -a -z "$handle" ]; then
-            # some parameters have only syntax check (and deferred config):
-            if $syntax_check; then
-                break
-            else
-                workflow_item_menu && break
-            fi
-        elif [ -n "$syntax_check" -a -n "$handle" ]; then
-            # most common parameters have syntax and configuration:
-            # user might still continue on syntax error
-            $syntax_check || workflow_item_menu
-            # optional: actual configuration
-            if $handle; then
-                # parmname has been configured successfully
-                break
-            else
-                # user might still continue on configuration failure
-                workflow_item_menu && break
-            fi
-        elif [ -n "$finish" ]; then
-            # few parameters need special handling done by their own function:
-            $finish
-        else
-            echo $"Unsupported calling of ask function, please fix calling code"
-        fi
-    done # PARMNAME
-    # disable potential temporary redoing-mode during reenter-mode
-    unset redoitem
-}
-
-### NETTYPE
-
-function syntax_check_nettype() {
-    # - NETTYPE \in {qeth,lcs,ctc}
-    [[ "$NETTYPE" =~ (^qeth$)|(^lcs$)|(^ctc$) ]]
-    case $? in
-        0)
-            # string matched the pattern
-            return 0
-            ;;
-        1)
-            # string did not match the pattern
-            ;;
-        2)
-            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-            ;;
-        *)
-            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-            ;;
-    esac
-    echo $"Incorrect format or value for network type (NETTYPE): $NETTYPE"
-    return 1
-}
-
-function question_prefix_nettype() {
-    echo -n $"Network type"
-}
-
-function question_choices_nettype() {
-    echo $" (qeth, lcs, ctc, ? for help). Default is qeth:"
-}
-
-function helptext_nettype() {
-    echo $" Help text for network type:"
-    echo $"  qeth: OSA-Express Fast Ethernet, Gigabit Ethernet (including 1000Base-T),"
-    echo $"        High Speed Token Ring, Hipersockets, and ATM (running Ethernet LAN emulation)"
-    echo $"        features in QDIO mode."
-    echo $"        [default]"
-    echo $"  lcs:  OSA-2 Ethernet/Token Ring, OSA-Express Fast Ethernet in non-QDIO mode,"
-    echo $"        OSA-Express High Speed Token Ring in non-QDIO mode and Gigabit Ethernet"
-    echo $"        in non-QDIO mode."
-    echo $"  ctc:  Deprecated, useful for migration."
-}
-
-function exception_nettype() {
-    # - default is qeth since it should be common
-    if [ -z "$NETTYPE" ]; then
-        NETTYPE=qeth
-        break
-    fi
-}
-
-function finish_nettype() {
-    if syntax_check_nettype; then
-        break
-    else
-        # necessary parts which would otherwise be done by workflow_item_menu
-        interaction_happened="yes"
-        redoitem="yes"
-    fi
-}
-
-function do_nettype() {
-    ask NETTYPE \
-        question_prefix_nettype question_choices_nettype \
-        -h helptext_nettype -e exception_nettype -f finish_nettype
-}
-
-### CHANDEV
-
-function do_chandev() {
-    echo
-    echo $"The CHANDEV variable isn't used anymore, please update your "
-    echo $".parm or the .conf file to use NETTYPE, SUBCHANNELS, etc. instead."
-    echo
-}
-
-### SUBCHANNELS
-
-function syntax_check_subchannels() {
-    SUBCHANNELS=$(echo $SUBCHANNELS | tr ABCDEF abcdef)
-    # - make subchannel question dependent on NETTYPE (2 vs. 3 subchannels)
-    if [ "$NETTYPE" = "qeth" ]; then
-        # - match against regex, depending on qeth
-        [[ "$SUBCHANNELS" =~ ^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4},[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4},[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$ ]]
-    else
-        # - match against regex, depending on lcs/ctc
-        [[ "$SUBCHANNELS" =~ ^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4},[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$ ]]
-    fi
-    case $? in
-        0)
-            # string matched the pattern
-            return 0
-            ;;
-        1)
-            # string did not match the pattern
-            echo $"Incorrect format for channels (SUBCHANNELS): $SUBCHANNELS"
-            ;;
-        2)
-            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-            ;;
-        *)
-            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-            ;;
-    esac
-    return 1
-}
-
-function semantic_check_subchannels() {
-    local subch_count
-    if [ "$NETTYPE" = "qeth" ]; then
-        subch_count=3
-    else
-        subch_count=2
-    fi
-    # done: make subchannel handling more robust by not relying on REMATCH
-    local -a subch_array
-    IFS=,
-    read -a subch_array <<< "indexzero,$SUBCHANNELS"
-    unset IFS
-    local i
-    local all_subch_good=0
-    for ((i=1; i <= $subch_count; i++)); do
-        local devbusid=${subch_array[$i]}
-        # remember first subchannel for potential undo of ccwgroup
-        # (via /sys/devices/qeth/$SCH_R_DEVBUSID/ungroup)
-        [ "$i" -eq 1 ] && SCH_R_DEVBUSID=$devbusid
-        local prefix ssid devno foo
-        IFS=.
-        read prefix ssid devno foo <<< "$devbusid"
-        unset IFS
-        local dev_p=$(echo /sys/devices/css$prefix/$IDFORMAT/$devbusid)
-        # - check for existence of devnos in sysfs
-        if [ ! -d "$dev_p" -a "$cio_wc_bytes" != "0" ]; then
-            # - try to free from /proc/cio_ignore if they don't exist
-            echo $"Device $devbusid not present, trying to clear from blacklist and resense..."
-            if ! znet_cio_free -d $devbusid; then
-                echo $"Device $devbusid could not be cleared from device blacklist"
-            fi
-        fi
-        # reevaluate since globbing might not have worked before device existed
-        dev_p=$(echo /sys/devices/css$prefix/$IDFORMAT/$devbusid)
-        if [ ! -d "$dev_p" ]; then
-            echo $"Device $devbusid does not exist"
-            all_subch_good=1
-            continue
-        fi
-        # devno does exist now
-        local subch_p=${dev_p%/*}
-        local subch=${subch_p##*/}
-        # filter definitely unusable subchannels ...
-        # - check for subchannel type I/O
-        if [ -f $subch_p/type ]; then
-            local type
-            read type < $subch_p/type
-            if [ "$type" != "$SUBCHANNEL_TYPE_IO" ]; then
-                echo $"Channel $subch (device $devbusid) is not of type I/O"
-                all_subch_good=1
-                continue
-            fi
-        fi
-        # - check for correct CU type/model, depending on qeth/lcs/ctc
-        if [ ! -f $dev_p/cutype ]; then
-            echo $"Device $devbusid does not have required sysfs attribute 'cutype'"
-            all_subch_good=1
-            continue
-        fi
-        local cutype
-        read cutype < $dev_p/cutype
-        if search_cu $cutype; then
-            local driver
-            if [ "$NETTYPE" = "ctc" ]; then
-                driver="ctcm"
-            else
-                driver=$NETTYPE
-            fi
-            if [ "${CU_DEVDRV[$cu_idx]}" != "$driver" ]; then
-                echo $"Device $devbusid has control unit type $cutype,"
-                echo $" which does not match your selected network type $NETTYPE"
-                all_subch_good=1
-                continue
-            fi
-        else
-            echo $"Device $devbusid has control unit type $cutype which is unknown"
-            all_subch_good=1
-            continue
-        fi
-        # read CHPIDs information about subchannels
-        if [ ! -f $subch_p/chpids ]; then
-            echo $"Channel $subch (device $devbusid) does not have required sysfs attribute 'chpids'"
-            all_subch_good=1
-            continue
-        fi
-        local chpid_list
-        read chpid_list < $subch_p/chpids
-        local -a chpids
-        read -a chpids <<< "$chpid_list"
-        if [ ${#chpids[ ]} -ne 8 ]; then
-            echo $"sysfs reported ${#chpids[ ]} CHPIDs instead of expected 8, code needs fix"
-        fi
-        if [ ! -f $subch_p/pimpampom ]; then
-            echo $"Channel $subch (device $devbusid) does not have required sysfs attribute 'pimpampom'"
-            all_subch_good=1
-            continue
-        fi
-        local pim pam pom foo
-        read pim pam pom foo < $subch_p/pimpampom
-        local pimchpidZ=""
-        for ((chp=0; chp < 8; chp++)); do
-            local mask=$((0x80 >> chp))
-            if (( 0x$pim & $mask )); then
-                pimchpidZ=${pimchpidZ}${chpids[chp]}
-            else
-                pimchpidZ=${pimchpidZ}"ZZ"
-            fi
-        done
-        local pimchpids=${pimchpidZ//ZZ/}
-        if [ "x$pimchpids" == "x" ]; then
-            echo $"Channel $subch (device $devbusid) does not have any installed channel path"
-            all_subch_good=1
-            continue
-        fi
-        # compare parts of different subchannels for required matches
-        if [ "$i" -eq 1 ]; then
-            # remember parts of first subchannel for comparison
-            local sch_r_prefix=$prefix
-            local sch_r_ssid=$ssid
-            local sch_r_devno=$devno
-            local sch_r_pimchipidZ=$pimchpidZ
-            local sch_r_cutype=$cutype
-        else
-            local comparison=0
-            # $sch_r_... might be empty if first channel was wrong
-            # => be sure to quote all variable accesses in test statements.
-            # - all subchannels must be of same CU type/model
-            if [ "$cutype" != "$sch_r_cutype" ]; then
-                echo $"Device $devbusid does not have the same control unit type as device $SCH_R_DEVBUSID"
-                comparison=1
-            fi
-            # - all subchannels must have same CHPIDs
-            if [ "$pimchpidZ" != "$sch_r_pimchipidZ" ]; then
-                echo $"Device $devbusid does not have the same CHPIDs as device $SCH_R_DEVBUSID"
-                comparison=1
-            fi
-            # - all subchannels should have same prefix & ssid ?
-            if [ "$prefix" != "$sch_r_prefix" \
-                -o "$ssid" != "$sch_r_ssid" ]; then
-                echo $"Device $devbusid does not have the same prefix and subchannel set ID as device $SCH_R_DEVBUSID"
-                comparison=1
-            fi
-            if [ "$i" -eq 2 ]; then
-                local sch_w_devbusid=$devbusid
-                local sch_w_devno=$devno
-                # TODO: not true for CTCM => relax
-                # - write_devbusid == read_devbusid+1
-                if [ $((0x$devno)) -ne $((0x$sch_r_devno + 1)) ]; then
-                    echo $"Device bus ID of write channel (dev $devbusid) must be one larger than"
-                    echo $" that of read channel (dev $SCH_R_DEVBUSID)"
-                    comparison=1
-                fi
-            elif [ "$i" -eq 3 ]; then
-                # check data subchannel unequal to read/write subchannel
-                # (also seems to be handled by ccwgroup kernel subsystem)
-                if [ "$devbusid" = "$sch_w_devbusid" \
-                    -o "$devbusid" = "$SCH_R_DEVBUSID" ]; then
-                    echo $"Device bus ID of data channel (dev $devbusid) must be different to that of"
-                    echo $" read channel ($SCH_R_DEVBUSID) and write channel ($sch_w_devbusid)"
-                    comparison=1
-                fi
-            fi
-            if [ "$comparison" != 0 ]; then
-                all_subch_good=1
-                continue
-            fi
-        fi
-        # filter potentially good subchannels ...
-        if [ -h $dev_p/group_device ]; then
-            echo $"Device $devbusid is already in a ccwgroup and thus unavailable"
-            all_subch_good=1
-            continue
-        fi
-        if [ ! -f $dev_p/online ]; then
-            echo $"Device $devbusid does not have required sysfs attribute 'online'"
-            all_subch_good=1
-            continue
-        fi
-        local online
-        read online < $dev_p/online
-        if [ "$online" = "1" ]; then
-            echo $"Device $devbusid is already in use and thus unavailable"
-            all_subch_good=1
-            continue
-        fi
-        # - check availability
-        if [ ! -f $dev_p/availability ]; then
-            echo $"Device $devbusid does not have required sysfs attribute 'availability'"
-            all_subch_good=1
-            continue
-        fi
-        local availability
-        read availability < $dev_p/availability
-        if [ "$availability" != "good" ]; then
-            echo $"Device $devbusid is not available but '$availiability'"
-            all_subch_good=1
-            continue
-        fi
-
-    done # for ((i=1; i <= $subch_count; i++))
-    if [ "$all_subch_good" = "0" ]; then
-        return 0
-    fi
-    return 1
-}
-
-function handle_subchannels() {
-    # - try to establish ccwgroup right here and fail out on error
-    local driver
-    if [ "$NETTYPE" = "ctc" ]; then
-        driver="ctcm"
-    else
-        driver=$NETTYPE
-    fi
-    # if necessary,
-    # rebind hybrid devices (3088/08 and 3088/1f) to user specified driver
-    local curdrv
-    curdrv=$(readlink /sys/bus/ccw/devices/$SCH_R_DEVBUSID/driver)
-    curdrv=${curdrv##*/}
-    if [ "$curdrv" = "lcs" -a "$NETTYPE" = "ctc" ]; then
-        sysecho /sys/bus/ccw/drivers/lcs/unbind "$SCH_R_DEVBUSID"
-        sysecho /sys/bus/ccw/drivers/ctcm/bind "$SCH_R_DEVBUSID"
-    fi
-    if [ "$curdrv" = "ctcm" -a "$NETTYPE" = "lcs" ]; then
-        sysecho /sys/bus/ccw/drivers/ctcm/unbind "$SCH_R_DEVBUSID"
-        sysecho /sys/bus/ccw/drivers/lcs/bind "$SCH_R_DEVBUSID"
-    fi
-    local channel2
-    channel2=${SUBCHANNELS##*,}
-    curdrv=$(readlink /sys/bus/ccw/devices/$channel2/driver)
-    curdrv=${curdrv##*/}
-    if [ "$curdrv" = "lcs" -a "$NETTYPE" = "ctc" ]; then
-        sysecho /sys/bus/ccw/drivers/lcs/unbind "$channel2"
-        sysecho /sys/bus/ccw/drivers/ctcm/bind "$channel2"
-    fi
-    if [ "$curdrv" = "ctcm" -a "$NETTYPE" = "lcs" ]; then
-        sysecho /sys/bus/ccw/drivers/ctcm/unbind "$channel2"
-        sysecho /sys/bus/ccw/drivers/lcs/bind "$channel2"
-    fi
-    # create ccwgroup
-    if sysecho /sys/bus/ccwgroup/drivers/${driver}/group "$SUBCHANNELS"; then
-        udevadm settle
-        case "$NETTYPE" in
-            qeth)
-                # Just preliminary card_type info until device goes online!
-                # In fact it seems enough to separate OSA from HiperSockets.
-                if [ -f /sys/devices/qeth/$SCH_R_DEVBUSID/card_type ]; then
-                    read cardtype < /sys/devices/qeth/$SCH_R_DEVBUSID/card_type
-                else
-                    echo $"Could not read qeth network card type from sysfs."
-                fi
-                ;;
-            ctc|lcs)
-                if [ -f /sys/devices/$driver/$SCH_R_DEVBUSID/type ]; then
-                    local type
-                    read type < /sys/devices/$driver/$SCH_R_DEVBUSID/type
-                    [ "$type" = "CTC/A" ] && \
-                        type="channel-to-channel adapter (CTC/A)"
-                    echo $"Detected: $type"
-                else
-                    echo $"Could not read ctc network card type from sysfs."
-                fi
-                ;;
-        esac
-        return 0
-    else
-        echo $"Channels $SUBCHANNELS could not be grouped"
-    fi
-    return 1
-}
-
-function question_prefix_subchannels() {
-    if [ "$NETTYPE" = "qeth" ]; then
-        echo -n $"Read,write,data channel"
-    else
-        echo -n $"Read,write channel"
-    fi
-}
-
-function question_choices_subchannels() {
-    if [ "$NETTYPE" = "qeth" ]; then
-        echo $" (e.g. 0.0.0300,0.0.0301,0.0.0302 or ? for help)."
-    else
-        echo $" (e.g. 0.0.0600,0.0.0601 or ? for help)"
-    fi
-}
-
-function helptext_subchannels() {
-    if [ "$NETTYPE" = "qeth" ]; then
-        echo $" Help text for qeth channels:"
-        echo $"  Enter the device bus ID of your CCW devices."
-        echo $"  QETH needs three channels for read, write, and data,"
-        echo $"  e.g. 0.0.0300,0.0.0301,0.0.0302"
-    else
-        echo $" Help text for lcs/ctc channels:"
-        echo $"  Enter the device bus ID of your CCW devices."
-        echo $"  CTC/ESCON and LCS need two channels for read and write,"
-        echo $"  e.g. 0.0.0600,0.0.0601 will configure the CTC or ESCON interface"
-        echo $"  with the channels 0x600 and 0x601"
-    fi
-}
-
-function finish_subchannels() {
-    syntax_check_subchannels || workflow_item_menu
-    # continuing on syntax error is doomed to fail,
-    # since handle_subchannels relies on the regex-based strict parsing
-    # in syntax_check_subchannels which does not match anything then
-    # news: relaxed by splitting semantic check and actual handling
-    semantic_check_subchannels || workflow_item_menu
-    if handle_subchannels; then
-        break
-    else
-        workflow_item_menu && break
-    fi
-}
-
-function do_subchannels() {
-    ask SUBCHANNELS \
-        question_prefix_subchannels question_choices_subchannels \
-        -h helptext_subchannels -f finish_subchannels
-}
-
-### PORTNAME (qeth)
-
-function syntax_check_portname() {
-    # - 1-8 characters, we convert it to upper case
-    PORTNAME=$(echo $PORTNAME | tr '[:lower:]' '[:upper:]')
-    local portname_len=${#PORTNAME}
-    if [ "$portname_len" -ge 1 -a "$portname_len" -le 8 ]; then
-        return 0
-    fi
-    echo $"Incorrect string length [1..8] for portname (PORTNAME): $PORTNAME"
-    return 1
-}
-
-function handle_portname() {
-    [ -n "$PORTNAME" ] || return 0
-    # - try to set portname right here w/ error handling
-    if sysecho /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/portname "$PORTNAME"; then
-        return 0
-    else
-        echo $"Portname '$PORTNAME' could not be configured for $SUBCHANNELS"
-    fi
-    return 1
-}
-
-function hint_portname() {
-    if [ -f /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/portname ]; then
-        local pname_hint
-        read pname_hint < /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/portname
-        if [ "$pname_hint" = "no portname required" ]; then
-            echo $"  * Your configuration does not require a portname. *"
-        fi
-    fi
-}
-
-function question_prefix_portname(){
-    echo -n $"Portname"
-}
-
-function question_choices_portname(){
-    echo $" (1..8 characters, or ? for help). Default is no portname:"
-}
-
-function helptext_portname(){
-    echo $" Help text for portname:"
-    # updated text describing when portname is obsolete;
-    # taken from:
-    # SA22-7935-09, Open Systems Adapter-Express Customer's
-    #   Guide and Reference, 10th ed. May 2008, IBM, p.17f.
-    # SC33-8411-00, Device Drivers, Features, and Commands,
-    #   1st ed. May 2008, IBM, p.116.
-    echo $"  Portname of the OSA-Express feature in QDIO mode and z/VM Guest LAN."
-    echo $"  This parameter is optional with:"
-    echo $"   - z/VM 4.4.0 or z/VM 4.3.0 with APARs VM63308 and PQ73878"
-    echo $"   - z800, z900 with >= Driver 3G - EC stream J11204, MCL032 (OSA level 3.33)"
-    echo $"   - z890, z990, z9, z10 mainframes"
-    hint_portname
-    echo $"  If portname is used, all operating systems sharing port must use same name."
-    echo $"  Input empty string if you don't want to enter a portname. [default]"
-}
-
-function exception_portname(){
-    [ -z "$PORTNAME" ] && break
-}
-
-function do_portname() {
-    ask PORTNAME \
-        question_prefix_portname question_choices_portname \
-        -h helptext_portname \
-        -e exception_portname -s syntax_check_portname -c handle_portname
-}
-
-### PORTNO (qeth)
-
-function syntax_check_qeth_portno() {
-    case $PORTNO in
-        0|1)
-            return 0
-            ;;
-    esac
-    echo $"Incorrect format or value for relative port number (PORTNO): $PORTNO"
-    return 1
-}
-
-function handle_qeth_portno() {
-    if sysecho /sys/devices/qeth/$SCH_R_DEVBUSID/portno "$PORTNO"; then
-        return 0
-    fi
-    echo $"Could not configure relative port number $PORTNO for $SUBCHANNELS"
-    return 1
-}
-
-function question_prefix_portno() {
-    echo -n $"Relative port number for OSA"
-}
-
-function question_choices_portno() {
-    echo $" (0, 1, or ? for help). Default is 0:"
-}
-
-function helptext_portno() {
-    echo $" Help text for relative port number for OSA with 2 ports per CHPID:"
-    echo $"  This applies to:"
-    echo $"   - OSA-Express3 Gigabit Ethernet on z10 systems"
-    echo $"   - OSA-Express ATM on zSeries 800 and 900 systems"
-    echo $"  0 for relative port number 0 [default]"
-    echo $"  1 for relative port number 1"
-    echo $"  Input empty string to not modify the default configuration."
-}
-
-function exception_portno() {
-    # Writing portno of e.g. hipersockets device fails.
-    # Therefore, do not configure on empty default value.
-    [ -z "$PORTNO" ] && break
-}
-
-function do_portno() {
-    ask PORTNO \
-        question_prefix_portno question_choices_portno \
-        -h helptext_portno -e exception_portno \
-        -s syntax_check_qeth_portno -c handle_qeth_portno
-}
-
-### LAYER2
-
-function syntax_check_layer2() {
-    # - $LAYER2 \in {0,1}
-    case $LAYER2 in
-        0|1)
-            return 0
-            ;;
-    esac
-    echo $"Incorrect format or value for layer2 mode (LAYER2): $LAYER2"
-    return 1
-}
-
-function handle_layer2() {
-    [ "$NETTYPE" == "qeth" ] || return 0
-    [ -n "$LAYER2" ] || return 0
-    # - try to set layer2 mode right here w/ error handling
-    if sysecho /sys/devices/${NETTYPE}/$SCH_R_DEVBUSID/layer2 "$LAYER2"; then
-        return 0
-    else
-        echo $"Layer2 mode '$LAYER2' could not be configured for $SUBCHANNELS"
-    fi
-    return 1
-}
-
-function question_prefix_layer2() {
-    echo -n $"Layer mode"
-}
-
-function question_choices_layer2() {
-    echo -n $" (0 for layer3, 1 for layer2, or ? for help)."
-    if [ "$isLayer2Default" = "yes" ]; then
-        echo $" Default is 1:"
-    else
-        echo $" Default is 0:"
-    fi
-}
-
-function helptext_layer2() {
-    echo $" Help text for OSA mode of operation: layer 2 vs. layer 3"
-    if [ "$isLayer2Default" = "yes" ]; then
-        echo $"  0 for layer 3 mode (may not work with dhcp, tcpdump, etc.)"
-        echo $"  1 for layer 2 mode [default]"
-    else
-        echo $"  0 for layer 3 mode [default] (may not work with dhcp, tcpdump, etc.)"
-        echo $"  1 for layer 2 mode"
-    fi
-}
-
-function exception_layer2() {
-    if [ -z "$LAYER2" ]; then
-        isLayer2Default && LAYER2=1 || LAYER2=0
-        # do not break, always apply, default may differ from online layer mode
-        #break
-    fi
-}
-
-function do_layer2() {
-    isLayer2Default && isLayer2Default=yes || isLayer2Default=no
-    ask LAYER2 \
-        question_prefix_layer2 question_choices_layer2 \
-        -h helptext_layer2 -e exception_layer2 \
-        -s syntax_check_layer2 -c handle_layer2
-}
-
-### MACADDR
-
-function syntax_check_macaddr() {
-    # - match against regex
-    [[ "$MACADDR" =~ ^[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]$ ]]
-    case $? in
-        0)
-            # string matched the pattern
-            return 0
-            ;;
-        1)
-            # string did not match the pattern
-            echo $"Incorrect format for mac address (MACADDR): $MACADDR"
-            ;;
-        2)
-            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-            ;;
-        *)
-            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-            ;;
-    esac
-    return 1
-}
-
-function handle_macaddr() {
-    # - try to set macaddr right here w/ error handlg.
-    # device needs to be online
-    if debug ifconfig $DEVICE hw ether $MACADDR; then
-        return 0
-    fi
-    echo $"MAC address $MACADDR could not be configured for"
-    echo $" $SUBCHANNELS (network device $DEVICE)"
-    return 1
-}
-
-function question_prefix_macaddr() {
-    echo -n $"Unique MAC address"
-}
-
-function question_choices_macaddr() {
-    macaddr_default=$(ifconfig $DEVICE | grep 'HWaddr' | sed 's/.*HWaddr \([[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]:[[:xdigit:]][[:xdigit:]]\).*/\1/')
-    echo $" (e.g. 02:00:00:00:00:00, ? for help). Default is $macaddr_default:"
-}
-
-function helptext_macaddr() {
-    echo $" Help text for MAC address:"
-    if [ -z "${cardtype//OSD_*/}" ]; then
-        echo $"  For real OSA in layer 2 mode, a random MAC address is automatically assigned."
-    else
-        echo $"  If connecting to a layer 2 VSWITCH, a MAC address is automatically assigned."
-    fi
-    echo $"  You may accept the automatic MAC address with an empty input. [default]"
-    echo $"  If the automatic address is not unique, please provide a MAC address."
-    [ -z "${cardtype//OSD_*/}" ] && \
-        echo $"  For real OSA, the provided address must be different from that of the OSA."
-    echo $"  You may override the automatic MAC address with non-empty input."
-    echo $"  An example MAC address would be: 02:00:00:00:00:00"
-}
-
-function exception_macaddr() {
-    if [ -z "$MACADDR" ]; then
-        if [ -z "${cardtype//OSD_*/}" ]; then
-            # keep random default MAC address of real OSA,
-            # so the OSA comes up with the same MAC each time in the future
-            MACADDR=$macaddr_default
-        else
-            # virtual OSA in layer2 is GuestLAN or VSWITCH
-            VSWITCH=1
-        fi
-        break
-    fi
-}
-
-function do_macaddr() {
-    ask MACADDR \
-        question_prefix_macaddr question_choices_macaddr \
-        -h helptext_macaddr -e exception_macaddr \
-        -s syntax_check_macaddr -c handle_macaddr
-}
-
-### CTCPROT
-
-function syntax_check_ctcprot() {
-    case "x$CTCPROT" in
-        x|x0)
-            unset CTCPROT
-            return 0
-            ;;
-        x1|x3)
-            return 0
-            ;;
-        x2)
-            echo $"CTC tty's are not usable for this installation (CTCPROT)"
-            ;;
-        *)
-            echo $"Incorrect format or value for CTC protocol (CTCPROT): $CTCPROT"
-            ;;
-    esac
-    return 1
-}
-
-function handle_ctcprot() {
-    [ -n "$CTCPROT" ] || return 0
-    if sysecho /sys/devices/ctcm/${SCH_R_DEVBUSID}/protocol "$CTCPROT"; then
-        return 0
-    fi
-    echo $"Could not configure CTC protocol $CTCPROT for $SUBCHANNELS"
-    return 1
-}
-
-function question_prefix_ctcprot() {
-    echo -n $"CTC protocol"
-}
-
-function question_choices_ctcprot() {
-    echo $" (0, 1, 3, or ? for help). Default is 0:"
-}
-
-function helptext_ctcprot() {
-    echo $" Help text for CTC protocol:"
-    echo $"  Protocol which should be used for the CTC interface"
-    echo $"  0 for compatibility with p.e. VM TCP service machine [default]"
-    echo $"  1 for enhanced package checking for Linux peers"
-    echo $"  3 for compatibility with OS/390 or z/OS peers"
-}
-
-function do_ctcprot() {
-    ask CTCPROT \
-        question_prefix_ctcprot question_choices_ctcprot \
-        -h helptext_ctcprot -s syntax_check_ctcprot -c handle_ctcprot
-}
-
-### PORTNAME (LCS portno)
-
-function syntax_check_lcs_portno() {
-    [[ "$PORTNAME" =~ ^[[:digit:]]+$ ]]
-    case $? in
-        0)
-            # string matched the pattern
-            return 0
-            ;;
-        1)
-            # string did not match the pattern
-            ;;
-        2)
-            echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-            ;;
-        *)
-            echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-            ;;
-    esac
-    echo $"Incorrect format for LCS port number (PORTNAME): $PORTNAME"
-    return 1
-}
-
-function handle_lcs_portno() {
-    [ -n "$PORTNAME" ] || return 0
-    if sysecho /sys/devices/lcs/$SCH_R_DEVBUSID/portno "$PORTNAME"; then
-        return 0
-    fi
-    echo $"Could not configure relative port number $PORTNAME for $SUBCHANNELS"
-    return 1
-}
-
-function question_prefix_lcs_portno() {
-    echo -n $"Relative port number of your LCS device"
-}
-
-function question_choices_lcs_portno() {
-    echo $" (number or ? for help). Default is 0:"
-}
-
-function helptext_lcs_portno() {
-    echo $" Help text for relative port number of LCS device:"
-    echo $"  Required for OSA-Express ATM cards only."
-}
-
-function exception_lcs_portno() {
-    [ -z "$PORTNAME" ] && break
-}
-
-function do_lcs_portno() {
-    # LCS portno and QETH portname share the parameter variable PORTNAME.
-    # For compatibility with existing parm files we keep this scheme.
-    ask PORTNAME \
-        question_prefix_lcs_portno question_choices_lcs_portno \
-        -e exception_lcs_portno \
-        -h helptext_lcs_portno -s syntax_check_lcs_portno -c handle_lcs_portno
-}
-
-### HOSTNAME
-
-function syntax_check_hostname() {
-    syntax_check_domainname "$HOSTNAME" "Incorrect format for hostname (HOSTNAME): $HOSTNAME"
-}
-
-function handle_hostname() {
-    if ! hostname $HOSTNAME; then
-        echo $"Could not configure hostname $HOSTNAME"
-        return 1
-    fi
-    return 0
-}
-
-function question_prefix_hostname() {
-    echo -n $"Hostname of your new Linux guest"
-}
-
-function question_choices_hostname() {
-    echo $" (FQDN e.g. s390.redhat.com or ? for help):"
-}
-
-function helptext_hostname() {
-    echo $" Help text for hostname:"
-    echo $"  Enter the full qualified domain name of your host."
-}
-
-function do_hostname() {
-    ask HOSTNAME \
-        question_prefix_hostname question_choices_hostname \
-        -h helptext_hostname -s syntax_check_hostname -c handle_hostname
-}
-
-### IPADDR
-
-function syntax_check_ipaddr() {
-    unset ipv4
-    unset ipv6
-    if checkipv4 $IPADDR; then
-        ipv4="yes"
-        return 0
-    elif [ "$ipv6_capable" = "yes" ] && checkipv6 $IPADDR; then
-        ipv6="yes"
-        return 0
-    fi
-    echo $"Incorrect format for IP address (IPADDR): $IPADDR"
-    return 1
-}
-
-function question_prefix_ipaddr() {
-    echo -n $"IPv4 address"
-    [ "$ipv6_capable" = "yes" ] && echo -n $" / IPv6 addr."
-}
-
-function question_choices_ipaddr() {
-    echo -n $" (e.g. 10.0.0.2"
-    [ "$ipv6_capable" = "yes" ] && echo -n $" / 2001:0DB8::"
-    echo $" or ? for help)"
-}
-
-function helptext_ipaddr() {
-    echo $" Help text for IP address:"
-    echo $"  Enter a valid IPv4 address of your new Linux guest (e.g. 10.0.0.2)"
-    if [ "$ipv6_capable" = "yes" ]; then
-        echo $"  or alternatively a valid IPv6 address without CIDR prefix (e.g. 2001:0DB8::)"
-        echo $"  IPv6 is supported on:"
-        echo $"   - Ethernet interfaces of the OSA-Express adapter running in QDIO mode."
-        echo $"   - HiperSockets interfaces"
-        echo $"   - z/VM guest LAN interfaces running in QDIO mode."
-        echo $"  IPv6 is not supported on HiperSockets guest LAN, OSA-Express Token Ring, ATM."
-    fi
-}
-
-function do_ipaddr() {
-    ipv6_capable && ipv6_capable=yes || ipv6_capable=no
-    ask IPADDR \
-        question_prefix_ipaddr question_choices_ipaddr \
-        -h helptext_ipaddr -s syntax_check_ipaddr
-    if [ "$ipv6" ]; then
-       # qeth_l3 would load ipv6 automatically but not qeth_l2
-       modprobe ipv6
-       tv disable_ipv6_autoconf
-    fi
-
-    # no handling/configuring of IPADDR yet, since more parameters needed
-}
-
-### NETMASK (IPv4)
-
-function syntax_check_netmask_v4() {
-    # also support CIDR prefix
-    if [[ "$NETMASK" =~ ^[[:digit:]]+$ ]]; then
-        if [ "$NETMASK" -ge 1 -a "$NETMASK" -le 32 ]; then
-            ipcalc_arg="$IPADDR/$NETMASK"
-            return 0
-        fi
-        echo $"Incorrect value for network prefix [1..32] (NETMASK): $NETMASK"
-        return 1
-    elif checkipv4 $NETMASK; then
-        ipcalc_arg="$IPADDR $NETMASK"
-        return 0
-    fi
-    echo $"Incorrect format or value for network mask (NETMASK): $NETMASK"
-    return 1
-}
-
-function question_prefix_netmask() {
-    echo -n $"IPv4 netmask or CIDR prefix"
-}
-
-function hint_netmask_v4() {
-    # default based on class a/b/c address
-    local a b c d
-    IFS=.
-    read a b c d <<< "$IPADDR"
-    unset IFS
-    local ip=$(( ( a << 24 ) + ( b << 16 ) + ( c << 8 ) + ( d ) ))
-    # <<EOF convince syntax highlighter that above shifts are no here documents
-    if   [ $(( ip & 0x80000000 )) -eq $(( 0x00000000 )) ]; then
-        # class a
-        echo "255.0.0.0"
-    elif [ $(( ip & 0xC0000000 )) -eq $(( 0x80000000 )) ]; then
-        # class b
-        echo "255.255.0.0"
-    elif [ $(( ip & 0xE0000000 )) -eq $(( 0xC0000000 )) ]; then
-        # class c
-        echo "255.255.255.0"
-    else
-        # some other class that should not be used as host address
-        return 1
-    fi
-    return 0
-}
-
-function question_choices_netmask() {
-    echo -n $" (e.g. 255.255.255.0 or 1..32 or ? for help)"
-    local default=$(hint_netmask_v4)
-    if [ -n "$default" ]; then
-        echo $". Default is $default:"
-    else
-        echo $":"
-        echo $"The IP address you entered previously should probably not be used for a host."
-    fi
-}
-
-function helptext_netmask() {
-    echo $" Help text for IPv4 netmask or CIDR prefix:"
-    echo $"  Enter a valid IPv4 netmask or CIDR prefix (e.g. 255.255.255.0 or 1..32)"
-    local default=$(hint_netmask_v4)
-    if [ -n "$default" ]; then
-        echo $"  Default is $default"
-    else
-        echo $"The IP address you entered previously should probably not be used for a host."
-    fi
-}
-
-function exception_netmask() {
-    if [ -z "$NETMASK" ]; then
-        NETMASK=$(hint_netmask_v4)
-    fi
-}
-
-function do_netmask() {
-    ask NETMASK \
-        question_prefix_netmask question_choices_netmask \
-        -h helptext_netmask \
-        -s syntax_check_netmask_v4 -e exception_netmask
-    # no handling/configuring of NETMASK yet, since more parameters needed
-}
-
-### NETWORK
-
-function do_network() {
-    echo
-    echo $"The NETWORK parameter isn't used anymore and will be ignored."
-    echo $" It is sufficient to specify IPADDR and NETMASK."
-    echo
-    unset NETWORK
-}
-
-### BROADCAST
-
-function do_broadcast() {
-    echo
-    echo $"The BROADCAST parameter isn't used anymore and will be ignored."
-    echo $" It is sufficient to specify IPADDR and NETMASK."
-    echo
-    unset BROADCAST
-}
-
-### NETMASK (IPv6)
-
-function syntax_check_prefix_v6() {
-    if [[ "$NETMASK" =~ ^[[:digit:]]+$ ]]; then
-        if [ "$NETMASK" -ge 1 -a "$NETMASK" -le 128 ]; then
-            return 0
-        fi
-    fi
-    echo $"Incorrect value for network prefix [1..128] (NETMASK): $NETMASK"
-    return 1
-}
-
-function question_prefix_netmask_v6() {
-    echo -n $"CIDR prefix for the IPv6 address"
-}
-
-function question_choices_netmask_v6() {
-    echo $" (1..128):"
-}
-
-function do_netmask_v6() {
-    ask NETMASK \
-        question_prefix_netmask_v6 question_choices_netmask_v6 \
-        -s syntax_check_prefix_v6
-    # no handling/configuring of NETMASK yet, since more parameters needed
-}
-
-### GATEWAY (IPv4)
-
-function configure_ipv4_gateway() {
-    # FIXME:
-    # - Strictly speaking we should first check reachability of gateway
-    #   and then configure the gateway route.
-    #   This would require a new intermediate workflow_item step
-    #   so that the user might continue despite unreachable gateway.
-    # done: Only adding default route might add multiple undesired default
-    # routes on redoing the parameter item, so delete default route
-    # before adding a new one.
-    ip -4 route del default dev $DEVICE >& /dev/null
-    [ -z "$GATEWAY" ] && return 0
-    if ! tv route add default gw $GATEWAY dev $DEVICE; then
-        echo $"Could net set default route on device $DEVICE via gateway $GATEWAY"
-        return 1
-    fi
-    # BH FIXME: Workaround for manual MACADDR, need ping to update arp table
-    echo $"Trying to reach gateway $GATEWAY..."
-    if [ "$NETTYPE" = "ctc" ]; then
-        # (virtual) CTC(/A) seems to need some time to get functional
-        local i=1
-        while : ; do
-            $PING $GATEWAY >& /dev/null && break
-            i=$((i+1))
-            if [ "$i" -gt 3 ]; then
-                echo $"Could not reach gateway $GATEWAY within timeout"
-                return 1
-            fi
-        done
-    else
-        if ! $PING $GATEWAY >& /dev/null; then
-            echo $"Could not reach your default gateway $GATEWAY"
-            return 1
-        fi
-    fi
-    return 0
-}
-
-function hint_ipv4_gateway() {
-    # - provide default suggestion based on network,
-    #   for a class C network this would be either .1 or .254 at the end
-    local a b c d
-    IFS=.
-    read a b c d <<< "$NETWORK"
-    unset IFS
-    local ip=$(( ( a << 24 ) + ( b << 16 ) + ( c << 8 ) + ( d ) ))
-    # <<EOF convince syntax highlighter that above shifts are no here documents
-    local lo=$(( ip | 1 ))
-    local lo_a=$(( (lo & 0xFF000000) >> 24 ))
-    local lo_b=$(( (lo & 0x00FF0000) >> 16 ))
-    local lo_c=$(( (lo & 0x0000FF00) >> 8 ))
-    local lo_d=$(( (lo & 0x000000FF) ))
-    local hi=$(( ip | ( (2**(32 - PREFIX)) - 1 ) ))
-    local hi_a=$(( (hi & 0xFF000000) >> 24 ))
-    local hi_b=$(( (hi & 0x00FF0000) >> 16 ))
-    local hi_c=$(( (hi & 0x0000FF00) >> 8 ))
-    local hi_d=$(( (hi & 0x000000FE) ))
-    echo $"  Depending on your network design patterns, the default gateway"
-    echo $"   might be $lo_a.$lo_b.$lo_c.$lo_d or $hi_a.$hi_b.$hi_c.$hi_d"
-}
-
-function question_prefix_gateway() {
-    echo -n $"IPv4 address of your default gateway"
-}
-
-function question_choices_gateway() {
-    echo $" or ? for help:"
-}
-
-function helptext_gateway() {
-    echo $" Help text for IPv4 default gateway:"
-    echo $"  For HiperSockets with internal traffic only you may want to leave this empty"
-    echo $"  and choose continue afterwards to go on without gateway."
-    hint_ipv4_gateway
-}
-
-function finish_gateway() {
-    if ! checkipv4 $GATEWAY; then
-        # above checkipv4 is silent, so make up for syntax error
-        echo $"Incorrect format for IPv4 address of gateway (GATEWAY): $GATEWAY"
-        workflow_item_menu
-    fi
-    if configure_ipv4_gateway; then
-        break
-    else
-        workflow_item_menu && break
-    fi
-}
-
-# FIXME: allow empty/no gateway?
-
-function do_gateway() {
-    ask GATEWAY \
-        question_prefix_gateway question_choices_gateway \
-        -h helptext_gateway -f finish_gateway
-}
-
-### GATEWAY (IPv6)
-
-function configure_ipv6_gateway() {
-    # FIXME:
-    # - Strictly speaking we should first check reachability of gateway
-    #   and then configure the gateway route.
-    #   This would require a new intermediate workflow_item step
-    #   so that the user might continue despite unreachable gateway.
-    # done: Only adding default route might add multiple undesired default
-    # routes on redoing the parameter item, so delete default route
-    # before adding a new one.
-    ip -6 route del default dev $DEVICE >& /dev/null
-    [ -z "$GATEWAY" ] && return 0
-    # IPv6 http://www.ibiblio.org/pub/Linux/docs/HOWTO/other-formats/html_single/Linux+IPv6-HOWTO.html#AEN1147
-    #       ip -6 route add ::/0 dev $DEVICE via $GATEWAY
-    # (Could also be learned by autoconfiguration on the link:
-    #  after IP address setup and device up,
-    #   see if default route has been learned
-    #   ip -6 route show | grep ^default
-    #  However, we currently use manual IPv6 configuration only.)
-    if ! debug ip -6 route add ::/0 dev $DEVICE via $GATEWAY; then
-        echo $"Could net set default route on device $DEVICE"
-        echo $" via gateway $GATEWAY"
-        return 1
-    fi
-    # BH FIXME: Workaround for manual MACADDR, need ping to update arp table
-    echo $"Trying to reach gateway $GATEWAY..."
-    if ! $PING6 $GATEWAY >& /dev/null; then
-        echo $"Could not reach your default gateway $GATEWAY"
-        return 1
-    fi
-    return 0
-}
-
-function question_prefix_gateway_v6() {
-    echo -n $"IPv6 address of your default gateway"
-}
-
-function question_choices_gateway_v6() {
-    echo $":"
-}
-
-function helptext_gateway_v6() {
-    echo $" Help text for IPv6 default gateway:"
-    echo $"  For HiperSockets with internal traffic only you may want to leave this empty"
-    echo $"  and choose continue afterwards to go on without gateway."
-}
-
-function finish_gateway_v6() {
-    if ! checkipv6 $GATEWAY; then
-        # above checkipv6 is silent, so make up for syntax error
-        echo $"Incorrect format for IPv6 address of gateway (GATEWAY): $GATEWAY"
-        workflow_item_menu
-    fi
-    if configure_ipv6_gateway; then
-        break
-    else
-        workflow_item_menu && break
-    fi
-}
-
-# FIXME: allow empty/no gateway?
-
-function do_gateway_v6() {
-    ask GATEWAY \
-        question_prefix_gateway_v6 question_choices_gateway_v6 \
-        -h helptext_gateway_v6 -f finish_gateway_v6
-}
-
-### GATEWAY (IPv4, point-to-point)
-
-function configure_ipv4_ptp() {
-    # device needs to be online
-    if debug ifconfig $DEVICE $IPADDR $MMTU pointopoint $GATEWAY; then
-        configure_ipv4_gateway
-        return $?
-    fi
-    echo $"Could not set IPv4 address $IPADDR for device $DEVICE"
-    echo $" to peer $GATEWAY"
-    [ -n "$MMTU" ] && echo $" and maximum transfer unit: $MMTU"
-    return 1
-}
-
-function question_prefix_ptp_gateway() {
-    echo -n $"IPv4 address of your point-to-point partner"
-}
-
-function question_choices_ptp_gateway() {
-    echo $" or ? for help:"
-    # no hinting possible here
-}
-
-function helptext_ptp_gateway() {
-    echo $" Help text for point-to-point partner:"
-    echo $"  IPv4 address of your CTC or ESCON point-to-point partner."
-}
-
-function finish_ptp_gateway() {
-    if checkipv4 $GATEWAY; then
-        if [ "$GATEWAY" = "$IPADDR" ]; then
-            echo $"IPv4 address of partner should probably be different from the guest's address"
-            workflow_item_menu && break
-        else
-            break
-        fi
-    else
-        # above checkipv4 is silent, so make up for syntax error
-        echo $"Incorrect format for IPv4 address of partner (GATEWAY): $GATEWAY"
-        workflow_item_menu && break
-    fi
-    # too early to actually configure gateway
-}
-
-function do_ptp_gateway() {
-    ask GATEWAY \
-        question_prefix_ptp_gateway question_choices_ptp_gateway \
-        -h helptext_ptp_gateway -f finish_ptp_gateway
-}
-
-### DNS
-
-function syntax_check_dns() {
-    if [ -z "$DNS" ]; then
-        echo $"You might encounter problems without a nameserver, especially with FTP installs"
-        return 1
-    fi
-    local dnsitem
-    local allgood="yes"
-    if [ "$ipv6" ]; then
-        while read dnsitem; do
-            if ! checkipv6 $dnsitem; then
-                echo $"Not a valid IPv6 address for DNS server: $dnsitem"
-                allgood="no"
-            fi
-        done < <(echo $DNS | sed 's/,/\n/g')
-    else
-         while read dnsitem; do
-           if ! checkipv4 $dnsitem; then
-                echo $"Not a valid IPv4 address for DNS server: $dnsitem"
-                allgood="no"
-            fi
-         done < <(echo $DNS | sed 's/:/\n/g')
-    fi
-    if [ "$allgood" = "yes" ]; then
-        return 0
-    else
-        return 1
-    fi
-}
-
-function handle_dns() {
-    # - foreach DNS try if server is reachable by one ping
-    [ -z "$DNS" ] && return 0
-    local dnsitem
-    local allgood="yes"
-    echo $"Trying to reach DNS servers..."
-    if [ "$ipv6" ]; then
-        while read dnsitem; do
-            if ! $PING6 $dnsitem >& /dev/null; then
-                echo $"Could not ping DNS server (might still serve DNS requests): $dnsitem"
-                allgood="no"
-                # this should not be a hard failure since some network
-                # environments may prevent pings to DNS servers
-                # => prevent workflow_item_menu in kickstart mode
-            fi
-        done < <(echo $DNS | sed 's/,/\n/g')
-    else
-        while read dnsitem; do
-            # Some network environment may prevent a DNS server from being
-            # reachable by ping, so it would make sense to use nslookup.
-            # However, nslookup fails with "Resolver Error 0 (no error)"
-            # at this stage of the setup progress => not useful
-            if ! $PING $dnsitem >& /dev/null; then
-                echo $"Could not ping DNS server: $dnsitem"
-#                if nslookup $dnsitem $dnsitem >& /dev/null; then
-#                    echo $" but could resolve DNS server with itself: $dnsitem"
-#                else
-#                    echo $"Could not resolve DNS server with itself: $dnsitem"
-#                    allgood="no"
-#                fi
-#            elif ! nslookup $dnsitem $dnsitem >& /dev/null; then
-#                echo $"Could not resolve DNS server with itself: $dnsitem"
-                allgood="no"
-            fi
-        done < <(echo $DNS | sed 's/:/\n/g')
-    fi
-    if [ "$allgood" = "yes" ]; then
-        return 0
-    else
-        return 1
-    fi
-}
-
-function question_prefix_dns() {
-    if [ "$ipv6" ]; then
-        echo -n $"IPv6 addresses of DNS servers"
-    else
-        echo -n $"IPv4 addresses of DNS servers"
-    fi
-}
-
-function question_choices_dns() {
-    if [ "$ipv6" ]; then
-        echo $" (separated by commas ',' or ? for help):"
-    else
-        echo $" (separated by colons ':' or ? for help):"
-    fi
-}
-
-function helptext_dns() {
-    echo $" Help text for DNS servers:"
-    if [ "$ipv6" ]; then
-        echo $"  Enter IPv6 addresses of DNS servers separated by commas ','"
-    else
-        echo $"  Enter IPv4 addresses of DNS servers separated by colons ':'"
-    fi
-    echo $"  Default are no DNS servers at all."
-    echo $"  However, you might encounter problems without a nameserver,"
-    echo $"   especially with FTP installs."
-    if [ "$ipv6" ]; then
-        echo $"  An example with 2 servers would be: 2001:0DB8::42,2001:0DB8::BE:AF"
-    else
-        echo $"  An example with 2 servers would be: 10.0.0.250:10.1.1.1"
-    fi
-}
-
-function do_dns() {
-    ask DNS \
-        question_prefix_dns question_choices_dns \
-        -h helptext_dns -s syntax_check_dns -c handle_dns
-}
-
-### SEARCHDNS
-
-function syntax_check_searchdns() {
-    [ -z "$SEARCHDNS" ] && return 0
-    local dnsitem
-    local allgood="yes"
-    while read dnsitem; do
-        syntax_check_domainname "$dnsitem" $"Not a valid DNS search domain: $dnsitem" || allgood="no"
-    done < <(echo $SEARCHDNS | sed 's/:/\n/g')
-    if [ "$allgood" = "yes" ]; then
-        return 0
-    else
-        return 1
-    fi
-}
-
-function question_prefix_searchdns() {
-    echo -n $"DNS search domains"
-}
-
-function question_choices_searchdns() {
-    echo $" (separated by colons ':' or ? for help):"
-}
-
-function helptext_searchdns() {
-    echo $" Help text for DNS search domains:"
-    echo $"  Enter search domains according to hostname syntax separated by colons."
-    echo $"  Default are no DNS search domains at all."
-    echo $"  An example would be: subdomain.domain.com:domain.com"
-}
-
-function do_searchdns() {
-    ask SEARCHDNS \
-        question_prefix_searchdns question_choices_searchdns \
-        -h helptext_searchdns -s syntax_check_searchdns
-}
-
-### DASD
-
-function parse_dasd() {
-    local handle
-    [ "$1" = "-h" ] && handle=yes || unset handle
-    local dasditem
-    local allgood="yes"
-    local cio_wc=$(wc -c /proc/cio_ignore)
-    read cio_wc_bytes cio_wc_filename cio_wc_foo <<< "$cio_wc"
-    if [ "$handle" = "yes" -a "$cio_wc_bytes" != "0" ]; then
-        echo $"Trying to clear specified DASDs from device blacklist..."
-        mkdir -p /etc/modprobe.d
-        echo "options dasd_mod dasd=$DASD" > /etc/modprobe.d/dasd_mod.conf
-        if ! dasd_cio_free; then
-            echo $"Not all specified DASDs could be detected within timeout."
-            allgood="no"
-        fi
-    fi
-    while read dasditem; do
-        unset range features range lo hi rangegood \
-            attrs devno lodevno hidevno devbusid sys
-        case $dasditem in
-            autodetect)
-                [ -z "$handle" ] && continue
-                cio_wc=$(wc -c /proc/cio_ignore)
-                read cio_wc_bytes cio_wc_filename cio_wc_foo <<< "$cio_wc"
-                # above we only freed the devices specified in $DASD,
-                # so there might still be other DASDs in the blacklist
-                if [ "$cio_wc_bytes" != "0" ]; then
-                    echo $"Note: There is a device blacklist active! Only activating visible DASDs."
-                fi
-                local sys
-                while read sys; do
-                    if ! sysecho $sys/online 1; then
-                        echo $"Could not set DASD ${sys##*/} online"
-                    fi
-                done < <(find /sys/bus/ccw/drivers/dasd-eckd/ -name "*.?.????" 2>/dev/null;\
-                    find /sys/bus/ccw/drivers/dasd-fba/ -name "*.?.????" 2>/dev/null)
-                ;;
-            probeonly|nopav|nofcx)
-                if [ -z "$handle" ]; then
-                    echo $"DASD option $dasditem not supported by installer"
-                fi
-                ;;
-            "") continue ;; # empty range
-            *)  local range features rangegood="yes"
-                IFS='('
-                read range features <<< "$dasditem"
-                unset IFS
-                # parse: dev OR dev'-'dev
-                local lo=${range%%-*}
-                [[ "$lo" =~ (^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$)|(^[[:xdigit:]]{3,4}$) ]]
-                case $? in
-                    0)  # string matched the pattern
-                        lo=$(canonicalize_devno $lo) ;;
-                    1)  # string did not match the pattern
-                        rangegood="no"
-                        if [ -z "$handle" ]; then
-                            echo $"Incorrect format for lower bound of DASD range $range: $lo"
-                            allgood="no"
-                        fi
-                        ;;
-                    2)  echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2 ;;
-                    *)  echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2 ;;
-                esac
-                if [ "${range//*-*/}" = "" ]; then
-                    local hi=${range##*-}
-                    [[ "$hi" =~ (^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$)|(^[[:xdigit:]]{3,4}$) ]]
-                    case $? in
-                        0)  # string matched the pattern
-                            hi=$(canonicalize_devno $hi)
-                            if [ "${lo%.*}" != "${hi%.*}" ]; then
-                                echo $"Prefixes of DASD range $range do not match: ${lo%.*} != ${hi%.*}"
-                                rangegood="no"
-                                allgood="no"
-                            fi
-                            ;;
-                        1)  # string did not match the pattern
-                            rangegood="no"
-                            if [ -z "$handle" ]; then
-                                echo $"Incorrect format for upper bound of DASD range $range: $hi"
-                                allgood="no"
-                            fi
-                            ;;
-                        2)  echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2 ;;
-                        *)  echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2 ;;
-                    esac
-                fi
-                if [ "${features//*)/}" != "" ]; then
-                    if [ -z "$handle" ]; then
-                        echo $"Missing closing parenthesis at features of DASD range $range: ($features"
-                        allgood="no"
-                    fi
-                fi
-                local attrs=""
-                if [ -n "$features" ]; then
-                    features="${features%)}"
-                    while read feature; do
-                        case $feature in
-                            ro) attrs=$attrs" readonly" ;;
-                            diag) attrs=$attrs" use_diag" ;;
-                            erplog|failfast) attrs=$attrs" "$feature ;;
-                            *) if [ -z "$handle" ]; then
-                                   echo $"Unknown DASD feature for device range $range: $feature"
-                                   allgood="no"
-                               fi
-                               ;;
-                        esac
-                    done < <(echo $features | sed 's/:/\n/g')
-                fi
-                [ "$rangegood" = "yes" ] || continue
-                [ "$handle" = "yes" ] || continue
-                # now apply $attrs and set DASDs $lo to $hi online
-                [ -z "$hi" ] && hi=$lo
-                local devno lodevno=$((0x${lo##*.})) hidevno=$((0x${hi##*.}))
-                local dasdconf="/etc/dasd.conf"
-                for ((devno=$lodevno; $devno <= $hidevno; ++devno)); do
-                    local devbusid=$(printf "%s.%04x" ${lo%.*} $devno)
-                    local sys="/sys/bus/ccw/devices/"$devbusid
-                    echo -n "$devbusid" >> $dasdconf
-                    for attr in $attrs; do
-                        if [ "$attr" = "use_diag" ]; then
-                            # diag discipline cannot be auto-loaded
-                            modprobe dasd_diag_mod
-                        fi
-                        if [ ! -f $sys/$attr ]; then
-                            echo $"DASD $devbusid does not provide attribute $attr"
-                            continue
-                        fi
-                        if ! sysecho $sys/$attr 1; then
-                            echo $"Could not set attribute $attr for DASD $devbusid"
-                        fi
-                        echo -n " $attr=1" >> $dasdconf
-                    done
-                    if [ ! -f $sys/online ]; then
-                        echo $"DASD $devbusid not found"
-                        continue
-                    fi
-                    if ! sysecho $sys/online 1; then
-                        echo $"Could not set DASD $devbusid online"
-                    fi
-                    echo >> $dasdconf
-                done
-                ;;
-        esac
-    done < <(echo $DASD | sed 's/,/\n/g')
-    if [ "$handle" = "yes" ]; then
-        udevadm settle
-        dasd_settle_all || return 1
-        echo $"Activated DASDs:"
-        cat /proc/dasd/devices | sed -e 's/ at ([^)]*) is//' -e 's/ at/,/'
-    fi
-    if [ "$allgood" = "yes" ]; then
-        return 0
-    else
-        return 1
-    fi
-}
-
-function syntax_check_dasd() {
-    parse_dasd
-    return $?
-}
-
-function handle_dasd() {
-    parse_dasd -h
-    return $?
-}
-
-function question_prefix_dasd() {
-    echo -n $"DASD range"
-}
-
-function question_choices_dasd() {
-    echo $" (e.g. 200-203,205 or ? for help). Default is autoprobing:"
-}
-
-function helptext_dasd() {
-    echo $" Help text for DASD range:"
-    echo $"  Comma separated list of ranges of device bus IDs."
-    echo $"  Default is autoprobing (not recommended)."
-    echo $"  Examples would be: 200-203 or 200,201,202,203 or 0.0.0200-0.0.0203,0.0.0205"
-}
-
-function exception_dasd() {
-    [ -z "$DASD" ] && DASD="autodetect"
-}
-
-function do_dasd() {
-    ask DASD \
-        question_prefix_dasd question_choices_dasd \
-        -h helptext_dasd -e exception_dasd -s syntax_check_dasd -c handle_dasd
-}
-
-### FCP
-
-function syntax_check_fcp() {
-    local allgood="yes"
-    local i
-    for i in ${!FCP_*}; do
-        local -a fcp
-        local devno wwpn lun
-        read -a fcp <<< "${!i}"
-        case ${#fcp[ ]} in
-            3)
-                devno=${fcp[0]}
-                wwpn=${fcp[1]}
-                lun=${fcp[2]}
-                ;;
-            5)
-                devno=${fcp[0]}
-                wwpn=${fcp[2]}
-                lun=${fcp[4]}
-                echo $"Deprecated number of FCP arguments (5 instead of 3): "
-                echo $" $i=\"${!i}\""
-                echo $" should instead be: "
-                echo $" $i=\"$devno $wwpn $lun\""
-                ;;
-            *)
-                echo $"Unsupported number of FCP arguments (${#fcp[ ]} instead of 3) in:"
-                echo $" $i=\"${!i}\""
-                allgood="no"
-                continue
-                ;;
-        esac
-        [[ "$devno" =~ (^[[:xdigit:]]+\.[0-3]\.[[:xdigit:]]{4}$)|(^[[:xdigit:]]{3,4}$) ]]
-        case $? in
-            0)  ;; # string matched the pattern
-            1)  # string did not match the pattern
-                echo $"Incorrect format for FCP device $devno in:"
-                echo $" $i=\"${!i}\""
-                allgood="no"
-                ;;
-            2)
-                echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-                ;;
-            *)
-                echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-                ;;
-        esac
-        # zfcp.py:class ZFCPDevice would also accept WWPN without leading 0x
-        [[ "$wwpn" =~ ^0x[[:xdigit:]]{16}$ ]]
-        case $? in
-            0)  ;; # string matched the pattern
-            1)  # string did not match the pattern
-                echo $"Incorrect format for FCP WWPN $wwpn in:"
-                echo $" $i=\"${!i}\""
-                allgood="no"
-                ;;
-            2)  echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2 ;;
-            *)  echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2 ;;
-        esac
-        # zfcp.py:class ZFCPDevice would also accept LUN without leading 0x
-        # zfcp.py:class ZFCPDevice would also accept 16 bit LUN and pads with 0
-        [[ "$lun" =~ ^0x[[:xdigit:]]{8}0{8}$ ]]
-        case $? in
-            0)  ;; # string matched the pattern
-            1)  # string did not match the pattern
-                echo $"Incorrect format for FCP LUN $lun in:"
-                echo $" $i=\"${!i}\""
-                allgood="no"
-                ;;
-            2)
-                echo "l.$LINENO: syntax error in regex of match operator =~, code needs to be fixed" 1>&2
-                ;;
-            *)
-                echo "l.$LINENO: unexpected return code of regex match operator =~, code needs to be fixed" 1>&2
-                ;;
-        esac
-    done
-    if [ "$allgood" = "yes" ]; then
-        return 0
-    else
-        return 1
-    fi
-}
-
-###
-
-function show_parms() {
-    # The only issue with this stateless approach to showing parameters based
-    # on their content being non-empty is, that parameters with defaults
-    # such as LAYER2, (PORTNAME,) CTCPROT, PORTNO (,MACADDR) won't be shown
-    # if the user just hit enter, so the parm file would be "incomplete".
-    # However this is not easy to fix in here, since it would require the
-    # inter-parameter dependenies coded below in the main part, e.g. an
-    # empty LAYER2 should only be printed with default value if $NETTYPE=qeth.
-    # For the time being, at least the parameters LAYER2, PORTNAME, and CTCPROT
-    # only get asked on being empty if not running in kickstart mode.
-    cat << EOF
-NETTYPE=$NETTYPE
-IPADDR=$IPADDR
-NETMASK=$NETMASK
-GATEWAY=$GATEWAY
-HOSTNAME=$HOSTNAME
-EOF
-    [ "$SUBCHANNELS" ] && echo "SUBCHANNELS=$SUBCHANNELS"
-    [ "$LAYER2" ] && echo "LAYER2=$LAYER2"
-    [ "$VSWITCH" ] && echo "VSWITCH=$VSWITCH"
-    [ "$MACADDR" ] && echo "MACADDR=$MACADDR"
-    [ "$PORTNAME" ] && echo "PORTNAME=$PORTNAME"
-    [ "$PORTNO" ] && echo "PORTNO=$PORTNO"
-    [ "$PEERID" ] && echo "PEERID=$PEERID"
-    [ "$CTCPROT" ] && echo "CTCPROT=$CTCPROT"
-    if [ -n "$mmtu_was_set" ]; then
-        echo "MMTU=\"$MMTU\""
-    elif [ -n "$mtu_was_set" ]; then
-        echo "MTU=$MTU"
-    fi
-    [ "$DNS" ] && echo "DNS=$DNS"
-    [ "$SEARCHDNS" ] && echo "SEARCHDNS=$SEARCHDNS"
-    [ "$DASD" ] && echo "DASD=$DASD"
-}
-
-function final_check() {
-    # final check && break
-    if [ -z "$interaction_happened" ]; then
-        # if parm file was good enough just continue without interaction
-        break
-        return 0
-    fi
-    while : ; do
-        # optionally consider "continue" as default
-        # but then again the user may inadvertently continue
-        echo
-        echo $"c) continue, p) parm file/configuration, n) network state, r) restart, s) shell"
-        local answer
-        read answer
-        case $answer in
-            c) return 0 ;;
-            p) echo
-                show_parms ;;
-            n) # show interfaces and routing table
-                ifconfig -a
-                if [ "$ipv6" ]; then
-                    #route -n -A inet6
-                    # the following produces more compact output for 80 columns
-                    ip -6 route show | grep -v "^unreachable "
-                else
-                    route -n
-                fi
-                ;;
-            d) # show active DASDs with some useful details
-                echo $"Activated DASDs:"
-                cat /proc/dasd/devices|sed -e 's/ at ([^)]*) is//' -e 's/ at/,/'
-                ;;
-            r) break ;;
-            s) echo $"Enter 'exit' at the shell prompt to get back to the installation dialog."
-                /bin/bash
-                ;;
-    esac
-    done
-    return 1
-}
-
-### MAIN ###
-
-init_main
-udev_setup
-
-# Parse configuration
-if [ -n "$CMSDASD" -a -n "$CMSCONFFILE" ]; then
-    readcmsfile $CMSDASD $CMSCONFFILE
-    source /tmp/$CMSCONFFILE #2>/dev/null
-fi
-
-if [ -r /sys/firmware/ipl/ipl_type ]; then
-    #local ipl_type
-    read ipl_type < /sys/firmware/ipl/ipl_type
-    if [ "$ipl_type" = "fcp" ]; then
-        while : ; do
-            echo $"Your IPL device is set to FCP."
-            echo $"Would you like to perform a CD-ROM/DVD-ROM installation? (y/n)"
-            #local do_cd_install
-            read do_cd_install
-            case $do_cd_install in
-                y|Y|[Yy][Ee][Ss])
-                    # precondition: zfcp driver incl. dependencies loaded
-                    #local CD_DEVICE WWPN LUN
-                    read CD_DEVICE < /sys/firmware/ipl/device
-                    read WWPN < /sys/firmware/ipl/wwpn
-                    read LUN < /sys/firmware/ipl/lun
-                    zfcp_cio_free -d $CD_DEVICE \
-                        || echo $"Device $CD_DEVICE could not be cleared from device blacklist"
-                    sysecho /sys/bus/ccw/drivers/zfcp/$CD_DEVICE/online 1 \
-                        || echo $"Could not set FCP device $CD_DEVICE online"
-                    udevadm settle
-                    # port (WWPN) appears automatically
-                    sysecho /sys/bus/ccw/drivers/zfcp/$CD_DEVICE/$WWPN/unit_add $LUN \
-                        || echo $"Could not add LUN $LUN at WWPN $WWPN on FCP device $CD_DEVICE"
-                    udevadm settle
-                    break
-                    ;;
-                n|N|[Nn][Oo])
-                    break
-                    ;;
-                *)
-                    echo
-                    echo $"*** INVALID ANSWER: $do_cd_install"
-                    echo
-                    unset do_cd_install
-                    ;;
-            esac
-        done
-    fi
-fi
-
-# Perform a network installation
-
-[ -n "$MTU" ] && mtu_was_set=$MTU
-[ -n "$MMTU" ] && mmtu_was_set=$MMTU
-[ -n "$VSWITCH" ] && vswitch_was_set=$VSWITCH
-
-[ -n "$CHANDEV" ] && do_chandev
-[ -n "$NETWORK" ] && do_network
-[ -n "$BROADCAST" ] && do_broadcast
-
-# [ -z "${cardtype//OSD_*/}" ] can be used to check for real OSA
-
-# Check for missing parameters, prompt for them if necessary
-while : ; do
-
-    # do not show list of possible network device configurations, if:
-    # - running unattended install with kickstart
-    # - relevant parameters have already been specified in parm file
-    #   (a possible optimization would be matching those parms to table entry)
-    # - dialog has not been restarted
-    [ -n "$reenter" \
-        -o -z "$RUNKS" -a \( -z "$NETTYPE" -o -z "$SUBCHANNELS" \) ] && \
-        dialog_network_table
-    if isVM; then
-        echo $"* NOTE: To enter default or empty values press enter twice. *"
-    fi
-    do_nettype
-
-    # precondition: driver (qeth/lcs/ctcm) loaded incl. dependencies
-    do_subchannels
-    if [ "$NETTYPE" = "qeth" ]; then
-        [ -z "$reenter" -a -n "$RUNKS" -a -z "$PORTNAME" ] || \
-            [ -n "${cardtype//OSD_*/}" ] || do_portname
-        # See also https://bugzilla.redhat.com/show_bug.cgi?id=439461
-        #
-        # If running in kickstart mode (unattended), we assume no
-        # interaction and the user won't get asked for PORTNO.
-        # Otherwise the user will be asked for PORTNO.
-        # If the user specified PORTNO in parm/conf file, PORTNO gets
-        # respected (or the user will be asked if it was wrong).
-        if [ -f /sys/devices/qeth/$SCH_R_DEVBUSID/portno ]; then
-            # driver support exists since RHEL5.2
-            [ -z "$reenter" -a -n "$RUNKS" -a -z "$PORTNO" ] || \
-                [ -n "${cardtype//OSD_*/}" ] || do_portno
-        fi
-        do_layer2
-        # set device online to know the device name
-        # and to know if it's OSD/HiperSockets/GuestLAN BUT do not
-        # try to ifconfig the device up since that requires
-        # setting the mac address before (if applicable).
-        set_device_online || workflow_item_menu noredo
-        # MAC address handling is not part of
-        # https://bugzilla.redhat.com/show_bug.cgi?id=233376
-        # Instead the additions come from
-        # https://bugzilla.redhat.com/show_bug.cgi?id=248049
-        # The new parms VSWITCH and MACADDR are described in
-        # the RHEL 5.1 release notes.
-        if isLayer2; then
-            if [ -z "$VSWITCH" -o "$VSWITCH" == 0 ]; then
-                do_macaddr
-            fi
-        fi
-    elif [ "$NETTYPE" = "ctc" ]; then
-        [ -z "$reenter" -a -n "$RUNKS" -a -z "$CTCPROT" ] || do_ctcprot
-        set_device_online || workflow_item_menu noredo
-    elif [ "$NETTYPE" = "lcs" ]; then
-        [ -n "$RUNKS" -a -z "$PORTNAME" ] && PORTNAME=0
-        do_lcs_portno
-        set_device_online || workflow_item_menu noredo
-    fi
-
-    # device needs to be up before configuring with ifconfig/ip in
-    # configure_ipv6_address/configure_ipv4_address/configure_ipv4_address
-    set_device_up || workflow_item_menu noredo
-
-    [ "$HOSTNAME" = "(none)" ] && unset HOSTNAME
-    do_hostname
-
-    # Note: The workflow_item_menu does a rollback_config on restart
-    # dialog, i.e. hardware config has been reset and it is impossible to
-    # only restart halfway at IPADDR.
-    do_ipaddr
-    if [ "$ipv6" ]; then
-        # this branch is all IPv6 and at the same time also NETTYPE==qeth
-        do_netmask_v6
-        handle_mtu
-        configure_ipv6_address || workflow_item_menu noredo
-        do_gateway_v6
-    else
-        # Consider IPv4 as default, even for unknown IP versions
-        # due to invalid input for IPADDR ignored by the user previously
-        # (neither ipv6 nor ipv4 is set).
-        # Otherwise we would skip things like NETMASK or GATEWAY
-        # and jump forward to DNS which is probably not what we want.
-        if [ "$NETTYPE" = "qeth" ] || [ "$NETTYPE" = "lcs" ]; then
-            do_netmask
-            handle_mtu
-            configure_ipv4_address || workflow_item_menu noredo
-            do_gateway
-        else  # ctc0
-            if [ -z "$NETMASK" ]; then
-                # If the user did not supply netmask, we add the right one.
-                # Netmask MUST be present,
-                # or pumpSetupInterface() blows routes.
-                NETMASK="255.255.255.255"
-            fi
-            # don't ask for MTU, but use it if set in the parm file
-            # don't overwrite MMTU if it has been set for CTC
-            [ "$NETTYPE" = "ctc" -a -z "$MTU" -a -z "$MMTU" ] && \
-                MMTU="mtu 1500"
-            do_ptp_gateway
-            configure_ipv4_ptp || workflow_item_menu noredo
-        fi
-    fi
-
-    do_dns
-    [ -n "$DNS" ] && do_searchdns
-
-    do_dasd
-
-    echo $"Initial configuration completed."
-    final_check && break
-    rollback_config
-    reenter="yes"
-
-done # outer dialog loop
-
-if [ -z "$testing" ]; then
-
-    # convert to space-separated lists
-    if [ -n "$SEARCHDNS" ]; then
-        SEARCHDNS=$(echo $SEARCHDNS |sed -e 's/:/ /g')
-        for i in "$SEARCHDNS"; do echo "search $i"; done >> /etc/resolv.conf
-    fi
-    if [ -n "$DNS" ]; then
-        if [ "$ipv6" ]; then
-            RESOLVDNS=$(echo $DNS |sed -e 's/,/ /g')
-        else
-            RESOLVDNS=$(echo $DNS |sed -e 's/:/ /g')
-        fi
-        for i in $RESOLVDNS; do echo "nameserver $i"; done >> /etc/resolv.conf
-    fi
-
-    # make sure we have an /etc/hosts file (originally required for telnetd,
-    # which is no longer included)
-    if [ ! -z "$HOSTNAME" -a ! -z "$IPADDR" ]; then
-        echo -e "$IPADDR\t$HOSTNAME $(echo $HOSTNAME | cut -d '.' -f 1)" >> /etc/hosts
-    fi
-
-fi # testing
-
-# syntax check to give user early feedback on parameters provided in parm file
-# (he probably won't notice the logs written by anaconda later on)
-syntax_check_fcp
-# currently we ignore failed syntax checks since FCP parms are non-interactive
-for i in ${!FCP_*}; do
-    echo "${!i}" >> /etc/zfcp.conf
-done
-# cio_ignore handling for FCP should happen when the content of /etc/zfcp.conf
-# will actually be processed which is in anaconda's zfcp.py ZFCP::readConfig()
-
-# TODO/FIXME: also need to pass IPv6 decision to loader/anaconda
-#    [ "$ipv6" ] && echo "IPV6=yes"
-
-# transfer options into install environment
-# loader now uses ifcfg instead of install.cfg to receive our network config
-
-# additionally, loader's readNetInfo needs to know our DEVICE name
-echo $DEVICE > /tmp/s390net
-
-if [ "$ipv6" ]; then
-    DNS1=$(echo $DNS | cut -d ',' -f 1)
-    DNS2=$(echo $DNS | cut -d ',' -f 2)
-else
-    DNS1=$(echo $DNS | cut -d ':' -f 1)
-    DNS2=$(echo $DNS | cut -d ':' -f 2)
-fi
-
-NETSCRIPTS="/etc/sysconfig/network-scripts"
-IFCFGFILE="$NETSCRIPTS/ifcfg-$DEVICE"
-if [ ! -d "$NETSCRIPTS" ]; then
-    mkdir -p $NETSCRIPTS
-fi
-
-# to please NetworkManager on startup in loader before loader reconfigures net
-cat > /etc/sysconfig/network << EOF
-HOSTNAME=$HOSTNAME
-EOF
-if [ "$ipv6" ]; then
-    echo "NETWORKING_IPV6=yes" >> /etc/sysconfig/network
-else
-    echo "NETWORKING=yes" >> /etc/sysconfig/network
-fi
-
-cat > $IFCFGFILE << EOF
-DEVICE=$DEVICE
-ONBOOT=yes
-BOOTPROTO=static
-MTU=$MTU
-SUBCHANNELS=$SUBCHANNELS
-EOF
-if [ "$ipv6" ]; then
-    cat >> $IFCFGFILE << EOF
-IPV6INIT=yes
-IPV6_AUTOCONF=no
-IPV6ADDR=$IPADDR/$NETMASK
-IPV6_DEFAULTGW=$GATEWAY
-EOF
-else
-    cat >> $IFCFGFILE << EOF
-IPADDR=$IPADDR
-NETMASK=$NETMASK
-BROADCAST=$BROADCAST
-GATEWAY=$GATEWAY
-EOF
-fi
-# real DNS config for NetworkManager to generate /etc/resolv.conf
-[ "$DNS1" != "" ] && echo "DNS1=$DNS1" >> $IFCFGFILE
-[ "$DNS2" != "" ] && echo "DNS2=$DNS2" >> $IFCFGFILE
-# just to please loader's readNetInfo && writeEnabledNetInfo
-# which eats DNS1,DNS2,... and generates it themselves based on DNS
-if [ "$ipv6" ]; then
-    [ "$DNS" != "" ] && echo "DNS=\"$DNS\"" >> $IFCFGFILE
-else
-    [ "$DNS" != "" ] && echo "DNS=\"$(echo $DNS|sed -e 's/:/,/g')\"" >> $IFCFGFILE
-fi
-# colons in SEARCHDNS already replaced with spaces above for /etc/resolv.conf
-[ "$SEARCHDNS" != "" ] && echo "DOMAIN=\"$SEARCHDNS\"" >> $IFCFGFILE
-[ "$NETTYPE" != "" ] && echo "NETTYPE=$NETTYPE" >> $IFCFGFILE
-[ "$PEERID" != "" ] && echo "PEERID=$PEERID" >> $IFCFGFILE
-[ "$PORTNAME" != "" ] && echo "PORTNAME=$PORTNAME" >> $IFCFGFILE
-[ "$CTCPROT" != "" ] && echo "CTCPROT=$CTCPROT" >> $IFCFGFILE
-[ "$MACADDR" != "" ] && echo "MACADDR=$MACADDR" >> $IFCFGFILE
-optstr=""
-for option in LAYER2 PORTNO; do
-    [ -z "${!option}" ] && continue
-    [ -n "$optstr" ] && optstr=${optstr}" "
-    optstr=${optstr}$(echo ${option} | tr [[:upper:]] [[:lower:]])"="${!option}
-done
-# write single quotes since network.py removes double quotes but we need quotes
-echo "OPTIONS='$optstr'" >> $IFCFGFILE
-unset option
-unset optstr
-
-if [ -z "$testing" ]; then
-
-    # so that the vars get propagated into the sshd shells
-    mkdir /.ssh
-    cat >> /.ssh/environment <<EOF
-LD_LIBRARY_PATH=$LD_LIBRARY_PATH
-PATH=$PATH
-HOME=$HOME
-PYTHONPATH=$PYTHONPATH
-EOF
-
-    cat >> /etc/profile <<EOF
-LD_LIBRARY_PATH=$LD_LIBRARY_PATH
-PATH=$PATH
-HOME=$HOME
-PYTHONPATH=$PYTHONPATH
-export LD_LIBRARY_PATH PATH HOME PYTHONPATH
-EOF
-
-    if [ -n "$DISPLAY" ]; then
-        echo "export DISPLAY=$DISPLAY" >> /etc/profile
-    fi
-
-    # I'm tired of typing this out...
-    echo "loader" >> /.bash_history
-
-    echo -n $$ > /var/run/init.pid
-
-    # shutdown (halt) on SIGUSR1
-    trap doshutdown SIGUSR1
-    # reboot on SIGUSR2
-    trap doreboot SIGUSR2
-
-    startinetd
-
-    if [ -n "$RUNKS" ]; then
-        /sbin/loader
-    fi
-
-    doshutdown
-
-fi # testing
-
-# ;;; Local Variables: ***
-# ;;; mode: sh ***
-# ;;; end: ***
-- 
1.7.7.6


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]