source /tvlib/tcl/tv/mfslib.tcl
proc setIr { irObj field irSequence } {
	set savedInitial 0
	foreach irPart $irSequence {
		if {$savedInitial == 0} {
			set savedInitial 1
			dbobj $irObj set $field $irPart
		} else {
			dbobj $irObj add $field $irPart
		}
	}
}

proc dgtec {} {

    set db [dbopen]

    puts "Setting DGTEC DH-2000A codes for TiVo 30002..."

    RetryTransaction {

        set tivoir [db $db open /Component/Ir/TivoFormat/30002]

	setIr $tivoir "Dig0" "0 52 28 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 32 32 33 32 32 32 33 32 32 32 33 32 32 32 33 32 96 32 98 32 
96 32 98 32 96 32 98 32 96 32 98 32 3240 512 129 32 258"

	setIr $tivoir "Dig1" "0 52 26 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 96 32 33 32 32 32 33 32 32 32 33 32 32 32 33 32 32 32 98 32 
96 32 98 32 96 32 98 32 96 32 98 32 258"

	setIr $tivoir "Dig2" "0 52 28 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 32 32 98 32 32 32 33 32 32 32 33 32 32 32 33 32 96 32 33 32 
96 32 98 32 96 32 98 32 96 32 98 32 3240 512 129 32 258"

	setIr $tivoir "Dig3" "0 52 26 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 96 32 98 32 32 32 33 32 32 32 33 32 32 32 33 32 32 32 33 32 
96 32 98 32 96 32 98 32 96 32 98 32 258"
    
	setIr $tivoir "Dig4" "0 52 28 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 32 32 33 32 96 32 33 32 32 32 33 32 32 32 33 32 96 32 98 32 
32 32 98 32 96 32 98 32 96 32 98 32 3240 512 129 32 258"

	setIr $tivoir "Dig5" "0 52 26 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 96 32 33 32 96 32 33 32 32 32 33 32 32 32 33 32 32 32 98 32 
32 32 98 32 96 32 98 32 96 32 98 32 258"

	setIr $tivoir "Dig6" "0 52 26 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 32 32 98 32 96 32 33 32 32 32 33 32 32 32 33 32 96 32 33 32 
32 32 98 32 96 32 98 32 96 32 98 32 258"
   
	setIr $tivoir "Dig7" "0 52 28 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 96 32 98 32 96 32 33 32 32 32 33 32 32 32 33 32 32 32 33 32 
32 32 98 32 96 32 98 32 96 32 98 32 3240 512 129 32 258"

	setIr $tivoir "Dig8" "0 53 26 2 11 738 32 30 32 95 32 30 32 32 32 30 32 
32 32 30 32 32 32 30 32 32 32 30 32 95 32 30 32 32 32 30 32 32 32 93 32 95 32 
93 32 32 32 93 32 95 32 93 32 95 32 3153 512 126 32 5336"

	setIr $tivoir "Dig9" "0 52 26 0 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 96 32 33 32 32 32 98 32 32 32 33 32 32 32 33 32 32 32 98 32 
96 32 33 32 96 32 98 32 96 32 98 32 258"

	setIr $tivoir "Enter" "0 52 26 2 512 258 32 32 32 98 32 32 32 33 32 32 32 
33 32 32 32 33 32 96 32 98 32 96 32 98 32 32 32 33 32 32 32 33 32 32 32 33 32 
32 32 33 32 96 32 98 32 96 32 98 32 3240 512 129 32 5483"
    }
	puts "Finished! Reboot your TiVo for the new codes to take effect."
	dbclose $db
}