Oops, cleanup and move the license to the standard location
[matthijs/upstream/backupninja.git] / handlers / easydialog.sh
1 #!/bin/bash
2
3 # copyright 2002 lmoore@tump.com under the terms of the GNU LGPL.
4 # additions 2005 collective@riseup.net
5
6 # whiptail has trouble being called in the foo=$(whiptail ...) fashion for
7 # some reason.  this is very annoying.  this means that we need to use
8 # temporary files to store the answers from the input and list based boxes
9 # and then read the answers into a REPLY variable.  that just really
10 # stinks, oh well, that's what you get when you have a weak link
11 # implementation...
12 #
13 # inputBox and passwordBox could be refactored to use a common function
14
15 test -z "$WIDTH" && WIDTH=0
16 test -z "$HEIGHT" && HEIGHT=0
17 BACKTITLE=""
18 DIALOG=dialog
19 HELP=
20
21 setApplicationTitle() {
22     BACKTITLE=$*
23 }
24
25 setHelp() {
26     HELP="$@"
27 }
28
29 setDimension() {
30     WIDTH=$1
31     HEIGHT=$2
32 }
33
34 booleanBox() {
35     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
36         --yesno "$2" $HEIGHT $WIDTH
37 }
38
39 msgBox() {
40     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
41         --msgbox "$2" $HEIGHT $WIDTH
42 }
43
44 gaugeBox() {
45     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
46         --gauge "$2" $HEIGHT $WIDTH 0
47 }
48
49 inputBox() {
50     local temp=$(mktemp -t) || exit 1
51     trap "rm -f $temp" 0
52     REPLY=
53     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
54         --inputbox "$2" $HEIGHT $WIDTH "$3" 2> $temp
55     local status=$?
56     [ $status = 0 ] && REPLY=$(cat $temp)
57     rm -f $temp
58     return $status
59 }
60
61 # Xdialog and {dialog,whiptail} use different mechanism to "qoute" the
62 # values from a checklist.  {dialog,whiptail} uses standard double quoting
63 # while Xdialog uses a "/" as the separator.  the slash is arguably better,
64 # but the double quoting is more standard.  anyway, this function can be
65 # overridden to allow a derived implementation to change it's quoting
66 # mechanism to the standard double-quoting one.  it receives two
67 # arguements, the file that has the data and the box type.
68 _listReplyHook() {
69     cat $1
70 }
71
72 # this is the base implementation of all the list based boxes, it works
73 # out nicely that way.  the real function just passes it's arguments to
74 # this function with an extra argument specifying the actual box that
75 # needs to be rendered.
76 _genericListBox() {
77     local box=$1
78     shift 1
79     local title=$1
80     local text=$2
81     shift 2
82     local temp=$(mktemp -t) || exit 1
83     trap "rm -f $temp" 0
84     REPLY=
85     $DIALOG $HELP $_DEFAULT --backtitle "$BACKTITLE" --title "$title" \
86         $box "$text" $HEIGHT $WIDTH 10 \
87         "$@" 2> $temp
88     local status=$?
89     [ $status = 0 ] && REPLY=$(_listReplyHook $temp $box)
90     rm -f $temp
91     _DEFAULT=
92     return $status
93 }
94
95 setDefault() {
96   _DEFAULT="--default-item $1"
97 }
98
99 menuBox() {
100     _genericListBox --menu "$@"
101 }
102
103 ## a menu box with additional help info displayed
104 ## at the bottom of the window when an item is selected
105 menuBoxHelp() {
106         HELP="--item-help"
107         _genericListBox --menu "$@"
108         status=$?
109         HELP=
110         return $status
111 }
112
113 ## a menu box with an addition button 'help'
114 menuBoxHelpFile() {
115         HELP="--help-button"
116         _genericListBox --menu "$@"
117         status=$?
118         HELP=
119         return $status
120 }
121
122 checkBox() {
123     _genericListBox --checklist "$@"
124 }
125
126 radioBox() {
127     _genericListBox --radiolist "$@"
128 }
129
130 textBox() {
131     $DIALOG --backtitle "$BACKTITLE" --title "$1" --textbox "$2" $HEIGHT $WIDTH
132 }
133
134 passwordBox() {
135     local temp=$(mktemp -t) || exit 1
136     trap "rm -f $temp" 0
137     REPLY=
138     $DIALOG --backtitle "$BACKTITLE" --title "$1" \
139         --passwordbox "$2" $HEIGHT $WIDTH 2> $temp
140     local status=$?
141     [ $status = 0 ] && REPLY=$(cat $temp)
142     rm -f $temp
143     return $status
144 }
145
146
147 #########################################################
148 ## begin-item-display style lists
149 ## 
150 ## these lists are built by calling fuctions multiple times.
151 ## this can make it easier to build your list in a loop
152 ##
153
154 listBegin() {
155    _menu_title=$1
156    _menu_msg=$2
157    _menu_items=0
158    _menu_text=
159    _menu_labels=
160 }
161
162 listItem() {
163    _menu_labels[$_menu_items]=$1
164    _menu_text[$_menu_items]=$2
165    let "_menu_items += 1"
166 }
167
168
169 ##
170 ## takes one of:
171 ## menu, checklist, radiolist
172 ##
173 listDisplay() {
174    boxtype=$1
175    local temp=$(mktemp -t) || exit 1
176    trap "rm -f $temp" 0
177    
178    (
179       echo -ne " $HELP $_DEFAULT "
180       echo -ne " --backtitle '$BACKTITLE' "
181       echo -ne " --title '$_menu_title' "
182       echo -ne " --$boxtype '$_menu_msg' "
183       echo -ne " $HEIGHT $WIDTH 10 "
184       for ((i=0; i < $_menu_items ; i++)); do
185         label=${_menu_labels[$i]}
186         text=${_menu_text[$i]}
187         echo -ne " $label '$text' "
188       done
189    ) | xargs $DIALOG 2> $temp
190    
191    local status=$?
192    REPLY=""
193    [ $status = 0 ] && REPLY=`cat $temp`
194    rm -f $temp
195    _DEFAULT=
196    return $status
197 }
198
199 ####################################################
200 ## FORM
201
202 _form_gap=2
203 formBegin() {
204    _form_title=$1
205    _form_items=0
206    _form_labels=
207    _form_text=
208 }
209
210 formItem() {
211    _form_labels[$_form_items]=$1
212    _form_text[$_form_items]=$2
213    let "_form_items += 1"
214 }
215     
216 formDisplay() {
217    local temp=$(mktemp -t) || exit 1
218    
219    max_length=0
220    for ((i=0; i < ${#_form_labels[@]} ; i++)); do
221       label=${_form_labels[$i]}
222       length=`expr length $label`
223       if [ $length -gt $max_length ]; then
224          max_length=$length
225       fi
226    done
227    let "max_length += 2"
228     
229    local xpos=1
230    (
231       echo -n -e "--form '$_form_title' 0 0 20"
232       for ((i=0; i < $_form_items ; i++)); do
233         label=${_form_labels[$i]}
234         text=${_form_text[$i]}
235         echo -n -e " $label $xpos 1 '$text' $xpos $max_length 30 30"
236         let "xpos += _form_gap"
237       done
238    ) | xargs $DIALOG 2> $temp
239    local status=$?
240    
241    if [ $status = 0 ]; then
242       IFS=$''
243       REPLY=`cat $temp`
244       IFS=$' \t\n'
245    fi
246    rm -f $temp
247    return $status
248 }