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

    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 55 24 0 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 4902 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48 48"
        setIr $tivoir "Dig1" "0 51 0 12 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 48 48 96 48 3759"
        setIr $tivoir "Dig2" "20 54 24 0 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 96 96 4917 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 96 96 48"
        setIr $tivoir "Dig3" "0 55 39 0 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 96 48 48 48 4854 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 96 48 48 48 4854 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 48 48 48 48 96 48 48 48 48"
        setIr $tivoir "Dig4" "0 55 33 0 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 96 96 48 48 4902 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 96 96 48 48 4902 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 96 96 48 48 48"
        setIr $tivoir "Dig5" "0 55 24 0 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 48 48 96 96 96 48 4854 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 48 48 96 96 96 48 48"
        setIr $tivoir "Dig6" "0 55 22 0 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 96 48 48 96 4902 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 96 48 48 96 48"
        setIr $tivoir "Dig7" "0 54 24 0 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 96 48 48 48 48 48 4869 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48"
        setIr $tivoir "Dig8" "0 55 22 0 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 96 96 48 48 48 48 4902 48 48 96 96 48 48 96 48 48 48 48 48 48 48 48 96 96 48 48 48 48 48"
        setIr $tivoir "Dig9" "0 55 36 0 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 96 96 48 48 96 48 4854 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 96 96 48 48 96 48 4854 48 48 48 48 48 48 48 48 96 48 48 48 48 48 48 48 48 96 96 48 48 96 48 48"
        setIr $tivoir "Enter" ""
    }

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

    dbclose $db

}