# reboot.itcl
# Reboot the TiVo from TivoWeb

# Version 1.1
# 13/1/04
# by Stuart Anderton (sanderton at tivocommunity.com)



proc action_reboottivo {chan path env} {
	puts $chan [html_start "Reboot the TiVo"]
	puts $chan [html_link "/noreally" "Reboot (No are you sure's here!)"]
	puts $chan [html_end]
}

proc action_noreally {chan path env} {

exec "restart" >&@ $chan
	
}

register_module "reboottivo" "Reboot TiVo" "Reboot the TiVo"