applications/luci-upnp: add option to enable NAT-PMP

[project/luci.git] / applications / luci-upnp / luasrc / model / cbi / upnp / upnp.lua

diff --git a/applications/luci-upnp/luasrc/model/cbi/upnp/upnp.lua b/applications/luci-upnp/luasrc/model/cbi/upnp/upnp.lua
index a485081297158d500c403469b0607a7cbd2627d4..5d61dcecba2b262040292ab10c6c2f0955cadd67 100644 (file)
--- a/applications/luci-upnp/luasrc/model/cbi/upnp/upnp.lua
+++ b/applications/luci-upnp/luasrc/model/cbi/upnp/upnp.lua
@@ -2,7 +2,7 @@
 LuCI - Lua Configuration Interface
 
 Copyright 2008 Steven Barth <steven@midlink.org>
-Copyright 2008 Jo-Philipp Wich <xm@leipzig.freifunk.net>
+Copyright 2008-2010 Jo-Philipp Wich <xm@subsignal.org>
 
 Licensed under the Apache License, Version 2.0 (the "License");
 you may not use this file except in compliance with the License.
@@ -12,24 +12,36 @@ You may obtain a copy of the License at
 
 $Id$
 ]]--
-m = Map("upnpd", translate("upnpd"), translate("upnpd_desc"))
+
+m = Map("upnpd", translate("Universal Plug & Play"),
+       translate("UPnP allows clients in the local network to automatically configure the router."))
+
+m:section(SimpleSection).template  = "upnp_status"
 
 s = m:section(NamedSection, "config", "upnpd", "")
-e = s:option(Flag, "enabled", translate("enable"))
-e.rmempty = false
+s.addremove = false
 
-function e.write(self, section, value)
-       local cmd = (value == "1") and "enable" or "disable"
-       os.execute("/etc/init.d/miniupnpd " .. cmd)
-end
+e = s:option(Flag, "enabled", translate("Enable UPnP Service"))
+e.rmempty  = false
+e.enabled  = "1"
+e.disabled = "0"
 
-function e.cfgvalue(self, section)
-       return (os.execute("/etc/init.d/miniupnpd enabled") == 0) and "1" or "0"
+function e.write(self, section, value)
+       if value == "1" then
+               luci.sys.call("/etc/init.d/miniupnpd enable")
+               luci.sys.call("/etc/init.d/miniupnpd start")
+       else
+               luci.sys.call("/etc/init.d/miniupnpd stop")
+               luci.sys.call("/etc/init.d/miniupnpd disable")
+       end
+
+       Value.write(self, section, value)
 end
 
-s:option(Flag, "secure_mode").rmempty = true
-s:option(Flag, "log_output").rmempty = true
-s:option(Value, "download", nil, "kByte/s").rmempty = true
-s:option(Value, "upload", nil, "kByte/s").rmempty = true
+s:option(Flag, "enable_natpmp", translate("Enable NAT-PMP")).rmempty = true
+s:option(Flag, "secure_mode", translate("Enable secure mode")).rmempty = true
+s:option(Flag, "log_output", translate("Log output")).rmempty = true
+s:option(Value, "download", translate("Downlink"), "kByte/s").rmempty = true
+s:option(Value, "upload", translate("Uplink"), "kByte/s").rmempty = true
 
 return m