# Copyright (c) 2001 Mike Baker (mbm@linux.com)
# $Id: webremote.itcl,v 1.2 2005/08/03 06:02:46 davidlallen Exp $
# $Id: webremote.itcl,v 1.2 2005/08/03 06:02:46 davidlallen Exp $
#
# The sendkey form portion of this code and modifications
# Copyright (c) 2001 Mike Langley (mlangley@owt.com), v1.1

if {$::version > 4} {continue}

proc action_sendkey {chan path env} {
  global db
  global evrc evmw
  global url_prefix

  if {![info exists evrc(tivo)]} {
    source $::tcl_library/tv/sendkey.tcl

    # disable keyname echoing to controling tty
    set ::verboseSendKeyG 0
  }

  eval $env

  if {[string index $path 0] == "/"} {
    set path [string range $path 1 end]
    set cmds [split $path "/"]
    foreach key $cmds {
      set index [lsearch "thumbsdn volup voldown chanup chandn slow advance" $key]
      if {$index >= 0} {
        set key [lindex "thumbsdown volumeUp volumeDown surfup surfdown playslow catchup" $index]
      }
      if {[info exists evrc($key)] || [info exists evmw($key)] || $key == "wait"} {
        if {$key != "wait"} {
          SendKey $key
        } else {
          after 750
        }
      }
    }
  }

  puts $chan [html_start "Web Remote"]
  puts $chan "
<!-- load required keytrap.js key-detection library -->
<script src=\"/${url_prefix}keytrap.js\" language=\"JavaScript\"></script>
"

  set dir "/${url_prefix}sendkey/"

  puts $chan "[html_link "${dir}?type=text" "\[TEXT\]"]&nbsp;&nbsp;[html_link "${dir}?type=image" "\[IMAGE\]"]<br><br>"
  if { ![info exists type] || $type == "" } {
    set type "image"
  }

  if { $type == "text" } {
    puts $chan "
      <table>
      <tr align=\"center\"><th colspan=3>WEB REMOTE</th></tr>
      <tr align=\"center\"><td><a href=\"${dir}power?type=text\">Power</a></td><td><a href=\"${dir}tivo?type=text\">TiVo</a></td><td><a href=\"${dir}livetv?type=text\">LiveTV</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}nowShowing?type=text\">List</a></td><td><a href=\"${dir}guide?type=text\">Guide</a></td><td><a href=\"${dir}display?type=text\">Info</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td>&nbsp;</td><td><a href=\"${dir}up?type=text\">UP</a></td><td>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}left?type=text\">LEFT</a></td><td>&nbsp;</td><td><a href=\"${dir}right?type=text\">RIGHT</a></td></tr>
      <tr align=\"center\"><td>&nbsp;</td><td><a href=\"${dir}down?type=text\">DOWN</a></td><td>&nbsp;</td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}thumbsdown?type=text\">ThumbsDn</a></td><td><a href=\"${dir}select?type=text\">Select</a></td><td><a href=\"${dir}thumbsup?type=text\">ThumbsUp</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}volumeUp?type=text\">VolUp</a></td><td><a href=\"${dir}mute?type=text\">Mute</a></td><td><a href=\"${dir}surfup?type=text\">ChanUp</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}volumeDown?type=text\">VolDn</a></td><td><a href=\"${dir}save?type=text\">Record</a></td><td><a href=\"${dir}surfdown?type=text\">ChanDn</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td>&nbsp;</td><td><a href=\"${dir}play?type=text\">Play</a></td><td>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}reverse?type=text\">Reverse</a></td><td><a href=\"${dir}pause?type=text\">Pause</a></td><td><a href=\"${dir}forward?type=text\">Forward</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}replay?type=text\">Replay</a></td><td><a href=\"${dir}playslow?type=text\">Slow</a></td><td><a href=\"${dir}catchup?type=text\">Advance</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}num1?type=text\">1</a></td><td><a href=\"${dir}num2?type=text\">2</a></td><td><a href=\"${dir}num3?type=text\">3</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}num4?type=text\">4</a></td><td><a href=\"${dir}num5?type=text\">5</a></td><td><a href=\"${dir}num6?type=text\">6</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}num7?type=text\">7</a></td><td><a href=\"${dir}num8?type=text\">8</a></td><td><a href=\"${dir}num9?type=text\">9</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}clear?type=text\">clear</a></td><td><a href=\"${dir}num0?type=text\">0</a></td><td><a href=\"${dir}enter?type=text\">Enter</a></td></tr>
      </table>"
  } elseif { $type == "image" } {
    puts $chan "
      <IMG SRC=\"/images/hdvr2.png\" WIDTH=150 HEIGHT=596 BORDER=0 USEMAP=\"#map\">
      <MAP NAME=\"map\">
      <AREA SHAPE=\"RECT\" COORDS=\"57,27,90,51\" HREF=\"${dir}tivo\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"109,68,11\" HREF=\"${dir}livetv\">
      <!-- <AREA SHAPE=\"CIRCLE\" COORDS=\"37,66,12\" HREF=\"exit\"> DOESN'T WORK -->
      <AREA SHAPE=\"CIRCLE\" COORDS=\"122,98,9\" HREF=\"display\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"25,98,8\" HREF=\"left\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"30,127,10\" HREF=\"${dir}nowShowing\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"118,127,11\" HREF=\"${dir}guide\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"72,81,11\" HREF=\"${dir}up\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"72,118,11\" HREF=\"${dir}down\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"51,101,11\" HREF=\"${dir}left\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"93,101,11\" HREF=\"${dir}right\">
      <AREA SHAPE=\"POLY\" COORDS=\"57,144,66,162,82,162,90,144\" HREF=\"${dir}select\">
      <AREA SHAPE=\"POLY\" COORDS=\"32,148,23,156,29,178,49,174\" HREF=\"${dir}thumbsdown\">
      <AREA SHAPE=\"POLY\" COORDS=\"112,147,99,170,117,182,125,157\" HREF=\"${dir}thumbsup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"42,207,11\" HREF=\"${dir}volumeUp\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"42,235,11\" HREF=\"${dir}volumeDown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"74,204,8\" HREF=\"${dir}mute\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"105,207,11\" HREF=\"${dir}surfup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"105,235,11\" HREF=\"${dir}surfdown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"74,237,8\" HREF=\"${dir}save\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"72,273,11\" HREF=\"${dir}play\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"72,308,15\" HREF=\"${dir}pause\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"72,345,11\" HREF=\"${dir}playslow\">
      <AREA SHAPE=\"POLY\" COORDS=\"40,285,33,310,40,334,48,310\" HREF=\"${dir}reverse\">
      <AREA SHAPE=\"POLY\" COORDS=\"106,285,102,310,106,334,114,310\" HREF=\"${dir}forward\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"36,361,7\" HREF=\"${dir}replay\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"111,361,7\" HREF=\"${dir}catchup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"40,394,7\" HREF=\"${dir}power\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"115,394,7\" HREF=\"${dir}input\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"39,420,7\" HREF=\"${dir}num1\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"75,420,7\" HREF=\"${dir}num2\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"109,420,7\" HREF=\"${dir}num3\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"39,443,7\" HREF=\"${dir}num4\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"75,443,7\" HREF=\"${dir}num5\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"109,443,7\" HREF=\"${dir}num6\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"39,464,7\" HREF=\"${dir}num7\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"75,464,7\" HREF=\"${dir}num8\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"109,464,7\" HREF=\"${dir}num9\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"75,490,7\" HREF=\"${dir}num0\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"39,490,7\" HREF=\"${dir}clear\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"109,490,7\" HREF=\"${dir}enter\">
      </MAP>"
  }

  # Adding shortcut key table
  puts $chan "
       <table>
         <tr cellpadding=\"0\" align=\"center\"> 
           <th colspan=\"2\"><font size=\"-3\">Key</font></th>
           <th><font size=\"-3\">Action</font></th>
         </tr>
         <tr align=\"center\"> 
           <td><font size=\"-3\">&lt;Up Arrow&gt;</font></td>
           <td><font size=\"-3\">&lt;Enter&gt;</font></td>
           <td><font size=\"-3\">Play</font></td>
         </tr>
         <tr align=\"center\"> 
           <td><font size=\"-3\">&lt;Right Arrow&gt;</font></td>
           <td><font size=\"-3\">'\]'</font></td>
           <td><font size=\"-3\">Forward</font></td>
         </tr>
         <tr align=\"center\"> 
           <td><font size=\"-3\">&lt;Left Arrow&gt;</font></td>
           <td><font size=\"-3\">'\['</font></td>
           <td><font size=\"-3\">Reverse</font></td>
         </tr>
         <tr align=\"center\"> 
           <td><font size=\"-3\">&lt;Space Bar&gt;</font></td>
           <td><font size=\"-3\">'p'</font></td>
           <td><font size=\"-3\">Pause</font></td>
         </tr>
         <tr align=\"center\"> 
           <td><font size=\"-3\">&lt;Down Arrow&gt;</font></td>
           <td><font size=\"-3\">'a'</font></td>
           <td><font size=\"-3\">Advance</font></td>
         </tr>
         <tr align=\"center\"> 
           <td><font size=\"-3\">'/'</font></td>
           <td><font size=\"-3\">&lt;Backspace&gt;</font></td>
           <td><font size=\"-3\">Replay</font></td>
         </tr>
       </table>"

  puts $chan [html_end]
}

register_module "sendkey" "Web Remote" "A Web-based Remote Control for your TiVo"