<table>
<?
# Creates a table that displays the times in various locations in the
# world - davidw

headers set Refresh 60

set offices [ list "US/Pacific" "Canada/Eastern" "Universal" "Europe/Rome" "Japan" "Australia/Canberra" ]

set tzsave [ clock format [clock seconds] -format %Z ]
set tm [ clock seconds ]
set clockformat "%a %e %b %Y %r %Z%z"

foreach office $offices {
    hputs "<tr><th align=left>$office</th><td><tt>"
    set env(TZ) "$office"
    hputs [ clock format $tm -format "$clockformat" ]
    hputs "</tt></td></tr>"
}
unset env(TZ)
?>
</table>