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 Copyright 2011 Jo-Philipp Wich <xm@subsignal.org>
   6
   7 Licensed under the Apache License, Version 2.0 (the "License");
   8 you may not use this file except in compliance with the License.
   9 You may obtain a copy of the License at
  10
  11         http://www.apache.org/licenses/LICENSE-2.0
  12
  13 $Id$
  14 ]]--
  15
  16 require("luci.sys")
  17 require("luci.sys.zoneinfo")
  18 require("luci.tools.webadmin")
  19 require("luci.fs")
  20 require("luci.config")
  21
  22 local m, s, o
  23 local has_ntpd = luci.fs.access("/usr/sbin/ntpd")
  24
  25 m = Map("system", translate("System"), translate("Here you can configure the basic aspects of your device like its hostname or the timezone."))
  26 m:chain("luci")
  27
  28
  29 s = m:section(TypedSection, "system", translate("System Properties"))
  30 s.anonymous = true
  31 s.addremove = false
  32
  33 s:tab("general",  translate("General Settings"))
  34 s:tab("logging",  translate("Logging"))
  35 s:tab("language", translate("Language and Style"))
  36
  37
  38 --
  39 -- System Properties
  40 --
  41
  42 o = s:taboption("general", DummyValue, "_systime", translate("Local Time"))
  43 o.template = "admin_system/clock_status"
  44
  45
  46 o = s:taboption("general", Value, "hostname", translate("Hostname"))
  47 o.datatype = "hostname"
  48
  49 function o.write(self, section, value)
  50         Value.write(self, section, value)
  51         luci.sys.hostname(value)
  52 end
  53
  54
  55 o = s:taboption("general", ListValue, "zonename", translate("Timezone"))
  56 o:value("UTC")
  57
  58 for i, zone in ipairs(luci.sys.zoneinfo.TZ) do
  59         o:value(zone[1])
  60 end
  61
  62 function o.write(self, section, value)
  63         local function lookup_zone(title)
  64                 for _, zone in ipairs(luci.sys.zoneinfo.TZ) do
  65                         if zone[1] == title then return zone[2] end
  66                 end
  67         end
  68
  69         AbstractValue.write(self, section, value)
  70         local timezone = lookup_zone(value) or "GMT0"
  71         self.map.uci:set("system", section, "timezone", timezone)
  72         luci.fs.writefile("/etc/TZ", timezone .. "\n")
  73 end
  74
  75
  76 --
  77 -- Logging
  78 --
  79
  80 o = s:taboption("logging", Value, "log_size", translate("System log buffer size"), "kiB")
  81 o.optional    = true
  82 o.placeholder = 16
  83 o.datatype    = "uinteger"
  84
  85 o = s:taboption("logging", Value, "log_ip", translate("External system log server"))
  86 o.optional    = true
  87 o.placeholder = "0.0.0.0"
  88 o.datatype    = "ip4addr"
  89
  90 o = s:taboption("logging", Value, "log_port", translate("External system log server port"))
  91 o.optional    = true
  92 o.placeholder = 514
  93 o.datatype    = "port"
  94
  95 o = s:taboption("logging", ListValue, "conloglevel", translate("Log output level"))
  96 o:value(8, translate("Debug"))
  97 o:value(7, translate("Info"))
  98 o:value(6, translate("Notice"))
  99 o:value(5, translate("Warning"))
 100 o:value(4, translate("Error"))
 101 o:value(3, translate("Critical"))
 102 o:value(2, translate("Alert"))
 103 o:value(1, translate("Emergency"))
 104
 105 o = s:taboption("logging", ListValue, "cronloglevel", translate("Cron Log Level"))
 106 o.default = 8
 107 o:value(5, translate("Debug"))
 108 o:value(8, translate("Normal"))
 109 o:value(9, translate("Warning"))
 110
 111
 112 --
 113 -- Langauge & Style
 114 --
 115
 116 o = s:taboption("language", ListValue, "_lang", translate("Language"))
 117 o:value("auto")
 118
 119 local i18ndir = luci.i18n.i18ndir .. "base."
 120 for k, v in luci.util.kspairs(luci.config.languages) do
 121         local file = i18ndir .. k:gsub("_", "-")
 122         if k:sub(1, 1) ~= "." and luci.fs.access(file .. ".lmo") then
 123                 o:value(k, v)
 124         end
 125 end
 126
 127 function o.cfgvalue(...)
 128         return m.uci:get("luci", "main", "lang")
 129 end
 130
 131 function o.write(self, section, value)
 132         m.uci:set("luci", "main", "lang", value)
 133 end
 134
 135
 136 o = s:taboption("language", ListValue, "_mediaurlbase", translate("Design"))
 137 for k, v in pairs(luci.config.themes) do
 138         if k:sub(1, 1) ~= "." then
 139                 o:value(v, k)
 140         end
 141 end
 142
 143 function o.cfgvalue(...)
 144         return m.uci:get("luci", "main", "mediaurlbase")
 145 end
 146
 147 function o.write(self, section, value)
 148         m.uci:set("luci", "main", "mediaurlbase", value)
 149 end
 150
 151
 152 --
 153 -- NTP
 154 --
 155
 156 if has_ntpd then
 157
 158         -- timeserver setup was requested, create section and reload page
 159         if m:formvalue("cbid.system._timeserver._enable") then
 160                 m.uci:section("system", "timeserver", "ntp",
 161                         {
 162                         server = { "0.openwrt.pool.ntp.org", "1.openwrt.pool.ntp.org", "2.openwrt.pool.ntp.org", "3.openwrt.pool.ntp.org" }
 163                         }
 164                 )
 165
 166                 m.uci:save("system")
 167                 luci.http.redirect(luci.dispatcher.build_url("admin/system", arg[1]))
 168                 return
 169         end
 170
 171         local has_section = false
 172         m.uci:foreach("system", "timeserver",
 173                 function(s)
 174                         has_section = true
 175                         return false
 176         end)
 177
 178         if not has_section then
 179
 180                 s = m:section(TypedSection, "timeserver", translate("Time Synchronization"))
 181                 s.anonymous   = true
 182                 s.cfgsections = function() return { "_timeserver" } end
 183
 184                 x = s:option(Button, "_enable")
 185                 x.title      = translate("Time Synchronization is not configured yet.")
 186                 x.inputtitle = translate("Setup Time Synchronization")
 187                 x.inputstyle = "apply"
 188
 189         else
 190
 191                 s = m:section(TypedSection, "timeserver", translate("Time Synchronization"))
 192                 s.anonymous = true
 193                 s.addremove = false
 194
 195                 o = s:option(Flag, "enable", translate("Enable NTP client"))
 196                 o.rmempty = false
 197
 198                 function o.cfgvalue(self)
 199                         return luci.sys.init.enabled("sysntpd")
 200                                 and self.enabled or self.disabled
 201                 end
 202
 203                 function o.write(self, section, value)
 204                         if value == self.enabled then
 205                                 luci.sys.init.enable("sysntpd")
 206                                 luci.sys.call("env -i /etc/init.d/sysntpd start >/dev/null")
 207                         else
 208                                 luci.sys.call("env -i /etc/init.d/sysntpd stop >/dev/null")
 209                                 luci.sys.init.disable("sysntpd")
 210                         end
 211                 end
 212
 213
 214                 o = s:option(Flag, "enable_server", translate("Provide NTP server"))
 215                 o:depends("enable", "1")
 216
 217
 218                 o = s:option(DynamicList, "server", translate("NTP server candidates"))
 219                 o.datatype = "host"
 220                 o:depends("enable", "1")
 221
 222                 -- retain server list even if disabled
 223                 function o.remove() end
 224
 225         end
 226 end
 227
 228 return m