Fix typo.
[kopensolaris-gnu/glibc.git] / time / tzselect.ksh
1 #! @KSH@
2 # Ask the user about the time zone, and output the resulting TZ value to stdout.
3 # Interact with the user via stderr and stdin.
4
5 # Contributed by Paul Eggert <eggert@twinsun.com>.
6
7 # Porting notes:
8 #
9 # This script requires several features of the Korn shell.
10 # If your host lacks the Korn shell,
11 # you can use either of the following free programs instead:
12 #
13 #       Bourne-Again shell (bash)
14 #       <URL:ftp://ftp.gnu.ai.mit.edu/pub/gnu/>
15 #
16 #       Public domain ksh
17 #       <URL:ftp://ftp.cs.mun.ca/pub/pdksh/pdksh.tar.gz>
18 #
19 # This script also uses several features of modern awk programs.
20 # If your host lacks awk, or has an old awk that does not conform to Posix.2,
21 # you can use either of the following free programs instead:
22 #
23 #       GNU awk (gawk)
24 #       <URL:ftp://ftp.gnu.ai.mit.edu/pub/gnu/>
25 #
26 #       mawk
27 #       <URL:ftp://ftp.whidbey.net/pub/brennan/>
28
29
30 # Specify default values for environment variables if they are unset.
31 : ${AWK=awk}
32 : ${TZDIR=@TZDIR@}
33
34 # Check for awk Posix compliance.
35 ($AWK -v x=y 'BEGIN { exit 123 }') </dev/null >/dev/null 2>&1
36 [ $? = 123 ] || {
37         echo >&2 "$0: Sorry, your \`$AWK' program is not Posix compatible."
38         exit 1
39 }
40
41 # Make sure the tables are readable.
42 TZ_COUNTRY_TABLE=$TZDIR/iso3166.tab
43 TZ_ZONE_TABLE=$TZDIR/zone.tab
44 for f in $TZ_COUNTRY_TABLE $TZ_ZONE_TABLE
45 do
46         <$f || {
47                 echo >&2 "$0: time zone files are not set up correctly"
48                 exit 1
49         }
50 done
51
52 newline='
53 '
54 IFS=$newline
55
56
57 # Work around a bug in bash 1.14.7 and earlier, where $PS3 is sent to stdout.
58 case $(echo 1 | (select x in x; do break; done) 2>/dev/null) in
59 ?*) PS3=
60 esac
61
62
63 # Begin the main loop.  We come back here if the user wants to retry.
64 while
65
66         echo >&2 'Please identify a location' \
67                 'so that time zone rules can be set correctly.'
68
69         continent=
70         country=
71         region=
72
73
74         # Ask the user for continent or ocean.
75
76         echo >&2 'Please select a continent or ocean.'
77
78         select continent in \
79             Africa \
80             Americas \
81             Antarctica \
82             'Arctic Ocean' \
83             Asia \
84             'Atlantic Ocean' \
85             Australia \
86             Europe \
87             'Indian Ocean' \
88             'Pacific Ocean' \
89             'none - I want to specify the time zone using the Posix TZ format.'
90         do
91             case $continent in
92             '')
93                 echo >&2 'Please enter a number in range.';;
94             ?*)
95                 case $continent in
96                 Americas) continent=America;;
97                 *' '*) continent=$(expr "$continent" : '\([^ ]*\)')
98                 esac
99                 break
100             esac
101         done
102         case $continent in
103         '')
104                 exit 1;;
105         none)
106                 # Ask the user for a Posix TZ string.  Check that it conforms.
107                 while
108                         echo >&2 'Please enter the desired value' \
109                                 'of the TZ environment variable.'
110                         echo >&2 'For example, GST-10 is a zone named GST' \
111                                 'that is 10 hours ahead (east) of UTC.'
112                         read TZ
113                         $AWK -v TZ="$TZ" 'BEGIN {
114                                 tzname = "[^-+,0-9][^-+,0-9][^-+,0-9]+"
115                                 time = "[0-2]?[0-9](:[0-5][0-9](:[0-5][0-9])?)?"
116                                 offset = "[-+]?" time
117                                 date = "(J?[0-9]+|M[0-9]+\.[0-9]+\.[0-9]+)"
118                                 datetime = "," date "(/" time ")?"
119                                 tzpattern = "^(:.*|" tzname offset "(" tzname \
120                                   "(" offset ")?(" datetime datetime ")?)?)$"
121                                 if (TZ ~ tzpattern) exit 1
122                                 exit 0
123                         }'
124                 do
125                         echo >&2 "\`$TZ' is not a conforming" \
126                                 'Posix time zone string.'
127                 done
128                 TZ_for_date=$TZ;;
129         *)
130                 # Get list of names of countries in the continent or ocean.
131                 countries=$($AWK -F'\t' \
132                         -v continent="$continent" \
133                         -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \
134                 '
135                         /^#/ { next }
136                         $3 ~ ("^" continent "/") {
137                                 if (!cc_seen[$1]++) cc_list[++ccs] = $1
138                         }
139                         END {
140                                 while (getline <TZ_COUNTRY_TABLE) {
141                                         if ($0 !~ /^#/) cc_name[$1] = $2
142                                 }
143                                 for (i = 1; i <= ccs; i++) {
144                                         country = cc_list[i]
145                                         if (cc_name[country]) {
146                                           country = cc_name[country]
147                                         }
148                                         print country
149                                 }
150                         }
151                 ' <$TZ_ZONE_TABLE | sort -f)
152
153
154                 # If there's more than one country, ask the user which one.
155                 case $countries in
156                 *"$newline"*)
157                         echo >&2 'Please select a country.'
158                         select country in $countries
159                         do
160                             case $country in
161                             '') echo >&2 'Please enter a number in range.';;
162                             ?*) break
163                             esac
164                         done
165
166                         case $country in
167                         '') exit 1
168                         esac;;
169                 *)
170                         country=$countries
171                 esac
172
173
174                 # Get list of names of time zone rule regions in the country.
175                 regions=$($AWK -F'\t' \
176                         -v country="$country" \
177                         -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \
178                 '
179                         BEGIN {
180                                 cc = country
181                                 while (getline <TZ_COUNTRY_TABLE) {
182                                         if ($0 !~ /^#/  &&  country == $2) {
183                                                 cc = $1
184                                                 break
185                                         }
186                                 }
187                         }
188                         $1 == cc { print $4 }
189                 ' <$TZ_ZONE_TABLE)
190
191
192                 # If there's more than one region, ask the user which one.
193                 case $regions in
194                 *"$newline"*)
195                         echo >&2 'Please select one of the following' \
196                                 'time zone regions.'
197                         select region in $regions
198                         do
199                                 case $region in
200                                 '') echo >&2 'Please enter a number in range.';;
201                                 ?*) break
202                                 esac
203                         done
204                         case $region in
205                         '') exit 1
206                         esac;;
207                 *)
208                         region=$regions
209                 esac
210
211                 # Determine TZ from country and region.
212                 TZ=$($AWK -F'\t' \
213                         -v country="$country" \
214                         -v region="$region" \
215                         -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \
216                 '
217                         BEGIN {
218                                 cc = country
219                                 while (getline <TZ_COUNTRY_TABLE) {
220                                         if ($0 !~ /^#/  &&  country == $2) {
221                                                 cc = $1
222                                                 break
223                                         }
224                                 }
225                         }
226                         $1 == cc && $4 == region { print $3 }
227                 ' <$TZ_ZONE_TABLE)
228
229                 # Make sure the corresponding zoneinfo file exists.
230                 TZ_for_date=$TZDIR/$TZ
231                 <$TZ_for_date || {
232                         echo >&2 "$0: time zone files are not set up correctly"
233                         exit 1
234                 }
235         esac
236
237
238         # Use the proposed TZ to output the current date relative to UTC.
239         # Loop until they agree in seconds.
240         # Give up after 8 unsuccessful tries.
241
242         extra_info=
243         for i in 1 2 3 4 5 6 7 8
244         do
245                 TZdate=$(LANG=C TZ="$TZ_for_date" date)
246                 UTdate=$(LANG=C TZ=UTC0 date)
247                 TZsec=$(expr "$TZdate" : '.*:\([0-5][0-9]\)')
248                 UTsec=$(expr "$UTdate" : '.*:\([0-5][0-9]\)')
249                 case $TZsec in
250                 $UTsec)
251                         extra_info="
252 Local time is now:      $TZdate.
253 Universal Time is now:  $UTdate."
254                         break
255                 esac
256         done
257
258
259         # Output TZ info and ask the user to confirm.
260
261         echo >&2 ""
262         echo >&2 "The following information has been given:"
263         echo >&2 ""
264         case $country+$region in
265         ?*+?*)  echo >&2 "      $country$newline        $region";;
266         ?*+)    echo >&2 "      $country";;
267         +)      echo >&2 "      TZ='$TZ'"
268         esac
269         echo >&2 ""
270         echo >&2 "Therefore TZ='$TZ' will be used.$extra_info"
271         echo >&2 "Is the above information OK?"
272
273         ok=
274         select ok in Yes No
275         do
276             case $ok in
277             '') echo >&2 'Please enter 1 for Yes, or 2 for No.';;
278             ?*) break
279             esac
280         done
281         case $ok in
282         '') exit 1;;
283         Yes) break
284         esac
285 do :
286 done
287
288 # Output the answer.
289 echo "$TZ"