set db [dbopen]
transaction {

  set setup [db $db open /Setup]
  set sources [dbobj $setup get Source]

  puts "Creating SignalSource: S-Video"
  set source [db $db createsub SignalSource $setup]
  dbobj $source set ProviderName "S-Video Input"
  dbobj $source set SignalType 5
  dbobj $source set Connector 5 ;# RFIn(1)/Composite(3)/SVideo(5) <----
  dbobj $source set RFChannel 2
  dbobj $source set CableBoxCodeNum 0
  dbobj $source set LineupType 0
  dbobj $setup add Source $source
 
  puts "Creating station: S-Video"
  set station [db $db create Station]
  dbobj $station set CallSign "SVideo" ;# Change me and the one below 4 whateva
  dbobj $station set Name "SVideo"
  dbobj $station set Affiliation TiVo

  puts "Creating channel: 1"
  set channel [db $db createsub Channel $setup]
  dbobj $channel set Station $station
  dbobj $channel set SourceIndex 1
  dbobj $channel set Number 98 ;# Change me for the channel #
  dbobj $channel set Surf 0
  dbobj $channel set Favorite 0
  dbobj $channel set Record 0
  dbobj $source add Channel $channel

}