local s=require"luci.sys"
local net = require "luci.model.network".init()
local ifaces = s.net:devices()
local m,s,o

m=Map("pppoe-relay",translate("PPPoE Relay"))
m.description = translate("Opening the PPPoE relay allows devices in the Intranet to create a separate PPPoE connection that can cross NAT.")
s=m:section(TypedSection,"service")
s.addremove=true
s.anonymous=true
s.template="cbi/tblsection"

o=s:option(Flag,"enabled",translate("Enabled"))
o.rmempty=false

o=s:option(ListValue,"server_interface",translate("Server Interface"))
for _, iface in ipairs(ifaces) do
	if not (iface == "lo" or iface:match("^ifb.*") or iface:match("gre*")) then
		local nets = net:get_interface(iface)
		nets = nets and nets:get_networks() or {}
		for k, v in pairs(nets) do
			nets[k] = nets[k].sid
		end
		nets = table.concat(nets, ",")
		o:value(iface, ((#nets > 0) and "%s (%s)" % {iface, nets} or iface))
	end
end
o.rmempty=true

o=s:option(ListValue,"client_interface",translate("Client Interface"))
for _, iface in ipairs(ifaces) do
	if not (iface == "lo" or iface:match("^ifb.*") or iface:match("gre*")) then
		local nets = net:get_interface(iface)
		nets = nets and nets:get_networks() or {}
		for k, v in pairs(nets) do
			nets[k] = nets[k].sid
		end
		nets = table.concat(nets, ",")
		o:value(iface, ((#nets > 0) and "%s (%s)" % {iface, nets} or iface))
	end
end
o.rmempty=true

o=s:option(Button,"is_run",translate("Check"))
function o.write(self, section)
	local server_interface = m.uci:get('pppoe-relay',section,"server_interface")
	local client_interface = m.uci:get('pppoe-relay',section,"client_interface")
	isrun=luci.sys.call("ps | grep '/usr/sbin/pppoe-relay -S "..server_interface.." -C "..client_interface.."' | grep -v 'grep' >/dev/null")
	if isrun == 1 then
		o.description = "<script>alert('"..translate("NOT RUNNING").."');</script>"
	else
		o.description = "<script>alert('"..translate("RUNNING").."');</script>"
	end
end

return m