modules/admin-mini: fix syntax error in system controller
[project/luci.git] / modules / admin-full / luasrc / model / cbi / admin_system / system.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
15 require("luci.sys")
16 require("luci.sys.zoneinfo")
17 require("luci.tools.webadmin")
18
19 m = Map("system", translate("system"), translate("a_s_desc"))
20
21 s = m:section(TypedSection, "system", "")
22 s.anonymous = true
23
24 local system, model, memtotal, memcached, membuffers, memfree = luci.sys.sysinfo()
25 local uptime = luci.sys.uptime()
26
27 s:option(DummyValue, "_system", translate("system")).value = system
28 s:option(DummyValue, "_cpu", translate("m_i_processor")).value = model
29
30 local load1, load5, load15 = luci.sys.loadavg()
31 s:option(DummyValue, "_la", translate("load")).value =
32  string.format("%.2f, %.2f, %.2f", load1, load5, load15)
33
34 s:option(DummyValue, "_memtotal", translate("m_i_memory")).value =
35  string.format("%.2f MB (%.0f%% %s, %.0f%% %s, %.0f%% %s)",
36   tonumber(memtotal) / 1024,
37   100 * memcached / memtotal,
38   tostring(translate("mem_cached", "")),
39   100 * membuffers / memtotal,
40   tostring(translate("mem_buffered", "")),
41   100 * memfree / memtotal,
42   tostring(translate("mem_free", ""))
43
44 s:option(DummyValue, "_systime", translate("m_i_systemtime")).value =
45  os.date("%c")
46
47 s:option(DummyValue, "_uptime", translate("m_i_uptime")).value =
48  luci.tools.webadmin.date_format(tonumber(uptime))
49
50 hn = s:option(Value, "hostname", translate("hostname"))
51
52 function hn.write(self, section, value)
53         Value.write(self, section, value)
54         luci.sys.hostname(value)
55 end
56
57
58 tz = s:option(ListValue, "zonename", translate("timezone"))
59 tz:value("UTC")
60
61 for i, zone in ipairs(luci.sys.zoneinfo.TZ) do
62         tz:value(zone[1])
63 end
64
65 function tz.write(self, section, value)
66         local function lookup_zone(title)
67                 for _, zone in ipairs(luci.sys.zoneinfo.TZ) do
68                         if zone[1] == title then return zone[2] end
69                 end
70         end
71
72         AbstractValue.write(self, section, value)
73         self.map.uci:set("system", section, "timezone", lookup_zone(value) or "GMT0")
74 end
75
76 s:option(Value, "log_size", nil, "kiB").optional = true
77 s:option(Value, "log_ip").optional = true
78 s:option(Value, "conloglevel").optional = true
79 s:option(Value, "cronloglevel").optional = true
80 return m