modules/admin-full/luasrc/model/cbi/admin_system/leds.lua

   1 --[[
   2 LuCI - Lua Configuration Interface
   3
   4 Copyright 2008 Steven Barth <steven@midlink.org>
   5
   6 Licensed under the Apache License, Version 2.0 (the "License");
   7 you may not use this file except in compliance with the License.
   8 You may obtain a copy of the License at
   9
  10         http://www.apache.org/licenses/LICENSE-2.0
  11
  12 $Id$
  13 ]]--
  14 m = Map("system", translate("leds"), translate("leds_desc"))
  15
  16 local sysfs_path = "/sys/class/leds/"
  17 local leds = {}
  18 leds[1] = "moep"
  19
  20 if luci.fs.access(sysfs_path) then
  21         for k, v in pairs(luci.fs.dir(sysfs_path)) do
  22                 if v ~= "." and v ~= ".." then
  23                         table.insert(leds, v)
  24                 end
  25         end
  26 end
  27
  28 if #leds == 0 then
  29         return m
  30 end
  31
  32
  33 s = m:section(TypedSection, "led", "")
  34 s.anonymous = true
  35 s.addremove = true
  36
  37 function s.parse(self, ...)
  38         TypedSection.parse(self, ...)
  39         os.execute("/etc/init.d/led enable")
  40 end
  41
  42
  43 s:option(Value, "name")
  44
  45
  46 sysfs = s:option(ListValue, "sysfs")
  47 for k, v in ipairs(leds) do
  48         sysfs:value(v)
  49 end
  50
  51 s:option(Flag, "default").rmempty = true
  52
  53
  54 trigger = s:option(ListValue, "trigger")
  55
  56 --local triggers = luci.fs.readfile(sysfs_path .. leds[1] .. "/trigger")
  57 triggers = "[none] netdev heartbeat default-on timer"
  58 for t in triggers:gmatch("[%w-]+") do
  59         trigger:value(t, translate("system_led_trigger_" .. t:gsub("-", "")))
  60 end
  61
  62
  63 delayon = s:option(Value, "delayon")
  64 delayon:depends("trigger", "timer")
  65
  66 delayoff = s:option(Value, "delayoff")
  67 delayoff:depends("trigger", "timer")
  68
  69
  70 dev = s:option(ListValue, "dev")
  71 dev.rmempty = true
  72 dev:value("")
  73 dev:depends("trigger", "netdev")
  74 for k, v in pairs(luci.sys.net.devices()) do
  75         if v ~= "lo" then
  76                 dev:value(v)
  77         end
  78 end
  79
  80
  81 mode = s:option(MultiValue, "mode")
  82 mode.rmempty = true
  83 mode:depends("trigger", "netdev")
  84 mode:value("link", translate("system_led_mode_link"))
  85 mode:value("tx", translate("system_led_mode_tx"))
  86 mode:value("rx", translate("system_led_mode_rx"))
  87
  88 return m