form4 revision 217309
1217309Snwhitehorn#! /bin/sh 2217309Snwhitehorn# $Id: form4,v 1.6 2010/01/13 10:49:52 tom Exp $ 3217309Snwhitehorn# form3 with --item-help 4217309Snwhitehorn 5217309Snwhitehorn. ./setup-vars 6217309Snwhitehorn 7217309Snwhitehornbacktitle="An Example for the use of --form:" 8217309Snwhitehorn 9217309Snwhitehornids=`id|sed -e 's/([^)]*)//g'` 10217309Snwhitehornuid=`echo "$ids" | sed -e 's/^uid=//' -e 's/ .*//'` 11217309Snwhitehorngid=`echo "$ids" | sed -e 's/^.* gid=//' -e 's/ .*//'` 12217309Snwhitehorn 13217309Snwhitehornuser="$USER" 14217309Snwhitehornhome="$HOME" 15217309Snwhitehorn 16217309Snwhitehornreturncode=0 17217309Snwhitehornwhile test $returncode != 1 && test $returncode != 250 18217309Snwhitehorndo 19217309Snwhitehornexec 3>&1 20217309Snwhitehornvalue=`$DIALOG --ok-label "Submit" \ 21217309Snwhitehorn --help-button \ 22217309Snwhitehorn --item-help \ 23217309Snwhitehorn --backtitle "$backtitle" "$@" \ 24217309Snwhitehorn --form "Here is a possible piece of a configuration program." \ 25217309Snwhitehorn20 50 0 \ 26217309Snwhitehorn "Username:" 1 1 "$user" 1 10 10 0 "Login name" \ 27217309Snwhitehorn "UID:" 2 1 "$uid" 2 10 8 0 "User ID" \ 28217309Snwhitehorn "GID:" 3 1 "$gid" 3 10 8 0 "Group ID" \ 29217309Snwhitehorn "HOME:" 4 1 "$home" 4 10 40 0 "User's home-directory" \ 30217309Snwhitehorn2>&1 1>&3` 31217309Snwhitehornreturncode=$? 32217309Snwhitehornexec 3>&- 33217309Snwhitehorn 34217309Snwhitehornshow=`echo "$value" |sed -e 's/^/ /'` 35217309Snwhitehorn 36217309Snwhitehorn case $returncode in 37217309Snwhitehorn $DIALOG_CANCEL) 38217309Snwhitehorn "$DIALOG" \ 39217309Snwhitehorn --clear \ 40217309Snwhitehorn --backtitle "$backtitle" \ 41217309Snwhitehorn --yesno "Really quit?" 10 30 42217309Snwhitehorn case $? in 43217309Snwhitehorn $DIALOG_OK) 44217309Snwhitehorn break 45217309Snwhitehorn ;; 46217309Snwhitehorn $DIALOG_CANCEL) 47217309Snwhitehorn returncode=99 48217309Snwhitehorn ;; 49217309Snwhitehorn esac 50217309Snwhitehorn ;; 51217309Snwhitehorn $DIALOG_OK) 52217309Snwhitehorn "$DIALOG" \ 53217309Snwhitehorn --clear \ 54217309Snwhitehorn --backtitle "$backtitle" --no-collapse --cr-wrap \ 55217309Snwhitehorn --msgbox "Resulting data:\n\ 56217309Snwhitehorn$show" 10 40 57217309Snwhitehorn ;; 58217309Snwhitehorn $DIALOG_HELP) 59217309Snwhitehorn "$DIALOG" \ 60217309Snwhitehorn --clear \ 61217309Snwhitehorn --backtitle "$backtitle" --no-collapse --cr-wrap \ 62217309Snwhitehorn --msgbox "Help data:\n\ 63217309Snwhitehorn$show" 10 40 64217309Snwhitehorn ;; 65217309Snwhitehorn *) 66217309Snwhitehorn echo "Return code was $returncode" 67217309Snwhitehorn exit 68217309Snwhitehorn ;; 69217309Snwhitehorn esac 70217309Snwhitehorndone 71