#!/tvbin/tivosh

source /tvlib/tcl/tv/mfslib.tcl

set db [dbopen]
RetryTransaction {
    try {
	# Open Magnavox dtv and cable box objects
	set mag_dtv [db $db open /Component/Type/6/MAGNAVOX]
	set mag_cable [db $db open /Component/Type/3/MAGNAVOX]

	# Add Magnavox DTV satellite codes to the CableBox db
	foreach code [dbobj $mag_dtv get Code] {
	    dbobj $mag_dtv add Code $code
	}
	puts "Added Magnavox dtv remote codes to cable box db"
    } catch errCode {
        puts "No DTV set top box codes found, is your ir slice up to date?"
    }
}

dbclose $db