------------------start setConn.tcl---------------
#!/tvbin/tivosh
#
# thanks to Phil Hunt for this script
# source of RetryTransaction function
tvsource $tcl_library/tv/mfslib.tcl
proc FIXUP {db conn st} {
try {
RetryTransaction {
set setup [ db $db open /Setup]
set s1 [ dbobj $setup get Source 0]
set oconn [ dbobj $s1 get Connector ]
set ost [ dbobj $s1 get SignalType ]
dbobj $s1 set Connector $conn
puts "Connector changed from $oconn to $conn"
dbobj $s1 set SignalType $st
puts "SignalType changed from $ost to $st"
}
} catch errCode {
puts "Failed, errCode=($errCode)"
return 0
}
return 1
}
set db [dbopen]
set conn [lindex $argv 0]
set st [lindex $argv 1]
if { $conn == "" || $st == "" } {
puts "Usage: setConnector connectorValue signalTypeValue"
} else {
FIXUP $db $conn $st
dbclose $db
}
------------------end setConn.tcl---------------
Bookmarks