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 stu720 codes for TiVo 30001..."
 
    RetryTransaction {
 
        set tivoir [db $db open /Component/Ir/TivoFormat/30001]
 
        setIr $tivoir "Dig0" "0 35 12 0 54 48 99 99 51 45 102 45 51 45
48 48 51 48 45 51 45 51 48 48 48 48 48 357"
        setIr $tivoir "Dig1" "0 35 13 0 51 51 45 51 48 48 48 48 99 48 48
48 48 48 48 48 48 48 48 48 48 48 48 99 48 375"
        setIr $tivoir "Dig2" "0 35 11 0 54 48 102 96 51 45 102 45 51 45
51 45 51 48 45 51 48 48 48 96 102 360"
        setIr $tivoir "Dig3" "0 35 12 0 54 48 99 99 48 48 99 48 48 48 48
48 48 48 48 48 48 48 48 99 48 48 48 366"
        setIr $tivoir "Dig4" "0 35 12 0 54 48 48 48 48 48 48 48 99 48 48
48 48 48 48 48 51 45 48 99 102 45 48 357"
        setIr $tivoir "Dig5" "0 35 11 0 54 48 99 99 48 48 99 48 48 48 48
48 48 48 48 48 48 99 102 96 51 366"
        setIr $tivoir "Dig6" "0 35 11 0 51 51 99 99 48 48 99 48 48 48 48
48 48 48 48 48 51 96 48 48 99 375"
        setIr $tivoir "Dig7" "0 35 13 0 54 48 48 48 48 48 48 48 99 48 48
48 51 45 48 48 51 45 48 99 51 45 51 48 48 375"
        setIr $tivoir "Dig8" "0 35 11 0 51 48 102 99 48 48 99 48 48 48
48 48 48 48 48 99 99 48 48 48 51 378"
        setIr $tivoir "Dig9" "0 35 12 0 54 45 48 48 51 48 45 51 99 48 48
48 48 48 48 48 48 99 99 48 51 96 51 357"
        setIr $tivoir "Enter" ""
    }
 
    puts "Finished! Reboot your TiVo for the new codes to take effect."
 
    dbclose $db
 
}