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 lg {} {

    set db [dbopen]

    puts "Setting LG AF993W codes for TiVo 10020..."

    RetryTransaction {

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

        setIr $tivoir "Dig0" "0 47 34 0 519 254 30 27 31 92 31 92 31 92 30 29 30 92 31 92 31 27 30 92 31 28 31 27 31 28 31 92 30 27 31 28 31 91 31 27 30 28 31 92 30 28 31 29 30 27 31 29 30 27 30 93 30 93 30 28 31 92 31 92 30 92 31 92 31 91 31 368"

        setIr $tivoir "Dig1" "0 47 34 0 519 255 30 27 30 93 30 92 30 92 31 29 30 92 31 91 31 27 31 92 31 28 30 27 31 28 30 93 31 27 31 29 31 92 31 92 31 27 30 92 31 28 30 27 31 28 31 27 31 28 31 28 30 92 31 28 32 91 30 93 30 92 31 92 31 92 31 366"

        setIr $tivoir "Dig2" "0 47 34 0 520 254 31 27 31 92 31 92 31 92 31 28 31 92 30 92 30 27 30 93 30 29 31 27 31 29 31 92 31 27 31 28 30 92 31 27 31 92 31 92 31 29 30 27 31 28 31 26 31 28 30 93 31 27 30 29 31 92 31 91 31 92 31 91 31 92 32 372"

        setIr $tivoir "Dig3" "0 47 34 0 520 254 30 27 30 93 30 92 30 93 30 29 31 92 30 92 31 27 31 92 31 28 31 27 31 28 31 92 30 27 30 29 30 93 30 93 30 92 31 92 31 27 30 29 30 27 31 29 31 27 31 29 30 27 30 29 30 92 30 92 30 93 30 93 30 93 30 371"

        setIr $tivoir "Dig4" "0 47 34 0 520 254 30 27 32 91 31 92 31 92 31 29 30 92 30 93 30 27 30 92 30 28 32 27 31 27 31 92 30 27 32 27 31 92 30 27 30 29 30 93 31 92 30 27 30 29 30 27 30 29 30 91 31 91 32 27 31 27 31 91 30 93 31 92 30 93 30 372"

        setIr $tivoir "Dig5" "0 47 34 0 521 253 31 27 30 92 31 91 32 91 31 28 31 92 31 92 30 27 31 92 30 30 30 27 30 30 31 91 31 27 30 28 32 91 30 92 32 26 31 91 31 91 32 28 30 27 31 29 30 27 30 30 31 92 30 27 30 29 30 91 32 91 31 91 31 92 31 366"

        setIr $tivoir "Dig6" "0 47 34 0 520 254 30 27 31 92 31 92 32 91 30 29 31 92 30 92 31 27 30 93 31 28 31 27 31 28 32 91 31 27 31 28 31 92 30 27 31 92 31 92 30 92 31 28 30 27 32 28 31 27 30 93 30 28 31 27 31 28 31 91 32 91 30 92 31 92 31 368"

        setIr $tivoir "Dig7" "0 47 34 0 520 254 31 27 31 91 30 92 31 92 31 29 30 93 30 93 31 27 30 93 30 28 32 27 31 28 31 91 31 27 31 27 32 91 30 93 30 93 30 93 30 92 31 27 31 29 30 27 31 28 31 27 31 28 31 27 30 28 31 92 31 91 31 92 31 92 30 368"

        setIr $tivoir "Dig8" "0 47 34 0 518 254 31 27 31 92 30 92 31 92 31 29 31 92 30 92 31 27 30 93 31 28 31 28 30 28 31 92 31 26 31 29 31 92 31 28 30 29 30 93 31 92 30 93 30 27 31 28 32 26 31 92 30 92 31 28 31 27 31 28 31 91 31 92 31 92 31 371"

        setIr $tivoir "Dig9" "0 47 34 0 520 254 31 27 30 92 31 91 31 92 30 29 31 92 31 92 31 26 30 92 31 29 31 27 30 29 31 92 31 27 31 28 30 92 30 93 31 26 31 92 30 92 30 92 31 28 30 27 31 28 30 27 31 92 30 29 31 27 31 28 31 92 31 92 31 92 31 367"
    }

    puts "Finished! Reboot your TiVo for the new codes to take effect."

    dbclose $db

}