#!/tvbin/tivosh
#
# Adjust Time Zone - 3.0
#
# (c) 2003 Javier Rodriguez
#
source $tcl_library/tv/Inc.itcl
source $tcl_library/tv/mfslib.tcl
set db [dbopen]
    try {
	RetryTransaction {
  set setup [db $db open /State/LocationConfig]
# Adjust the TimeZone value below. 
# 0 = UTC
# 2 = ?
# 3 = EST
# 16 = +10
# 17 = +11
  dbobj $setup set TimeZoneOld 2
#  dbobj $setup set DaylightSavingsPolicy 0

}
} catch errCode {
	puts "Failed to set TimeZone, code=($errCode)"
	return 0
}
dbclose $db
unset db

event send $TmkEvent::EVT_DATA_CHANGED $TmkDataChanged::PROGRAM_GUIDE 0
#event send 23 16 0
puts "Done"
sync