summaryrefslogtreecommitdiff
path: root/elsie.nci.nih.gov
diff options
context:
space:
mode:
authorStuart Bishop <stuart.bishop@canonical.com>2005-05-13 11:04:55 +0000
committerStuart Bishop <stuart.bishop@canonical.com>2005-05-13 11:04:55 +0000
commit03a6480776a020fd5c311c0077bdcd72f1ca733a (patch)
treeb9e35daa709c4eb731c6004e8731d6a4fd4f5173 /elsie.nci.nih.gov
parent0397e36f6118cb40246a1d841a79faecb8bde5dd (diff)
downloadpytz-03a6480776a020fd5c311c0077bdcd72f1ca733a.tar.gz
Merge Makefile fixes from James Henstridge and tweak
Patches applied: * james.henstridge@canonical.com--2004/pytz--devel--1--base-0 tag of pytz@products.ubuntu.com/pytz--MAIN--0--patch-74 * james.henstridge@canonical.com--2004/pytz--devel--1--patch-1 get makefile hooked up * james.henstridge@canonical.com--2004/pytz--devel--1--patch-2 merge from stub's branch, clean up makefiles
Diffstat (limited to 'elsie.nci.nih.gov')
-rwxr-xr-xelsie.nci.nih.gov/src/tzselect308
1 files changed, 0 insertions, 308 deletions
diff --git a/elsie.nci.nih.gov/src/tzselect b/elsie.nci.nih.gov/src/tzselect
deleted file mode 100755
index 9111742..0000000
--- a/elsie.nci.nih.gov/src/tzselect
+++ /dev/null
@@ -1,308 +0,0 @@
-#! /bin/ksh
-
-# '@(#)tzselect.ksh 1.7'
-
-# Ask the user about the time zone, and output the resulting TZ value to stdout.
-# Interact with the user via stderr and stdin.
-
-# Contributed by Paul Eggert <eggert@twinsun.com>.
-
-# Porting notes:
-#
-# This script requires several features of the Korn shell.
-# If your host lacks the Korn shell,
-# you can use either of the following free programs instead:
-#
-# <a href=ftp://ftp.gnu.org/pub/gnu/>
-# Bourne-Again shell (bash)
-# </a>
-#
-# <a href=ftp://ftp.cs.mun.ca/pub/pdksh/pdksh.tar.gz>
-# Public domain ksh
-# </a>
-#
-# This script also uses several features of modern awk programs.
-# If your host lacks awk, or has an old awk that does not conform to Posix.2,
-# you can use either of the following free programs instead:
-#
-# <a href=ftp://ftp.gnu.org/pub/gnu/>
-# GNU awk (gawk)
-# </a>
-#
-# <a href=ftp://ftp.whidbey.net/pub/brennan/>
-# mawk
-# </a>
-
-
-# Specify default values for environment variables if they are unset.
-: ${AWK=nawk}
-: ${TZDIR=/home/stub/src/pytz/build/etc/zoneinfo}
-
-# Check for awk Posix compliance.
-($AWK -v x=y 'BEGIN { exit 123 }') </dev/null >/dev/null 2>&1
-[ $? = 123 ] || {
- echo >&2 "$0: Sorry, your \`$AWK' program is not Posix compatible."
- exit 1
-}
-
-# Make sure the tables are readable.
-TZ_COUNTRY_TABLE=$TZDIR/iso3166.tab
-TZ_ZONE_TABLE=$TZDIR/zone.tab
-for f in $TZ_COUNTRY_TABLE $TZ_ZONE_TABLE
-do
- <$f || {
- echo >&2 "$0: time zone files are not set up correctly"
- exit 1
- }
-done
-
-newline='
-'
-IFS=$newline
-
-
-# Work around a bug in bash 1.14.7 and earlier, where $PS3 is sent to stdout.
-case $(echo 1 | (select x in x; do break; done) 2>/dev/null) in
-?*) PS3=
-esac
-
-
-# Begin the main loop. We come back here if the user wants to retry.
-while
-
- echo >&2 'Please identify a location' \
- 'so that time zone rules can be set correctly.'
-
- continent=
- country=
- region=
-
-
- # Ask the user for continent or ocean.
-
- echo >&2 'Please select a continent or ocean.'
-
- select continent in \
- Africa \
- Americas \
- Antarctica \
- 'Arctic Ocean' \
- Asia \
- 'Atlantic Ocean' \
- Australia \
- Europe \
- 'Indian Ocean' \
- 'Pacific Ocean' \
- 'none - I want to specify the time zone using the Posix TZ format.'
- do
- case $continent in
- '')
- echo >&2 'Please enter a number in range.';;
- ?*)
- case $continent in
- Americas) continent=America;;
- *' '*) continent=$(expr "$continent" : '\([^ ]*\)')
- esac
- break
- esac
- done
- case $continent in
- '')
- exit 1;;
- none)
- # Ask the user for a Posix TZ string. Check that it conforms.
- while
- echo >&2 'Please enter the desired value' \
- 'of the TZ environment variable.'
- echo >&2 'For example, GST-10 is a zone named GST' \
- 'that is 10 hours ahead (east) of UTC.'
- read TZ
- $AWK -v TZ="$TZ" 'BEGIN {
- tzname = "[^-+,0-9][^-+,0-9][^-+,0-9]+"
- time = "[0-2]?[0-9](:[0-5][0-9](:[0-5][0-9])?)?"
- offset = "[-+]?" time
- date = "(J?[0-9]+|M[0-9]+\.[0-9]+\.[0-9]+)"
- datetime = "," date "(/" time ")?"
- tzpattern = "^(:.*|" tzname offset "(" tzname \
- "(" offset ")?(" datetime datetime ")?)?)$"
- if (TZ ~ tzpattern) exit 1
- exit 0
- }'
- do
- echo >&2 "\`$TZ' is not a conforming" \
- 'Posix time zone string.'
- done
- TZ_for_date=$TZ;;
- *)
- # Get list of names of countries in the continent or ocean.
- countries=$($AWK -F'\t' \
- -v continent="$continent" \
- -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \
- '
- /^#/ { next }
- $3 ~ ("^" continent "/") {
- if (!cc_seen[$1]++) cc_list[++ccs] = $1
- }
- END {
- while (getline <TZ_COUNTRY_TABLE) {
- if ($0 !~ /^#/) cc_name[$1] = $2
- }
- for (i = 1; i <= ccs; i++) {
- country = cc_list[i]
- if (cc_name[country]) {
- country = cc_name[country]
- }
- print country
- }
- }
- ' <$TZ_ZONE_TABLE | sort -f)
-
-
- # If there's more than one country, ask the user which one.
- case $countries in
- *"$newline"*)
- echo >&2 'Please select a country.'
- select country in $countries
- do
- case $country in
- '') echo >&2 'Please enter a number in range.';;
- ?*) break
- esac
- done
-
- case $country in
- '') exit 1
- esac;;
- *)
- country=$countries
- esac
-
-
- # Get list of names of time zone rule regions in the country.
- regions=$($AWK -F'\t' \
- -v country="$country" \
- -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \
- '
- BEGIN {
- cc = country
- while (getline <TZ_COUNTRY_TABLE) {
- if ($0 !~ /^#/ && country == $2) {
- cc = $1
- break
- }
- }
- }
- $1 == cc { print $4 }
- ' <$TZ_ZONE_TABLE)
-
-
- # If there's more than one region, ask the user which one.
- case $regions in
- *"$newline"*)
- echo >&2 'Please select one of the following' \
- 'time zone regions.'
- select region in $regions
- do
- case $region in
- '') echo >&2 'Please enter a number in range.';;
- ?*) break
- esac
- done
- case $region in
- '') exit 1
- esac;;
- *)
- region=$regions
- esac
-
- # Determine TZ from country and region.
- TZ=$($AWK -F'\t' \
- -v country="$country" \
- -v region="$region" \
- -v TZ_COUNTRY_TABLE="$TZ_COUNTRY_TABLE" \
- '
- BEGIN {
- cc = country
- while (getline <TZ_COUNTRY_TABLE) {
- if ($0 !~ /^#/ && country == $2) {
- cc = $1
- break
- }
- }
- }
- $1 == cc && $4 == region { print $3 }
- ' <$TZ_ZONE_TABLE)
-
- # Make sure the corresponding zoneinfo file exists.
- TZ_for_date=$TZDIR/$TZ
- <$TZ_for_date || {
- echo >&2 "$0: time zone files are not set up correctly"
- exit 1
- }
- esac
-
-
- # Use the proposed TZ to output the current date relative to UTC.
- # Loop until they agree in seconds.
- # Give up after 8 unsuccessful tries.
-
- extra_info=
- for i in 1 2 3 4 5 6 7 8
- do
- TZdate=$(LANG=C TZ="$TZ_for_date" date)
- UTdate=$(LANG=C TZ=UTC0 date)
- TZsec=$(expr "$TZdate" : '.*:\([0-5][0-9]\)')
- UTsec=$(expr "$UTdate" : '.*:\([0-5][0-9]\)')
- case $TZsec in
- $UTsec)
- extra_info="
-Local time is now: $TZdate.
-Universal Time is now: $UTdate."
- break
- esac
- done
-
-
- # Output TZ info and ask the user to confirm.
-
- echo >&2 ""
- echo >&2 "The following information has been given:"
- echo >&2 ""
- case $country+$region in
- ?*+?*) echo >&2 " $country$newline $region";;
- ?*+) echo >&2 " $country";;
- +) echo >&2 " TZ='$TZ'"
- esac
- echo >&2 ""
- echo >&2 "Therefore TZ='$TZ' will be used.$extra_info"
- echo >&2 "Is the above information OK?"
-
- ok=
- select ok in Yes No
- do
- case $ok in
- '') echo >&2 'Please enter 1 for Yes, or 2 for No.';;
- ?*) break
- esac
- done
- case $ok in
- '') exit 1;;
- Yes) break
- esac
-do :
-done
-
-case $SHELL in
-*csh) file=.login line="setenv TZ '$TZ'";;
-*) file=.profile line="TZ='$TZ'; export TZ"
-esac
-
-echo >&2 "
-You can make this change permanent for yourself by appending the line
- $line
-to the file '$file' in your home directory; then log out and log in again.
-
-Here is that TZ value again, this time on standard output so that you
-can use the $0 command in shell scripts:"
-
-echo "$TZ"