114 lines
3.7 KiB
Plaintext
114 lines
3.7 KiB
Plaintext
# 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>
|
|
# "
|
|
|
|
|