#!/tvbin/tivosh
#
# Adjust Time Zone - 2.5.1
#
# Can be used to adjust for daylight savings as well.
#
# (c) 2002, Andrew Palm
#
# "If you break it, you own all the peices."
#
source $tcl_library/tv/Inc.itcl
source $tcl_library/tv/mfslib.tcl


set db [dbopen]
transaction {

  set setup [db $db open /Setup]


  puts "Adjusting Daylight Savings Value"

# Adjust the TimeZone value below. 
# 0 = UTC
# 16 = +10
# 17 = +11


  dbobj $setup set TimeZone 0
  dbobj $setup set DaylightSavingsPolicy 0

}
dbclose $db
unset db

event send 23 16 0
puts "Done"
sync