Welcome to the CHICKEN Scheme pasting service

$ wdate
Fri Oct 21 15:27:40 PDT 2011 (America/Los_Angeles)
Fri Oct 21 18:27:41 EDT 2011 (America/New_York)
Fri Oct 21 22:27:41 UTC 2011 (UTC)
Fri Oct 21 23:27:41 BST 2011 (Europe/London)
Sat Oct 22 00:27:41 CEST 2011 (Europe/Rome)
Sat Oct 22 08:57:41 CST 2011 (Australia/Adelaide)


$ more ~/bin/wdate
#!/bin/sh

if [ 0 != $# ]; then
        for t in $@; do
                S_ZONES="$S_ZONES -e $t"
        done
        ZONES=`find /usr/share/zoneinfo/ -type f | grep -v -e right -e zone.tab| sed -e 's#/usr/share/zoneinfo/##' -e 's#posix/##'
 |sort -u | grep -ix $S_ZONES`
else
        ZONES="America/Los_Angeles America/New_York UTC Europe/London Europe/Rome Australia/Adelaide"
fi

for t in $ZONES; do
        d=`TZ=$t date`
        echo "$d ($t)"
done