328ca16b5c
git-svn-id: file:///root/webif/svn/humax/pkg/src/webif/trunk@1201 2a923420-c742-0410-a762-8d5b09965624
60 lines
1.2 KiB
Plaintext
Executable File
60 lines
1.2 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
|
|
mheader
|
|
|
|
set services [split [exec /mod/bin/service mlist]]
|
|
|
|
puts "<ul data-role=listview>"
|
|
set i 0
|
|
foreach service $services {
|
|
lassign [split $service ":"] name installed auto running
|
|
|
|
if (!$installed) {
|
|
puts "<li><h3>[string totitle $name]</h3>"
|
|
puts "<p><i>Not installed.</i></p>"
|
|
puts "</li>"
|
|
continue
|
|
}
|
|
|
|
incr i
|
|
|
|
puts "
|
|
<li>
|
|
<div data-role=fieldcontain data-mini=true>
|
|
<h3>[string totitle $name]</h3>
|
|
<label class=va for=toggle$i>State:</label>
|
|
<select class=toggle act=toggle data-role=slider service=$name>
|
|
"
|
|
if {$running} {
|
|
puts "<option value=off>Off</option>"
|
|
puts "<option value=on selected>On</option>"
|
|
} else {
|
|
puts "<option value=off selected>Off</option>"
|
|
puts "<option value=on>On</option>"
|
|
}
|
|
puts "
|
|
</select>
|
|
<label class=va for=auto$i>Auto-start:</label>
|
|
<select class=auto act=auto data-role=slider service=$name>
|
|
"
|
|
if ($auto) {
|
|
puts "<option value=off>Off</option>"
|
|
puts "<option value=on selected>On</option>"
|
|
} else {
|
|
puts "<option value=off selected>Off</option>"
|
|
puts "<option value=on>On</option>"
|
|
}
|
|
puts "
|
|
</select>
|
|
</div>
|
|
"
|
|
puts "</li>"
|
|
}
|
|
puts "</ul>"
|
|
|
|
mfooter
|
|
|