fab7072ff2b8d2e5c65c4729aefd0f463afcc14a
[project/luci.git] / modules / freifunk / luasrc / model / cbi / freifunk / profile.lua
1 --[[
2 LuCI - Lua Configuration Interface
3
4 Copyright 2011 Manuel Munz <freifunk at somakoma dot de>
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         httc://www.apache.org/licenses/LICENSE-2.0
11 ]]--
12
13 local uci = require "luci.model.uci".cursor()
14 local community = uci:get("freifunk", "community", "name")
15 luci.i18n.loadc("freifunk")
16
17 if community == nil then
18         luci.http.redirect(luci.dispatcher.build_url("admin", "freifunk", "profile_error"))
19         return
20 else
21         community = "profile_" .. community
22         m = Map(community, translate("Community settings"), translate("These are the settings of your local community."))
23         c = m:section(NamedSection, "profile", "community")
24
25         name = c:option(Value, "name", "Name")
26         name.rmempty = false
27
28         homepage = c:option(Value, "homepage", translate("Homepage"))
29
30         cc = c:option(Value, "country", translate("Country code"))
31         function cc.cfgvalue(self, section)
32                 return uci:get(community, "wifi_device", "country")
33         end
34         function cc.write(self, sec, value)
35                 if value then
36                         uci:set(community, "wifi_device", "country", value)
37                         uci:save(community)
38                 end
39         end
40
41         ssid = c:option(Value, "ssid", translate("ESSID"))
42         ssid.rmempty = false
43
44         prefix = c:option(Value, "mesh_network", translate("Mesh prefix"))
45         prefix.rmempty = false
46
47         splash_net = c:option(Value, "splash_network", translate("Network for client DHCP addresses"))
48         splash_net.rmempty = false
49
50         splash_prefix = c:option(Value, "splash_prefix", translate("Client network size"))
51         splash_prefix.rmempty = false
52
53         lat = c:option(Value, "latitude", translate("Latitude"))
54         lat.rmempty = false
55
56         lon = c:option(Value, "longitude", translate("Longitude"))
57         lon.rmempty = false
58         return m
59 end