dwww Home | Show directory contents | Find package

#! /bin/sh
# $Id: form1,v 1.18 2020/11/26 00:34:39 tom Exp $

. ./setup-vars

DIALOG_ERROR=254
export DIALOG_ERROR

backtitle="An Example for the use of --form:"

ids=`id|sed -e 's/([^)]*)//g'`
uid=`echo "$ids" | sed -e 's/^uid=//' -e 's/ .*//'`
gid=`echo "$ids" | sed -e 's/^.* gid=//' -e 's/ .*//'`

user="$USER"
home="$HOME"

returncode=0
while test $returncode != 1 && test $returncode != 250
do
exec 3>&1
returntext=`$DIALOG --ok-label "Submit" \
          --backtitle "$backtitle" "$@" \
          --form "Here is a possible piece of a configuration program." \
20 50 0 \
        "Username:" 1 1 "$user" 1 10 10 0 \
        "UID:"      2 1 "$uid"  2 10  8 0 \
        "GID:"      3 1 "$gid"  3 10  8 0 \
        "HOME:"     4 1 "$home" 4 10 40 0 \
2>&1 1>&3`
returncode=$?
exec 3>&-

show=`echo "$returntext" |sed -e 's/^/  /'`

        case $returncode in
        $DIALOG_CANCEL)
                "$DIALOG" \
                --clear \
                --backtitle "$backtitle" \
                --yesno "Really quit?" 10 30
                case $? in
                $DIALOG_OK)
                        break
                        ;;
                $DIALOG_CANCEL)
                        returncode=99
                        ;;
                esac
                ;;
        $DIALOG_OK)
                "$DIALOG" \
                --clear \
                --backtitle "$backtitle" --no-collapse --cr-wrap \
                --msgbox "Resulting data:\n\
$show" 10 40
                ;;
        $DIALOG_HELP)
                echo "Button 2 (Help) pressed."
                exit
                ;;
        $DIALOG_EXTRA)
                echo "Button 3 (Extra) pressed."
                exit
                ;;
        *)
                . ./report-button
                exit
                ;;
        esac
done

Generated by dwww version 1.15 on Sun Jun 30 10:35:49 CEST 2024.