Need help with adding IR code

[Moose Man]

After following this guide http://www.tuhs.org/twiki/bin/view/I...ersionAndSetup

I get the following error message when trying to execute the tcl file from the bash prompt, "can't open object (TV_DB NOT FOUND)" right after it says "Setting mystb codes for Tivo 2995...". My tivo is a U.S. standalone ATT series2 130040 running the latest software 7.3... using kernal 7.2.2-oth-K1. Any help would be appreciated.

Thanks
Moose


Here the mystb.tcl file I am trying to execute:


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

set db [dbopen]

puts "Setting mystb codes for TiVo 29995..."

RetryTransaction {

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

setIr $tivoir "Dig0" "0 51 34 2 522 260 33 33 32 33 33 33 32 33 32 33 33 98 32 33 33 33 32 99 32 98 33 98 32 99 32 98 33 98 33 98 32 98 33 98 33 33 32 33 33 98 32 35 32 33 33 33 32 33 33 33 32 99 32 98 33 33 32 99 32 98 33 98 32 99 32 2318 522 131 33 5654"
setIr $tivoir "Dig1" "0 51 34 2 522 260 33 33 32 33 33 33 32 33 32 33 33 98 32 33 33 33 32 99 32 98 33 98 32 99 32 98 33 98 33 98 32 98 33 33 33 33 32 33 33 33 32 33 33 33 32 33 33 32 33 98 32 98 33 98 33 98 32 98 32 98 33 98 32 99 32 2315 522 131 33 5648"
setIr $tivoir "Dig2" "0 51 34 2 521 260 33 33 32 33 33 32 32 33 32 32 33 98 32 33 33 32 32 98 32 98 33 96 32 98 32 98 33 96 33 98 32 98 32 96 33 33 32 33 33 33 32 33 33 32 32 33 32 32 33 33 32 98 32 96 33 98 32 98 32 96 33 98 32 98 32 2306 521 131 33 5634"
setIr $tivoir "Dig3" "0 51 34 2 519 258 33 32 32 32 33 32 32 33 32 32 32 98 32 32 33 32 32 98 32 96 33 96 32 98 32 96 33 96 32 98 32 96 33 32 32 98 32 32 33 32 32 33 33 32 32 33 32 32 33 96 32 33 33 96 33 96 32 96 32 96 33 96 32 98 32 2301 519 129 33 5621"
setIr $tivoir "Dig4" "0 51 34 2 521 260 33 33 32 33 33 33 32 33 32 32 33 98 32 33 32 33 32 98 32 98 33 98 32 98 32 98 33 96 33 98 32 98 32 96 33 98 32 33 33 32 32 33 32 32 33 33 32 33 33 33 32 33 32 98 33 98 32 98 32 98 33 98 32 98 32 2310 521 131 33 5636"
setIr $tivoir "Dig5" "0 51 34 2 519 258 33 32 32 32 33 32 32 33 32 32 32 96 32 32 33 32 32 98 32 96 33 96 32 98 32 96 33 96 33 96 32 96 33 32 33 33 32 96 33 32 32 32 33 32 32 33 32 32 33 96 32 98 33 32 33 96 32 98 32 96 33 96 32 98 32 2301 519 129 33 5621"
setIr $tivoir "Dig6" "0 51 34 2 522 260 33 33 32 33 33 33 32 33 32 33 33 98 32 33 33 33 32 99 32 98 33 98 32 99 32 98 32 98 33 98 32 98 33 98 33 33 32 98 33 33 32 35 32 33 33 33 32 33 33 33 32 99 32 33 33 98 32 99 32 98 33 98 32 99 32 2316 522 131 33 5649"
setIr $tivoir "Dig7" "0 51 34 2 521 260 33 33 32 33 33 33 32 33 33 32 33 98 32 33 33 33 32 99 32 98 33 98 33 98 32 98 33 98 33 98 32 98 33 32 33 98 32 98 32 33 33 33 32 33 33 33 32 33 33 98 33 33 32 33 33 98 32 98 32 98 33 98 32 99 32 2315 522 131 33 5646"
setIr $tivoir "Dig8" "0 51 34 2 522 260 33 33 32 33 33 33 32 33 32 33 33 98 32 33 33 33 32 99 32 98 33 98 32 99 32 98 33 98 33 98 32 98 33 98 33 98 32 98 32 33 33 33 32 33 33 33 32 33 32 33 32 35 32 33 33 98 32 98 32 98 33 98 32 99 32 2316 522 131 33 5651"
setIr $tivoir "Dig9" "0 51 34 2 522 260 33 33 32 33 33 33 32 33 33 32 33 98 32 33 33 33 32 99 32 98 33 98 32 99 32 98 33 98 33 98 32 98 32 33 33 33 32 33 33 98 32 33 33 32 33 33 32 33 33 98 32 99 32 98 33 33 32 98 32 98 33 98 32 99 32 2316 522 131 33 5649"
setIr $tivoir "Enter" "0 51 34 2 522 260 33 33 32 33 33 33 32 33 32 33 33 98 32 33 33 33 32 99 32 98 33 98 32 99 32 98 33 98 33 98 32 98 33 98 33 33 32 33 33 98 32 99 32 33 33 33 32 33 32 33 32 99 32 98 33 33 32 35 32 98 33 98 32 99 32 2318 522 131 33 5652"
}

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

dbclose $db

}