Use Series 1 as VCR

[danhi]

I've got an old Series 1 that I don't use with the TiVo service anymore (it's hacked, on the network and has most of the tools). I want to be able to just use it as a dumb VCR. I want to hook it up to the output of my A/V receiver and manually record things. I thought this was going to be easy, but so far I haven't been able to figure it out. I was going to go back through guided setup, when I realized that without an active subscription, it wasn't going to let me.

Can someone give me a hint as to what I need to do here?

Thanks,

Dan

[danhi]

I put the fixsub.tcl script on to set the last successful call date, and that seems to work, but it still nags that I've only got one day of program data left. I copied the script from another post, which I've attached below. Is there something else I need to set?

Also, I'd like to go back through guided setup so that I could change the source(s). Will I be able to do this without a subscription? If not, is there another way to change the sources?

Thanks.

The fixsub script I used.

#!/tvbin/tivosh

###################################
# fixsub40.tcl #
# This is a modified fixsub31.tcl #
###################################

tvsource $tcl_library/tv/mfslib.tcl

proc FixSub {db} {
puts "Inside fixsub"
try {
RetryTransaction {
set now [clock seconds]
set today [expr ($now / 86400)]
set todaytime [expr ($now - ($today * 86400))]
set stateExpiration [expr ($today + 604800)]
set lastCallStatus "Succeeded"
set callStatusInfo "1"

set sobj [db $db open /State/PhoneConfig]
dbobj $sobj set LastDialInUpdateDate $today
dbobj $sobj set LastSuccessCallDay $today
dbobj $sobj set LastSuccessCallSecInDay $todaytime
dbobj $sobj set LastSuccessPgdCallDay $today
dbobj $sobj set LastSuccessPgdCallSecInDay $todaytime
dbobj $sobj set LastCallAttemptDay $today
dbobj $sobj set LastCallAttemptSecInDay $todaytime
dbobj $sobj set NextCallAttemptDays $today
dbobj $sobj set NextCallAttemptSecInDay $stateExpiration
dbobj $sobj set LastCallStatus $lastCallStatus
dbobj $sobj set CallStatusInfo $callStatusInfo

set ssobj [db $db open /State/ServiceConfig]
dbobj $ssobj set ServiceState 5
dbobj $ssobj set ServiceStateExpiration $stateExpiration

set ssobj [db $db open /State/GeneralConfig]
dbobj $ssobj set Complete 7

}
puts "done with fixsub"
} catch errCode {
puts "Failed to FixSub, code=($errCode)"
return 0
}
return 1
}

set db [dbopen]
FixSub $db
dbclose $db

[classicsat]

You can run through GS without a sub just fine.