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 30001..."

    RetryTransaction {

        set tivoir [db $db open /Component/Ir/TivoFormat/30001]
                setIr $tivoir "Dig0" "0 47 34 0 519 264 30 30 30 30 30 33 30 30 30 30 30 30 33 30
30 96 30 99 30 30 30 30 30 99 30 30 33 93 33 96 30 30 30 99 30 30 30 30 33 96 30
30 33 27 30 33 30 30 30 30 30 99 30 96 30 30 33 96 33 93 33 96 30 96 33 363" 
                setIr $tivoir "Dig1" "0 47 34 0 519 264 30 30 30 33 30 30 30 30 30 30 30 33 30 30
30 96 33 96 30 30 30 30 33 96 30 30 30 99 30 96 30 30 33 30 30 30 30 30 30 30 33
30 30 30 30 30 30 33 30 96 30 99 30 96 30 99 30 96 30 99 30 96 30 99 30 360" 
                setIr $tivoir "Dig2" "0 47 34 0 522 261 30 30 33 30 30 30 30 30 30 30 33 30 30 30
30 96 33 96 30 30 30 30 33 96 30 30 30 99 30 96 33 30 30 96 33 27 30 33 30 30 30
30 33 27 30 33 30 30 33 27 33 96 30 96 30 99 30 96 30 99 30 96 30 99 30 363" 
                setIr $tivoir "Dig3" "0 47 34 0 519 264 30 30 33 30 30 30 30 30 30 30 33 30 30 30
30 96 33 96 30 30 30 30 33 96 30 30 30 99 30 96 30 33 30 30 30 96 30 33 30 30 30
30 30 30 30 33 30 30 30 96 33 30 30 96 30 99 30 96 30 99 30 96 30 99 30 366" 
                setIr $tivoir "Dig4" "0 47 34 0 519 264 30 30 33 27 30 33 30 30 30 30 30 30 30 33
30 96 30 99 30 30 30 30 30 99 30 30 33 93 33 96 30 30 33 96 30 96 30 30 33 30 30
30 33 27 30 30 33 30 30 30 33 27 33 96 30 96 33 96 30 96 33 96 30 96 33 375" 
                setIr $tivoir "Dig5" "0 47 34 0 519 264 30 30 30 30 30 33 30 30 30 30 30 30 33 30
30 96 30 99 30 30 30 30 30 99 30 30 30 96 33 96 30 30 30 30 33 30 30 96 30 30 33
30 30 30 30 30 30 33 30 96 30 99 30 30 30 96 30 99 30 96 33 96 30 96 33 360" 
                setIr $tivoir "Dig6" "0 47 34 0 519 264 30 30 30 30 30 33 30 30 30 30 30 30 30 33
30 96 30 99 30 30 30 30 30 99 30 30 30 96 33 96 30 30 30 99 30 30 30 96 33 30 30
30 30 30 30 30 33 30 30 30 30 99 30 30 30 96 30 99 30 96 30 99 30 96 30 378" 
                setIr $tivoir "Dig7" "0 47 34 0 522 261 33 30 30 30 30 30 30 30 33 30 30 30 30 30
30 99 30 96 30 30 33 30 30 96 30 33 30 96 30 99 30 30 30 30 30 99 30 96 30 30 33
30 30 30 33 27 30 30 33 96 30 30 30 30 33 96 30 96 33 96 30 96 33 96 30 375" 
                setIr $tivoir "Dig8" "0 47 34 0 519 261 30 33 30 30 30 30 30 30 33 30 30 30 30 30
30 99 30 96 30 30 33 30 30 96 30 30 33 96 30 96 33 30 30 96 30 99 30 96 30 30 33
30 30 30 30 30 30 33 30 30 30 30 30 30 30 99 30 96 30 99 30 96 30 99 30 378" 
                setIr $tivoir "Dig9" "0 47 34 0 519 264 30 30 30 30 33 30 30 30 30 30 33 30 30 30
30 96 30 99 30 30 30 30 30 99 30 30 30 99 30 96 30 30 30 33 30 30 30 30 30 99 30
30 30 30 33 27 33 30 30 96 30 99 30 96 30 30 33 96 33 93 33 96 30 99 30 369" 

        setIr $tivoir "Enter" ""
    }

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

    dbclose $db

}