Quelle  tzselect.ksh   Sprache: Shell

#! /bin/ksh

# '@(#)tzselect.ksh 8.1'

# 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.

# 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=awk}
: ${TZDIR=$(pwd)}

# 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"