#!/tvbin/tivosh
#
# Script to add LG satellite codes under the Zenith cable set top box object.
# This makes it possible to control a Zenith DTT900 DTV set top box when
# using a cable TV lineup.

set db [dbopen]

RetryTransaction {
    # Open LG (satellite) and Zenith (cable) set top box objects
    set LG [db $db open /Component/Type/2/LG]
    set Zenith [db $db open /Component/Type/3/ZENITH]

    # Add LG satellite codes to Zenith Cable
    foreach code [dbobj $LG get Code] {
	puts "adding LG satellite code to Zenith cable object"
	dbobj $Zenith add Code $code
    }
}

dbclose $db