Merge pull request #901 from musashino205/wifischd-add-ja
[project/luci.git] / applications / luci-app-wifischedule / luasrc / model / cbi / wifischedule / wifi_schedule.lua
1 -- Copyright (c) 2016, prpl Foundation
2 --
3 -- Permission to use, copy, modify, and/or distribute this software for any purpose with or without
4 -- fee is hereby granted, provided that the above copyright notice and this permission notice appear
5 -- in all copies.
6 --
7 -- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
8 -- INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE
9 -- FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
10 -- LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
11 -- ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
12 --
13 -- Author: Nils Koenig <openwrt@newk.it>
14
15 function file_exists(name)
16    local f=io.open(name,"r")
17    if f~=nil then io.close(f) return true else return false end
18 end
19
20
21 function time_validator(self, value, desc)
22     if value ~= nil then
23         
24         h_str, m_str = string.match(value, "^(%d%d?):(%d%d?)$")
25         h = tonumber(h_str)
26         m = tonumber(m_str)
27         if ( h ~= nil and
28              h >= 0   and
29              h <= 23  and
30              m ~= nil and
31              m >= 0   and
32              m <= 59) then
33             return value
34         end
35     end 
36     return nil, translate("The value '" .. desc .. "' is invalid")
37 end
38
39 -- -------------------------------------------------------------------------------------------------
40
41 -- BEGIN Map
42 m = Map("wifi_schedule", translate("Wifi Schedule"), translate("Defines a schedule when to turn on and off wifi.")) 
43 function m.on_commit(self)
44     luci.sys.exec("/usr/bin/wifi_schedule.sh cron")
45 end
46 -- END Map
47
48 -- BEGIN Global Section
49 global_section = m:section(TypedSection, "global", "Global Settings")
50 global_section.optional = false
51 global_section.rmempty = false
52 global_section.anonymous = true
53 -- END Section
54
55 -- BEGIN Global Enable Checkbox
56 global_enable = global_section:option(Flag, "enabled", translate("Enable Wifi Schedule"))
57 global_enable.optional=false; 
58 global_enable.rmempty = false;
59
60 function global_enable.validate(self, value, global_section)
61     if value == "1" then
62         if ( file_exists("/sbin/wifi") and
63              file_exists("/usr/bin/wifi_schedule.sh") )then
64             return value
65         else
66             return nil, translate("Could not find required /usr/bin/wifi_schedule.sh or /sbin/wifi")
67         end
68     else
69         return "0"
70     end
71 end
72 -- END Global Enable Checkbox
73
74
75 -- BEGIN Global Logging Checkbox
76 global_logging = global_section:option(Flag, "logging", translate("Enable logging"))
77 global_logging.optional=false; 
78 global_logging.rmempty = false;
79 global_logging.default = 0
80 -- END Global Enable Checkbox
81
82 -- BEGIN Global Activate WiFi Button
83 enable_wifi = global_section:option(Button, "enable_wifi", translate("Activate wifi"))
84 function enable_wifi.write()
85     luci.sys.exec("/usr/bin/wifi_schedule.sh start manual")
86 end
87 -- END Global Activate Wifi Button
88
89 -- BEGIN Global Disable WiFi Gracefully Button
90 disable_wifi_gracefully = global_section:option(Button, "disable_wifi_gracefully", translate("Disable wifi gracefully"))
91 function disable_wifi_gracefully.write()
92     luci.sys.exec("/usr/bin/wifi_schedule.sh stop manual")
93 end
94 -- END Global Disable Wifi Gracefully Button 
95
96 -- BEGIN Disable WiFi Forced Button
97 disable_wifi_forced = global_section:option(Button, "disable_wifi_forced", translate("Disabled wifi forced"))
98 function disable_wifi_forced.write()
99     luci.sys.exec("/usr/bin/wifi_schedule.sh forcestop manual")
100 end
101 -- END Global Disable WiFi Forced Button
102
103 -- BEGIN Global Unload Modules Checkbox
104 global_unload_modules = global_section:option(Flag, "unload_modules", translate("Unload Modules (experimental; saves more power)"))
105 global_unload_modules.optional = false;
106 global_unload_modules.rmempty = false;
107 global_unload_modules.default = 0
108 -- END Global Unload Modules Checkbox
109
110
111 -- BEGIN Modules
112 modules = global_section:option(TextValue, "modules", "")
113 modules:depends("unload_modules", global_unload_modules.enabled);
114 modules.wrap    = "off"
115 modules.rows    = 10
116
117 function modules.cfgvalue(self, section)
118     mod=uci.get("wifi_schedule", section, "modules")
119     if mod == nil then
120         mod=""
121     end
122     return mod:gsub(" ", "\r\n")
123 end
124
125 function modules.write(self, section, value)
126     if value then
127         value_list = value:gsub("\r\n", " ")
128         ListValue.write(self, section, value_list)
129         uci.set("wifi_schedule", section, "modules", value_list)
130     end
131 end
132 -- END Modules
133
134 -- BEGIN Determine Modules 
135 determine_modules = global_section:option(Button, "determine_modules", translate("Determine Modules Automatically"))
136 determine_modules:depends("unload_modules", global_unload_modules.enabled);
137 function determine_modules.write(self, section)
138     output = luci.sys.exec("/usr/bin/wifi_schedule.sh getmodules")
139     modules:write(section, output)
140 end
141 -- END Determine Modules
142
143
144 -- BEGIN Section
145 d = m:section(TypedSection, "entry", "Schedule events")
146 d.addremove = true  
147 --d.anonymous = true
148 -- END Section
149
150 -- BEGIN Enable Checkbox
151 c = d:option(Flag, "enabled", translate("Enable"))
152 c.optional=false; c.rmempty = false;
153 -- END Enable Checkbox
154
155
156 -- BEGIN Day(s) of Week
157 dow = d:option(MultiValue, "daysofweek", translate("Day(s) of Week"))
158 dow.optional = false
159 dow.rmempty = false
160 dow:value("Monday")
161 dow:value("Tuesday")
162 dow:value("Wednesday")
163 dow:value("Thursday")
164 dow:value("Friday")
165 dow:value("Saturday")
166 dow:value("Sunday")
167 -- END Day(s) of Weel
168
169 -- BEGIN Start Wifi Dropdown
170 starttime =  d:option(Value, "starttime", translate("Start WiFi"))
171 starttime.optional=false; 
172 starttime.rmempty = false;
173 starttime:value("00:00")
174 starttime:value("01:00")
175 starttime:value("02:00")
176 starttime:value("03:00")
177 starttime:value("04:00")
178 starttime:value("05:00")
179 starttime:value("06:00")
180 starttime:value("07:00")
181 starttime:value("08:00")
182 starttime:value("09:00")
183 starttime:value("10:00")
184 starttime:value("11:00")
185 starttime:value("12:00")
186 starttime:value("13:00")
187 starttime:value("14:00")
188 starttime:value("15:00")
189 starttime:value("16:00")
190 starttime:value("17:00")
191 starttime:value("18:00")
192 starttime:value("19:00")
193 starttime:value("20:00")
194 starttime:value("21:00")
195 starttime:value("22:00")
196 starttime:value("23:00")
197
198 function starttime.validate(self, value, d)
199     return time_validator(self, value, translate("Start Time"))
200 end
201
202 -- END Start Wifi Dropdown
203
204
205 -- BEGIN Stop Wifi Dropdown
206 stoptime =  d:option(Value, "stoptime", translate("Stop WiFi"))
207 stoptime.optional=false;
208 stoptime.rmempty = false;
209 stoptime:value("00:00")
210 stoptime:value("01:00")
211 stoptime:value("02:00")
212 stoptime:value("03:00")
213 stoptime:value("04:00")
214 stoptime:value("05:00")
215 stoptime:value("06:00")
216 stoptime:value("07:00")
217 stoptime:value("08:00")
218 stoptime:value("09:00")
219 stoptime:value("10:00")
220 stoptime:value("11:00")
221 stoptime:value("12:00")
222 stoptime:value("13:00")
223 stoptime:value("14:00")
224 stoptime:value("15:00")
225 stoptime:value("16:00")
226 stoptime:value("17:00")
227 stoptime:value("18:00")
228 stoptime:value("19:00")
229 stoptime:value("20:00")
230 stoptime:value("21:00")
231 stoptime:value("22:00")
232 stoptime:value("23:00")
233
234 function stoptime.validate(self, value, d)
235     return time_validator(self, value, translate("Stop Time"))
236 end
237 -- END Stop Wifi Dropdown
238
239
240 -- BEGIN Force Wifi Stop Checkbox
241 force_wifi = d:option(Flag, "forcewifidown", translate("Force disabling wifi even if stations associated"))
242 force_wifi.default = false
243 force_wifi.rmempty = false;
244
245 function force_wifi.validate(self, value, d)
246     if value == "0" then
247         if file_exists("/usr/bin/iwinfo") then
248             return value
249         else
250             return nil, translate("Could not find required programm /usr/bin/iwinfo")
251         end
252     else
253         return "1"
254     end
255 end
256 -- END Force Wifi Checkbox
257
258
259 return m