#!/tvbin/tivosh
# Written by Andrew Tridgell

source $tcl_library/tv/log.tcl
source $tcl_library/tv/sendkey.tcl

set db [dbopen]

puts "Indexing SeriesStation"
dbindex $db SeriesStation

puts "Indexing Showing"
dbindex $db Showing

puts "Indexing StationDay"
dbindex $db StationDay

event send $TmkEvent::EVT_DATA_CHANGED $TmkDataChanged::PROGRAM_GUIDE 0
