<%- local ntm = require "luci.model.network".init() local fwm = require "luci.model.firewall".init() local b=luci.sys.exec("a=` cat /etc/config/network | grep \"config interface 'pptp\" | wc -l` ; b=1 ; while [ $b -le $a ] ; do c=`uci show network.pptp$b | wc -l` ; echo $c $b ;if [ $c -eq 5 ]; then uci delete network.pptp$b ; uci commit ;fi; b=$((b+1)) ; done") local b=luci.sys.exec("a=` cat /etc/config/network | grep \"config interface 'l2tp\" | wc -l` ; b=1 ; while [ $b -le $a ] ; do c=`uci show network.l2tp$b | wc -l` ; echo $c $b ;if [ $c -eq 4 ]; then uci delete network.l2tp$b ; uci commit ;fi; b=$((b+1)) ; done") local b=luci.sys.exec("a=` cat /etc/config/network | grep \"config interface 'gre\" | wc -l` ; b=1 ; while [ $b -le $a ] ; do c=`uci show network.gre$b | wc -l` ; echo $c $b ;if [ $c -eq 2 ]; then uci delete network.gre$b ; uci commit ;fi; b=$((b+1)) ; done") local net local ifaces = { } local netlist = { } for _, net in ipairs(ntm:get_networks()) do if net:name() ~= "loopback" then local z = fwm:get_zone_by_network(net:name()) ifaces[#ifaces+1] = net:name() netlist[#netlist+1] = { net:name(), z and z:name() or "-", z } end end table.sort(netlist, function(a, b) if a[2] ~= b[2] then return a[2] < b[2] else return a[1] < b[1] end end) local a=luci.sys.exec("cat /etc/config/network | grep config | grep pptp | wc -l") -%> <%+header%>
<% for i, net in ipairs(netlist) do local z = net[3] local c = "#C47441" local t = z and translate("Part of zone %q" % z:name()) or translate("No zone assigned") repeat cmp_if=net[1] cmp_l2tp=cmp_if:match("l2tp") cmp_ipsec=cmp_if:match("ipsec") cmp_gre=cmp_if:match("gre") cmp_opvpn=cmp_if:match("openvpn") if net[1]:upper()=="IPSEC" or cmp_opvpn=="openvpn" or cmp_gre=="gre" or cmp_l2tp=="l2tp" or cmp_ipsec=="ipsec" or net[1]:upper()=="OPENVPN" or net[1]:upper()=="LAN" or net[1]:upper()=="WAN" or net[1]:upper()=="WWAN" or net[1]:upper()=="CELLULAR" or net[1]:upper()=="CELLDHCP" or net[1]:upper()=="3G" or net[1]:upper()=="CELLCONF" then break end cmp_pptp=cmp_if:match("pptp") val=cmp_pptp:upper().."_SETTING" %> <% until true %> <% end %>
<%:Profile Name%> <%:Status%> <%:Actions%>
<%=luci.sys.exec("uci get network.%q.ifname" % net[1]:lower())%>

<%=luci.sys.exec("uci get network.%q.ifname" % net[1]:lower())%>
<%:Collecting data...%>
<%if tonumber(a) < 2 then %> ?val=0'"> <%end%>