modules/admin-full: fix default state option on led control page

[project/luci.git] / modules / admin-full / luasrc / model / cbi / admin_system / leds.lua

diff --git a/modules/admin-full/luasrc/model/cbi/admin_system/leds.lua b/modules/admin-full/luasrc/model/cbi/admin_system/leds.lua
index 100f031..b48ade5 100644 (file)
--- a/modules/admin-full/luasrc/model/cbi/admin_system/leds.lua
+++ b/modules/admin-full/luasrc/model/cbi/admin_system/leds.lua
@@ -11,30 +11,60 @@ You may obtain a copy of the License at
 
 $Id$
 ]]--
 
 $Id$
 ]]--

-m = Map("system", translate("leds"), translate("leds_desc"))
+m = Map("system", translate("<abbr title=\"Light Emitting Diode\">LED</abbr> Configuration"), translate("Customizes the behaviour of the device <abbr title=\"Light Emitting Diode\">LED</abbr>s if possible."))
+
+local sysfs_path = "/sys/class/leds/"
+local leds = {}
+
+local fs   = require "nixio.fs"
+local util = require "nixio.util"
+
+if fs.access(sysfs_path) then
+       leds = util.consume((fs.dir(sysfs_path)))
+end
+
+if #leds == 0 then
+       return m
+end
+

 
 s = m:section(TypedSection, "led", "")
 s.anonymous = true
 s.addremove = true
 
 
 s = m:section(TypedSection, "led", "")
 s.anonymous = true
 s.addremove = true
 

+function s.parse(self, ...)
+       TypedSection.parse(self, ...)
+       os.execute("/etc/init.d/led enable")
+end

 
 

-s:option(Value, "name")

 
 

-sysfs = s:option(ListValue, "sysfs")
-for k, v in pairs(luci.fs.dir("/sys/class/leds/")) do
-       if v ~= "." and v ~= ".." then
-               sysfs:value(v)
-       end
+s:option(Value, "name", translate("Name"))
+
+
+sysfs = s:option(ListValue, "sysfs", translate("<abbr title=\"Light Emitting Diode\">LED</abbr> Name"))
+for k, v in ipairs(leds) do
+       sysfs:value(v)

 end
 
 end
 

-s:option(Flag, "default").rmempty = true
+s:option(Flag, "default", translate("Default state")).rmempty = false
+
+
+trigger = s:option(ListValue, "trigger", translate("Trigger"))
+
+local triggers = fs.readfile(sysfs_path .. leds[1] .. "/trigger")
+for t in triggers:gmatch("[%w-]+") do
+       trigger:value(t, translate(t:gsub("-", "")))
+end

 
 

-trigger = s:option(Value, "trigger")
-trigger.rmempty = true
-trigger:value("netdev")

 
 

+delayon = s:option(Value, "delayon", translate ("On-State Delay"))
+delayon:depends("trigger", "timer")

 
 

-dev = s:option(ListValue, "dev")
+delayoff = s:option(Value, "delayoff", translate ("Off-State Delay"))
+delayoff:depends("trigger", "timer")
+
+
+dev = s:option(ListValue, "dev", translate("Device"))

 dev.rmempty = true
 dev:value("")
 dev:depends("trigger", "netdev")
 dev.rmempty = true
 dev:value("")
 dev:depends("trigger", "netdev")


@@ -44,7 +74,12 @@ for k, v in pairs(luci.sys.net.devices()) do
        end
 end
 
        end
 end
 

-mode = s:option(Value, "mode")
+
+mode = s:option(MultiValue, "mode", translate("Trigger Mode"))

 mode.rmempty = true
 mode.rmempty = true

-mode:value("link")

 mode:depends("trigger", "netdev")
 mode:depends("trigger", "netdev")

+mode:value("link", translate("Link On"))
+mode:value("tx", translate("Transmit"))
+mode:value("rx", translate("Receive"))
+
+return m