variable compat "2.1.b3"
# Copyright (c) 2001 Mike Baker (mbm@linux.com)
# The sendkey form portion of this code and modifications
# Copyright (c) 2001 Mike Langley (mlangley@owt.com), v1.1

#don't load at all if sendkey not installed
if {$::sendkeyavail != 1} {continue}

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

  eval_env

  #allow user to change type.  set defaults if not set.  
  if [info exists type] {
    set ::webremote_type $type
  } else {
    if ![info exists ::webremote_type] {
      if $::is_mobile {
        set ::webremote_type "b"
      } elseif $::is_mapple {
        set ::webremote_type "a"
      } else {
        set ::webremote_type "i"
      }
    }
  }

  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      channelup channeldown slow     advance catchup" $key]
      if {$index >= 0} {
        # My v2.5.5 and v3.0 sendkey uses surfup/down rather than channelup/down
        # It seems that newer versions require channelup/down.
        if {$::version <= 4} {
          set key [lindex "thumbsdown volumeUp volumeDown surfup    surfdown    surfup    surfdown    playslow catchup catchup" $index]
        } else {
          set key [lindex "thumbsdown volumeUp volumeDown channelup channeldown channelup channeldown playslow advance advance" $index]
        }
      }
         
      if {[info exists evrc($key)] || [info exists evmw($key)] || $key == "wait"} {
        if {$key != "wait"} {
          SendKey $key
        } else {
          after 750
        }
      }
    }
    #if called as ajax, just return with message 
    if {[info exists ajax]} {
      puts $chan "sent [strim $cmds]"
      return
    }
  }

  set dir "/$::conf(Prefix)sendkey/"

  if { $::webremote_type == "b" } {
    set menu "no-menu"
  } else {
    set menu ""
  }
  puts $chan [html_start "Web Remote" "$menu"]
  puts $chan [js -nomobile keytrap2]
  
  if { $::webremote_type == "t" } {
    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><a href=\"${dir}nowShowing\">List</a></td><td><a href=\"${dir}guide\">Guide</a></td><td><a href=\"${dir}display\">Info</a></td></tr>
			<tr align=\"center\"><td><a href=\"${dir}exit\">Exit</a></td><td><a href=\"${dir}window\">Window</a></td><td>&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}channelup\">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}channeldown\">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 { $::webremote_type == "i" } {
    puts $chan "
      <IMG SRC=\"/$::conf(Prefix)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=\"${dir}window\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"122,98,9\" HREF=\"${dir}display\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"25,98,8\" HREF=\"${dir}exit\">
      <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}channelup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"105,235,11\" HREF=\"${dir}channeldown\">
      <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>"
  } elseif { $::webremote_type == "a" } {
    puts $chan "
      <IMG SRC=\"/$::conf(Prefix)images/hdvr2.png\" WIDTH=600 HEIGHT=2384 BORDER=0 USEMAP=\"#map\">
      <MAP NAME=\"map\">
      <AREA SHAPE=\"RECT\" COORDS=\"228,108,360,204\" HREF=\"${dir}tivo\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"436,272,44\" HREF=\"${dir}livetv\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"148,264,48\" HREF=\"${dir}window\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"488,392,36\" HREF=\"${dir}display\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"100,392,32\" HREF=\"${dir}exit\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"120,508,40\" HREF=\"${dir}nowShowing\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"472,508,44\" HREF=\"${dir}guide\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"288,324,44\" HREF=\"${dir}up\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"288,472,44\" HREF=\"${dir}down\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"204,404,44\" HREF=\"${dir}left\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"372,404,44\" HREF=\"${dir}right\">
      <AREA SHAPE=\"POLY\" COORDS=\"228,576,264,648,328,648,360,576\" HREF=\"${dir}select\">
      <AREA SHAPE=\"POLY\" COORDS=\"128,592,92,624,116,712,196,696\" HREF=\"${dir}thumbsdown\">
      <AREA SHAPE=\"POLY\" COORDS=\"448,588,396,680,468,728,500,628\" HREF=\"${dir}thumbsup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"168,828,44\" HREF=\"${dir}volumeUp\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"168,940,44\" HREF=\"${dir}volumeDown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"296,816,32\" HREF=\"${dir}mute\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"420,828,44\" HREF=\"${dir}channelup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"420,940,44\" HREF=\"${dir}channeldown\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"296,948,32\" HREF=\"${dir}save\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"288,1092,44\" HREF=\"${dir}play\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"288,1232,60\" HREF=\"${dir}pause\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"288,1380,44\" HREF=\"${dir}playslow\">
      <AREA SHAPE=\"POLY\" COORDS=\"160,1140,132,1240,160,1336,192,1240\" HREF=\"${dir}reverse\">
      <AREA SHAPE=\"POLY\" COORDS=\"424,1140,408,1240,424,1336,456,1240\" HREF=\"${dir}forward\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"144,1444,28\" HREF=\"${dir}replay\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"444,1444,28\" HREF=\"${dir}catchup\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"160,1576,28\" HREF=\"${dir}power\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"460,1576,28\" HREF=\"${dir}input\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"156,1680,28\" HREF=\"${dir}num1\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"300,1680,28\" HREF=\"${dir}num2\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"436,1680,28\" HREF=\"${dir}num3\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"156,1772,28\" HREF=\"${dir}num4\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"300,1772,28\" HREF=\"${dir}num5\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"436,1772,28\" HREF=\"${dir}num6\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"156,1856,28\" HREF=\"${dir}num7\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"300,1856,28\" HREF=\"${dir}num8\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"436,1856,28\" HREF=\"${dir}num9\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"300,1960,28\" HREF=\"${dir}num0\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"156,1960,28\" HREF=\"${dir}clear\">
      <AREA SHAPE=\"CIRCLE\" COORDS=\"436,1960,28\" HREF=\"${dir}enter\">
      </MAP>"
  } elseif { $::webremote_type == "p" } {
    puts $chan "
      <IMG SRC=\"/$::conf(Prefix)images/PhilipsDMRemoteImage.13.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>"

  } elseif { $::webremote_type == "s" } {
      puts $chan "
      <IMG SRC=\"/$::conf(Prefix)images/SonyDMRemoteImage.2.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 { $::webremote_type == "b" } {
      puts $chan "<style type='text\/css'>input {font-size:150%;width:6em;height:2em;}<\/style>"

      puts $chan [html_form_start "" "/sendkey" "name=\"f\""]
      puts $chan [html_form_input "button" "b" "Play"    "onClick=\"location.href='${dir}play';\""]
      puts $chan [html_form_input "button" "b" "Reverse" "onClick=\"location.href='${dir}reverse';\""]
      puts $chan [html_form_input "button" "b" "Pause"   "onClick=\"location.href='${dir}pause';\""]
      puts $chan [html_form_input "button" "b" "Forward" "onClick=\"location.href='${dir}forward';\""]
      puts $chan [html_form_input "button" "b" "Replay" "onClick=\"location.href='${dir}replay';\""]
      puts $chan [html_form_input "button" "b" "Slow" "onClick=\"location.href='${dir}slow';\""]
      puts $chan [html_form_input "button" "b" "Advance" "onClick=\"location.href='${dir}advance';\""]
      puts $chan [html_form_input "button" "b" "TiVo" "onClick=\"location.href='${dir}tivo';\""]
      puts $chan [html_form_input "button" "b" "Up" "onClick=\"location.href='${dir}up';\""]
      puts $chan [html_form_input "button" "b" "Down" "onClick=\"location.href='${dir}down';\""]
      puts $chan [html_form_input "button" "b" "Left" "onClick=\"location.href='${dir}left';\""]
      puts $chan [html_form_input "button" "b" "Right" "onClick=\"location.href='${dir}right';\""]
      puts $chan [html_form_input "button" "b" "Select" "onClick=\"location.href='${dir}select';\""]
      puts $chan [html_form_input "button" "b" "LiveTV" "onClick=\"location.href='${dir}livetv';\""]
      puts $chan [html_form_input "button" "b" "List" "onClick=\"location.href='${dir}nowShowing';\""]
      puts $chan [html_form_input "button" "b" "Guide" "onClick=\"location.href='${dir}guide';\""]
      puts $chan [html_form_input "button" "b" "Clear" "onClick=\"location.href='${dir}clear';\""]
      puts $chan [html_form_input "button" "b" "Enter" "onClick=\"location.href='${dir}enter';\""]
      puts $chan [html_form_end]

   }

  puts $chan "[bodytext_start]<br>"
  puts $chan "[html_link "${dir}?type=t" "\[TEXT\]"]&nbsp;&nbsp;"
  puts $chan "[html_link "${dir}?type=b" "\[BUTTONS\]"]&nbsp;&nbsp;"
  puts $chan "[html_link "${dir}?type=i" "\[Peanut\]"]&nbsp;&nbsp;"
  puts $chan "[html_link "${dir}?type=a" "\[iPhone\]"]&nbsp;&nbsp;"
  puts $chan "[html_link "${dir}?type=s" "\[Sony\]"]&nbsp;&nbsp;"
#  puts $chan "[html_link "${dir}?type=r" "\[RCA\]"]&nbsp;&nbsp;"
  puts $chan "[html_link "${dir}?type=p" "\[Philips\]"]"
  puts $chan "[bodytext_end]<br>"

  if {!$::is_mobile && !($::webremote_type=="b")} {
    # Adding shortcut key table (unless using mobile browser)
    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>
         <tr align=\"center\">
           <td><font size=\"-3\">&nbsp;</font></td>
           <td><font size=\"-3\">'f'</font></td>
           <td><font size=\"-3\">FastFwd</font></td>
         </tr>
         <tr align=\"center\">
           <td><font size=\"-3\">&nbsp;</font></td>
           <td><font size=\"-3\">'r'</font></td>
           <td><font size=\"-3\">FastRwd</font></td>
         </tr>
       </table>"
  }

# Send four-digit channel change - updated to list available channels (9/10) (djl)
	if {[info exists c]} {
	 foreach {i} [split $c {}] {
		append cmdline "NUM$i "
	 }
	 append cmdline "ENTER"
	 eval ["exec /devbin/sendkey $cmdline"];# system SendKey function doesn't support more than one key per line
	 set path "channel"
	}		
	if {$path == "channel"} {
	 ForeachChannel chinfo 1 {
		lappend channums $chinfo(num)
		lappend chanlabs [strim $chinfo(name)]
	 }	
	 puts $chan [html_form_start "GET" "/sendkey"]
   puts $chan [table][tr "" [th "colspan=5" "Send full channel change"]][tr "" [td [html_form_select "c" $channums $chanlabs "" "onChange=\"this.form.submit();\""]]][table /]
	 puts $chan [html_form_end]
	} else {
	 puts $chan [html_form_start "GET" "/sendkey/channel"]
	 puts $chan [table][tr "" [td [submit "Change channel by name" ""]]][table /]
	 puts $chan [html_form_end]	
	}
}

register_menu "sendkey/" "Webremote" "" {
"sendkey/channel" "Channel change" ""
}