2011-06-07 13:26:45 +00:00
|
|
|
#!/mod/bin/jimsh
|
|
|
|
|
|
|
|
set services [split [exec /mod/bin/service mlist]]
|
|
|
|
|
|
|
|
foreach service $services {
|
2011-10-07 18:18:45 +00:00
|
|
|
lassign [split $service ":"] name installed auto running
|
2011-06-07 13:26:45 +00:00
|
|
|
|
2011-06-22 00:21:48 +00:00
|
|
|
puts "<tr><td class=even>$name</td>"
|
2011-06-07 13:26:45 +00:00
|
|
|
if (!$installed) {
|
|
|
|
puts "<td colspan=3><i>Not installed</i></td></tr>"
|
|
|
|
continue
|
|
|
|
}
|
|
|
|
|
2011-06-22 00:21:48 +00:00
|
|
|
puts -nonewline "<td><input type=checkbox class=auto name=\"$name\""
|
|
|
|
if ($auto) { puts -nonewline " checked" }
|
|
|
|
puts "></td>"
|
2011-06-07 13:26:45 +00:00
|
|
|
|
2012-05-19 21:44:42 +00:00
|
|
|
puts -nonewline "<td><input type=checkbox class=toggle name=\"$name\""
|
2011-06-22 00:21:48 +00:00
|
|
|
if ($running) { puts -nonewline " checked" }
|
|
|
|
puts "></td>"
|
2011-06-07 13:26:45 +00:00
|
|
|
|
|
|
|
puts "</tr>"
|
|
|
|
}
|
|
|
|
|