# Copyright (c) 2001 Mike Baker (mbm@linux.com)
# $Id: webremote.itcl,v 1.17.2.1 2002/07/09 02:24:50 lightn Exp $
#
# The sendkey form portion of this code and modifications
# Copyright (c) 2001 Mike Langley (mlangley@owt.com), v1.1

source $tcl_library/tv/sendkey.tcl
# disable keyname echoing to controling tty
set verboseSendKeyG 0

namespace eval WEB_REMOTE {
  variable SONY    "SonyDMRemoteImage.2"
  variable PHILIPS "PhilipsDMRemoteImage.13"
  variable MODEL   ""
}

proc action_sendkey {chan path env} {
  global db
  global evrc evmw
  global url_prefix
  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>
"

  puts $chan "[html_link "?WEB_REMOTE::MODEL=text" "\[TEXT\]"]&nbsp;&nbsp;[html_link "?WEB_REMOTE::MODEL=" "\[IMAGE\]"]<br><br>"
  if { $WEB_REMOTE::MODEL == "" } {
    RetryTransaction {
      if {[catch {set dummy [db $db open "/Resource/Image/$WEB_REMOTE::SONY"]}] != 1} {
        set WEB_REMOTE::MODEL "sony"
      } elseif {[catch {set dummy [db $db open "/Resource/Image/$WEB_REMOTE::PHILIPS"]}] != 1} {
        set WEB_REMOTE::MODEL "philips"
      } else {
        set WEB_REMOTE::MODEL "text"
      }
    }
  }

  set dir "/${url_prefix}sendkey/"

  if { $WEB_REMOTE::MODEL == "text" } {
    puts $chan "
      <table>
      <tr align=\"center\"><th colspan=3>WEB REMOTE</th></tr>
      <tr align=\"center\"><td><a href=\"${dir}power\">Power</a></td><td><a href=\"${dir}tivo\">TiVo</a></td><td><a href=\"${dir}livetv\">LiveTV</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td>&nbsp;</td><td><a href=\"${dir}up\">UP</a></td><td>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}left\">LEFT</a></td><td>&nbsp;</td><td><a href=\"${dir}right\">RIGHT</a></td></tr>
      <tr align=\"center\"><td>&nbsp;</td><td><a href=\"${dir}down\">DOWN</a></td><td>&nbsp;</td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}thumbsdown\">ThumbsDn</a></td><td><a href=\"${dir}select\">Select</a></td><td><a href=\"${dir}thumbsup\">ThumbsUp</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}volumeUp\">VolUp</a></td><td><a href=\"${dir}mute\">Mute</a></td><td><a href=\"${dir}surfup\">ChanUp</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}volumeDown\">VolDn</a></td><td><a href=\"${dir}save\">Record</a></td><td><a href=\"${dir}surfdown\">ChanDn</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td>&nbsp;</td><td><a href=\"${dir}play\">Play</a></td><td>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}reverse\">Reverse</a></td><td><a href=\"${dir}pause\">Pause</a></td><td><a href=\"${dir}forward\">Forward</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}replay\">Replay</a></td><td><a href=\"${dir}playslow\">Slow</a></td><td><a href=\"${dir}catchup\">Advance</a></td></tr>
      <tr align=\"center\"><td colspan=3>&nbsp;</td></tr>
      <tr align=\"center\"><td><a href=\"${dir}num1\">1</a></td><td><a href=\"${dir}num2\">2</a></td><td><a href=\"${dir}num3\">3</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}num4\">4</a></td><td><a href=\"${dir}num5\">5</a></td><td><a href=\"${dir}num6\">6</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}num7\">7</a></td><td><a href=\"${dir}num8\">8</a></td><td><a href=\"${dir}num9\">9</a></td></tr>
      <tr align=\"center\"><td><a href=\"${dir}clear\">clear</a></td><td><a href=\"${dir}num0\">0</a></td><td><a href=\"${dir}enter\">Enter</a></td></tr>
      </table>"
  } elseif { $WEB_REMOTE::MODEL == "sony" } {
    puts $chan "
      <IMG SRC=\"/$url_prefix$WEB_REMOTE::SONY.png\" WIDTH=88 HEIGHT=299 BORDER=0 USEMAP=\"#map\">
      <MAP NAME=\"map\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"26,48,5\" HREF=\"${dir}num1\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,48,5\" HREF=\"${dir}num2\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"62,48,5\" HREF=\"${dir}num3\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"26,61,5\" HREF=\"${dir}num4\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,61,5\" HREF=\"${dir}num5\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"62,61,5\" HREF=\"${dir}num6\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"26,73,5\" HREF=\"${dir}num7\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,73,5\" HREF=\"${dir}num8\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"62,73,5\" HREF=\"${dir}num9\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,86,5\" HREF=\"${dir}num0\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"69,111,8\" HREF=\"${dir}guide\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"20,111,8\" HREF=\"${dir}nowShowing\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"69,151,8\" HREF=\"${dir}thumbsup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"20,151,8\" HREF=\"${dir}thumbsdown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,198,7\" HREF=\"${dir}save\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"62,198,5\" HREF=\"${dir}catchup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"26,198,5\" HREF=\"${dir}replay\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,180,6\" HREF=\"${dir}pause\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"32,163,6\" HREF=\"${dir}play\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"56,163,6\" HREF=\"${dir}playslow\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"55,215,8\" HREF=\"${dir}surfup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"55,233,8\" HREF=\"${dir}surfdown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"32,216,8\" HREF=\"${dir}volumeUp\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"32,232,8\" HREF=\"${dir}volumeDown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"62,32,7\" HREF=\"${dir}standby\">
      <AREA SHAPE=\"RECT\" COORDS=\"20,83,33,89\" HREF=\"${dir}clear\">
      <AREA SHAPE=\"RECT\" COORDS=\"56,83,69,89\" HREF=\"${dir}enter\">
      <AREA SHAPE=\"RECT\" COORDS=\"19,174,36,185\" HREF=\"${dir}reverse\">
      <AREA SHAPE=\"RECT\" COORDS=\"53,175,70,186\" HREF=\"${dir}forward\">
      <AREA SHAPE=\"POLY\" COORDS=\"36,96,52,96,50,110,38,110\" HREF=\"${dir}tivo\">
      <AREA SHAPE=\"POLY\" COORDS=\"35,123,54,123,59,115,30,115\" HREF=\"${dir}up\">
      <AREA SHAPE=\"POLY\" COORDS=\"35,139,54,139,59,147,30,147\" HREF=\"${dir}down\">
      <AREA SHAPE=\"POLY\" COORDS=\"33,125,26,119,22,126,22,136,26,144,33,136,30,133,30,129\" HREF=\"${dir}left\">
      <AREA SHAPE=\"POLY\" COORDS=\"56,125,62,119,67,126,67,136,63,144,57,136,59,133,59,129\" HREF=\"${dir}right\">
      <AREA SHAPE=\"POLY\" COORDS=\"32,130,36,125,52,125,56,130,52,136,36,136\" HREF=\"${dir}select\">
      </MAP>"
  } elseif { $WEB_REMOTE::MODEL == "philips" } {
    puts $chan "
      <IMG SRC=\"/$url_prefix$WEB_REMOTE::PHILIPS.png\" WIDTH=88 HEIGHT=299 BORDER=0 USEMAP=\"#map\">
      <MAP NAME=\"map\">
      <AREA SHAPE=\"POLY\" COORDS=\"36,23,38,36,50,36,52,23\" HREF=\"${dir}tivo\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"24,40,7\" HREF=\"${dir}power\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"64,40,7\" HREF=\"${dir}livetv\">
      <AREA SHAPE=\"POLY\" COORDS=\"44,61,32,48,44,43,56,48\" HREF=\"${dir}up\">
      <AREA SHAPE=\"POLY\" COORDS=\"32,48,26,60,32,72,44,60\" HREF=\"${dir}left\">
      <AREA SHAPE=\"POLY\" COORDS=\"44,61,56,48,61,61,56,73,44,60\" HREF=\"${dir}right\">
      <AREA SHAPE=\"POLY\" COORDS=\"44,60,32,73,44,78,56,72\" HREF=\"${dir}down\">
      <AREA SHAPE=\"POLY\" COORDS=\"11,70,15,97,31,91,22,66\" HREF=\"${dir}thumbsdown\">
      <AREA SHAPE=\"POLY\" COORDS=\"33,84,38,97,50,97,55,84\" HREF=\"${dir}select\">
      <AREA SHAPE=\"POLY\" COORDS=\"65,67,56,90,72,96,77,70\" HREF=\"${dir}thumbsup\">
      <AREA SHAPE=\"POLY\" COORDS=\"18,118,18,108,26,102,32,108,32,118\" HREF=\"${dir}volumeUp\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,110,6\" HREF=\"${dir}mute\">
      <AREA SHAPE=\"POLY\" COORDS=\"55,118,55,108,63,102,69,108,69,118\" HREF=\"${dir}surfup\">
      <AREA SHAPE=\"POLY\" COORDS=\"18,118,32,118,32,129,26,135,18,129\" HREF=\"${dir}volumeDown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,127,7\" HREF=\"${dir}save\">
      <AREA SHAPE=\"POLY\" COORDS=\"55,118,69,118,69,129,63,135,55,129\" HREF=\"${dir}surfdown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,149,7\" HREF=\"${dir}play\">
      <AREA SHAPE=\"POLY\" COORDS=\"32,154,28,152,20,162,20,177,28,187,32,185\" HREF=\"${dir}reverse\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,170,10\" HREF=\"${dir}pause\">
      <AREA SHAPE=\"POLY\" COORDS=\"56,154,60,152,67,162,67,177,60,187,56,185\" HREF=\"${dir}forward\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"44,190,7\" HREF=\"${dir}playslow\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"24,196,6\" HREF=\"${dir}replay\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"64,196,6\" HREF=\"${dir}catchup\">
      <AREA SHAPE=\"POLY\" COORDS=\"15,210,18,205,28,205,32,210,28,215,18,215\" HREF=\"${dir}num1\">
      <AREA SHAPE=\"POLY\" COORDS=\"35,210,38,205,48,205,52,210,48,215,38,215\" HREF=\"${dir}num2\">
      <AREA SHAPE=\"POLY\" COORDS=\"55,210,58,205,68,205,72,210,68,215,58,215\" HREF=\"${dir}num3\">
      <AREA SHAPE=\"POLY\" COORDS=\"15,225,18,220,28,220,32,225,28,230,18,230\" HREF=\"${dir}num4\">
      <AREA SHAPE=\"POLY\" COORDS=\"35,225,38,220,48,220,52,225,48,230,38,230\" HREF=\"${dir}num5\">
      <AREA SHAPE=\"POLY\" COORDS=\"55,225,58,220,68,220,72,225,68,230,58,230\" HREF=\"${dir}num6\">
      <AREA SHAPE=\"POLY\" COORDS=\"15,240,18,235,28,235,32,240,28,245,18,245\" HREF=\"${dir}num7\">
      <AREA SHAPE=\"POLY\" COORDS=\"35,240,38,235,48,235,52,240,48,245,38,245\" HREF=\"${dir}num8\">
      <AREA SHAPE=\"POLY\" COORDS=\"55,240,58,235,68,235,72,240,68,245,58,245\" HREF=\"${dir}num9\">
      <AREA SHAPE=\"POLY\" COORDS=\"35,255,38,250,48,250,52,255,48,260,38,260\" HREF=\"${dir}num0\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"24,258,6\" HREF=\"${dir}clear\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"64,258,6\" 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"