4c8945a06b
dialog is distributed from GPLv2 to LGPLv2 and introduces a number of new features and a new and better libdialog API. The existing libdialog will be kept temporarily as libodialog for compatibility purposes until sade, sysinstall and tzsetup have been either updated or replaced. __FreeBSD_version is now 900030. Discussed on: -current Approved by: core Obtained from: http://invisible-island.net/dialog
72 lines
1.3 KiB
Bash
Executable File
72 lines
1.3 KiB
Bash
Executable File
#! /bin/sh
|
||
# $Id: form1-utf8,v 1.7 2010/01/13 10:47:35 tom Exp $
|
||
|
||
. ./setup-vars
|
||
|
||
. ./setup-utf8
|
||
|
||
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="ＤＯＧ"
|
||
home=/usr/home/$user
|
||
|
||
returncode=0
|
||
while test $returncode != 1 && test $returncode != 250
|
||
do
|
||
exec 3>&1
|
||
value=`$DIALOG --ok-label "Submit" \
|
||
--backtitle "$backtitle" \
|
||
--insecure "$@" \
|
||
--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 "$value" |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
|
||
;;
|
||
*)
|
||
echo "Return code was $returncode"
|
||
exit
|
||
;;
|
||
esac
|
||
done
|