# I wrote this tivoweb module because I wanted a simple way to execute 
# a bash script on the Tivo from TivoWeb. Included is a bash script
# that shows how to create a simple selection menu and case statement
# so you can pass parameters to the script. I'm not much of a TCL programmer
# but am decent with bash. This gives me a way to do stuff quick and dirty
# without having to learn how to do it in TCL.

#  hacked by loooking at from info.itcl and other tivoweb modules

proc action_script {chan path env} {
  global bashscript
  puts $chan [html_start "Script Execution Page"]
  puts $chan "<B><font size=5 color=black>Script Execution Start</B></font><hr><p><pre>" 
  set params ""
  set q ""
  eval $env
  puts $chan [ exec $::source_dir/modules/script.sh $params $q ]
  puts $chan "</pre><hr><B><font size=5 color=black>Script Execution End</B></font>" 
}

# Used in sysadmin.itcl
#register_module "script" "Run Script" "Do Useful Stuff"