# Chasget settins - mymsman 151008
#source /mod/webif/lib/setup
#require  settings.class
#set settings [settings]

set ::chaseget::status [$settings _nval_setting "chaseget_status"]
set ::chaseget::mute [$settings _nval_setting "chaseget_mute"]
set ::chaseget::standby_start1 [$settings _tval_setting "chaseget_standby_start1"]
set ::chaseget::standby_end1 [$settings _tval_setting "chaseget_standby_end1"]

puts "
    <fieldset style=\"display: inline\">
    <legend>
        <a href=\"http://wiki.hummy.tv/wiki/DetectAds#ChaseGet_settings\" target=\"_blank\">ChaseGet (Get file whilst recording) settings</a>
    </legend>
    <p>See <b><a href=\"http://wiki.hummy.tv/wiki/DetectAds#ChaseGet_settings\" target=\"_blank\">DetectAds user guide</a></b> for help</p>
    <form class=auto id=chaseget method=get
        action=/plugin/chaseget/save.jim>
    <table>"
puts "
    <tr>
        <th class=key>Hide ChaseGet on status display?
        </th>
        <td><input id=chaseget_status name=chaseget_status
            type=checkbox value=yes"
if {$::chaseget::status} { puts -nonewline " checked" }
puts ">
        </td>
    </tr>"
puts "
    <tr>
        <th class=key>Mute sound on ChaseGet wake from standby?
        </th>
        <td><input id=chaseget_mute name=chaseget_mute
            type=checkbox value=yes"
if {$::chaseget::mute} { puts -nonewline " checked" }
puts ">
        </td>
    </tr>"
proc timelist {sel} {
    for {set t 0} {$t <=1440} {incr t 30} {
       # (mis)use the the fact of 60 sec per min 60 min per hour to format hh:mm, t is min per period
       set ft [clock format $t -format %M:%S]
       puts -nonewline "<option value=\"$ft\""
       if {$sel eq $ft} {
            puts -nonewline " selected=yes"
       }
       puts ">$ft</option>"
    }
}

puts "
    <tr id=chaseget_timerange >
        <th class=key>Don't mute or return to standby between
        </th>
        <th class=key>
            <select id=chaseget_standby_start1 name=chaseget_standby_start1
            class=\"ui-widget-content ui-corner-all\" >"
timelist $::chaseget::standby_start1
puts "      </select>
        and
            <select id=chaseget_standby_end1 name=chaseget_standby_end1
            class=\"ui-widget-content ui-corner-all\" >"
timelist $::chaseget::standby_end1
puts "      </select>
        </th>
    </tr>"
puts "
    <tr>
        <td colspan=2><input type=submit value=\"Update settings\">
            <div id=chaseget_output></div>
        </td>
    </tr>
    </table>
    </form>
    </fieldset>
    "
#puts "<datalist id=timelist>"
#for {set t 0} {$t <=1440} {incr t 30} {
#   # (mis)use the the fact of 60 sec per min 60 min per hour to format hh:mm, t is min per period
#   puts "<option value=\"[clock format $t -format %M:%S]\">"
#}
#puts "</datalist>"
#set pattern {([01]?[0-9]|2[0-4]):[0-5][0-9]}
#puts "
#    <tr id=chaseget_timerange >
#        <th class=key>Don't return to standby between
#        </th>
#        <th class=key>
#            <input id=chaseget_standby_start1 name=chaseget_standby_start1
#            type=text size=5 list=timelist value=\"$::chaseget::standby_start1\"
#            class=\"ui-widget-content ui-corner-all\"
#            pattern=$pattern title=\"hh:mm time\">
#
#        and
#            <input id=chaseget_standby_end1 name=chaseget_standby_end1
#            type=text size=5 list=timelist value=\"$::chaseget::standby_end1\"
#            class=\"ui-widget-content ui-corner-all\"
#            pattern=$pattern title=\"hh:mm time\">
#        </th>
#    </tr>"
#puts "
#    <tr>
#        <td colspan=2><input type=submit value=\"Update settings\">
#            <div id=chaseget_output></div>
#        </td>
#    </tr>
#    </table>
#    </form>
#    </fieldset>
#    "