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

    set db [dbopen]

    puts "Setting Foxtel stu120 codes for TiVo 20025..."

    RetryTransaction {

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

        setIr $tivoir "Dig0" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 32 33 96 33 96 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 32 33 96 33 96 33 96 33 96 33 2418 513 128 33 5517"
        setIr $tivoir "Dig1" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 32 33 32 33 96 33 32 33 96 33 96 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig2" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 96 33 32 33 96 33 32 33 32 33 32 33 32 33 32 33 32 33 96 33 32 33 96 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig3" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 96 33 96 33 96 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 96 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig4" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 96 33 96 33 96 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig5" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 96 33 96 33 96 33 96 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig6" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 96 33 96 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 32 33 96 33 96 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig7" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 32 33 96 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 96 33 32 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig8" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 96 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 32 33 96 33 96 33 32 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Dig9" "0 51 34 2 513 258 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 96 33 96 33 96 33 96 33 32 33 32 33 32 33 32 33 32 33 96 33 32 33 32 33 32 33 32 33 96 33 96 33 96 33 32 33 96 33 96 33 96 33 96 33 2418 513 128 33 5516"
        setIr $tivoir "Enter" "0 45 0 19 460 231 30 29 30 85 30 29 30 29 30 29 30 85 30 29 30 29 30 228 30 29 30 29 30 29 30 85 30 85 30 29 30 85 30 29 27 77"
    }

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

    dbclose $db

}