modules/freifunk: i18n for basics.lua and helptext for latlon (#177)
[project/luci.git] / modules / freifunk / luasrc / model / cbi / freifunk / basics.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
13 local fs = require "luci.fs"
14 local util = require "luci.util"
15 local uci = require "luci.model.uci".cursor()
16 local profiles = "/etc/config/profile_"
17
18 m = Map("freifunk", translate ("Community"))
19 c = m:section(NamedSection, "community", "public", nil, translate([[These are the basic
20 settings for your local wireless community. These settings define the default values for the wizard
21 and DO NOT affect the actual configuration of the router.]]))
22
23 community = c:option(ListValue, "name", translate ("Community"))
24 community.rmempty = false
25
26 local list = { }
27 local list = fs.glob(profiles .. "*")
28
29 for k,v in ipairs(list) do
30 local name = uci:get_first(v, "community", "name") or "?"
31 local n = string.gsub(v, profiles, "")
32 community:value(n, name)
33 end
34
35 n = Map("system", translate("Basic system settings"))
36 b = n:section(TypedSection, "system")
37 b.anonymous = true
38
39 hn = b:option(Value, "hostname", translate("Hostname"))
40 hn.rmempty = false
41 function hn.validate(self, value)
42 if value == nil then
43 return
44 elseif (#value > 24) or string.match(value, "[^%w%.%-]") or string.match(value, "^[%-%.]") or string.match(value, "[%-%.]$") then
45 return nil, translate("Hostname may contain up to 24 alphanumeric characters. Minus and period are also allowed, but not in the beginning or the end of the hostname.")
46 else
47 return value
48 end
49 end
50
51 loc = b:option(Value, "location", translate("Location"))
52 loc.rmempty = false
53
54 lat = b:option(Value, "latitude", translate("Latitude"), translate("e.g.") .. " 48.12345")
55 lat.rmempty = false
56
57 lon = b:option(Value, "longitude", translate("Longitude"), translate("e.g.") .. " 10.12345")
58 lon.rmempty = false
59
60 --[[
61 Opens an OpenStreetMap iframe or popup
62 Makes use of resources/OSMLatLon.htm and htdocs/resources/osm.js
63 (is that the right place for files like these?)
64 ]]--
65
66 --[[ this needs to be fixed
67 local class = util.class
68 local co = "profile_augsburg"
69 local syslat = uci:get_first(co, "community", "latitude")
70 local syslon = uci:get_first(co, "community", "longitude")
71
72 OpenStreetMapLonLat = class(AbstractValue)
73
74 function OpenStreetMapLonLat.__init__(self, ...)
75 AbstractValue.__init__(self, ...)
76 self.template = "cbi/osmll_value"
77 self.latfield = nil
78 self.lonfield = nil
79 self.centerlat = ""
80 self.centerlon = ""
81 self.zoom = "0"
82 self.width = "100%" --popups will ignore the %-symbol, "100%" is interpreted as "100"
83 self.height = "600"
84 self.popup = false
85 self.displaytext="OpenStreetMap" --text on button, that loads and displays the OSMap
86 self.hidetext="X" -- text on button, that hides OSMap
87 end
88
89
90 f = SimpleForm("ffwizward", "OpenStreetMap", "Hier kann man die Geokoordinaten des Knotens herausfinden.")
91
92 osm = f:field(OpenStreetMapLonLat, "latlon", "Geokoordinaten mit OpenStreetMap ermitteln:", "Klicken Sie auf Ihren Standort in der Karte. Diese Karte funktioniert nur, wenn das Gerät bereits eine Verbindung zum Internet hat.")
93 osm.latfield = "lat"
94 osm.lonfield = "lon"
95 osm.centerlat = syslat
96 osm.centerlon = syslon
97 osm.width = "100%"
98 osm.height = "600"
99 osm.popup = false
100
101 syslatlengh = string.len(syslat)
102 if syslatlengh > 7 then
103 osm.zoom = "15"
104 elseif syslatlengh > 5 then
105 osm.zoom = "12"
106 else
107 osm.zoom = "6"
108 end
109
110 osm.displaytext="OpenStreetMap anzeigen"
111 osm.hidetext="OpenStreetMap verbergen"
112 ]]
113
114 return m, n