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

    set db [dbopen]

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

    RetryTransaction {

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

        setIr $tivoir "Dig0" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 99 33 33 33 33 33 99 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig1" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 99 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig2" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 99 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig3" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 33 33 99 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig4" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 99 33 99 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig5" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 33 33 33 33 99 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig6" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 99 33 33 33 99 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 33 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig7" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 33 33 99 33 99 33 33 33 33 33 33 33 33 33 33 33 99 33 33 33 33 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig8" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 99 33 99 33 99 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Dig9" "0 52 34 2 512 266 33 33 33 33 33 33 33 33 33 33 33 33 33 33 33 99 33 99 33 33 33 33 33 99 33 33 33 99 33 99 33 33 33 33 33 33 33 33 33 99 33 33 33 33 33 33 33 33 33 99 33 99 33 99 33 33 33 99 33 99 33 99 33 99 33 2366 512 132 33 5475"
        setIr $tivoir "Enter" ""
    }

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

    dbclose $db

}