<%#
LuCI support for MeshCruzer
Copyright (C) 2010-2011 Thinktube Inc
-%>

<%-
	local sys = require "luci.sys"
	local util = require "luci.util"
	local fs = require "nixio.fs"
	local style = true

	-- "meshzctl link"
	function parse_meshz_link(callback)
	   local entry = {}
	   local tmpfile = "/tmp/mzstatus.tmp"
	   local ret = util.exec("/usr/bin/meshzctl link > " .. tmpfile)

	   if not fs.access(tmpfile, "r") then
	   	return -1
	   end

	   local i = 0
	   for line in io.lines(tmpfile) do
	     if i > 3 then -- line 0 to 3 are just header
			 local ip, mac, intf, type, channel, state, qt, dbm,
			 rssi, rate, svl, seqno, age1, age2 = line:match(
			    "([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*" ..
			    "([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)"
			 )
			 -- this "TT_Tbl" message means "no output"
			 if ip ~= "TT_Tbl" then
				 local entry = {
				    ip = ip, mac = mac, intf = intf, type = type,
				    channel = channel, state = state, qt = qt,
				    dbm = dbm, rssi = rssi, rate = rate,
				    svl = svl, seqno = seqno, age1 = age1, age2 = age2
				 }

				 if callback then
				    callback(entry)
				 end
			 end
	      end
	      i = i + 1
	   end
	   fs.remove(tmpfile)
	end

	-- "meshzctl intf"
	function parse_meshz_intf(callback)
	   local entry = {}
	   local tmpfile = "/tmp/mzstatus.tmp"
	   local ret = util.exec("/usr/bin/meshzctl intf > " .. tmpfile)

	   if not fs.access(tmpfile, "r") then
	   	return -1
	   end

	   local i = 0
	   for line in io.lines(tmpfile) do
	     if i > 3 then
			 local index, name, ip, mac, type, mesh, channel, essid = line:match(
			    "([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)"
			 )

			 local entry = {
			    index = index, name = name, ip = ip,
			    mac = mac, type = type, mesh = mesh,
			    channel = channel, essid = essid
			 }
			 if callback then
			    callback(entry)
			 end
	      end
	      i = i + 1
	   end
	   fs.remove(tmpfile)
	end

	-- "meshzctl stub"
	-- "IP ADDRESS/MASK    EGRESS          SEQNO    STATE TYPE EXPIRE  MAC"
	function parse_meshz_stub(callback)
	   local entry = {}
	   local tmpfile = "/tmp/mzstatus.tmp"
	   local ret = util.exec("/usr/bin/meshzctl stub > " .. tmpfile)

	   if not fs.access(tmpfile, "r") then
	   	return -1
	   end

	   local i = 0
	   for line in io.lines(tmpfile) do
	     if i > 3 then
			 local ip, egress, seqno, state, type, expire, mac = line:match(
			    "([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)"
			 )

			 if ip ~= "TT_Tbl" then
				 local entry = {
					ip = ip, egress = egress, seqno = seqno, state = state,
					type = type, expire = expire, mac = mac
				 }
				 if callback then
				    callback(entry)
				 end
			 end
	      end
	      i = i + 1
	   end
	   fs.remove(tmpfile)
	end

	-- "meshzctl aodv"
	-- "DESTINATION     NEXTHOP         STATUS HOPS MTR SEQNUM EXPIRE"
	function parse_meshz_aodv(callback)
	   local entry = {}
	   local tmpfile = "/tmp/mzstatus.tmp"
	   local ret = util.exec("/usr/bin/meshzctl aodv > " .. tmpfile)

	   if not fs.access(tmpfile, "r") then
	   	return -1
	   end

	   local i = 0
	   for line in io.lines(tmpfile) do
	     if i > 3 then
			 local dest, nexthop, status, hops, metric, seqno, expire = line:match(
			    "([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)"
			 )

			 if dest ~= "TT_Tbl" then
				 local entry = {
					dest = dest, nexthop = nexthop, status = status, hops = hops,
					metric = metric, seqno = seqno, expire = expire
				 }
				 if callback then
				    callback(entry)
				 end
			 end
	      end
	      i = i + 1
	   end
	   fs.remove(tmpfile)
	end

	-- "meshzctl route"
	-- "IP ADDRESS/MASK    NEXTHOP         EGRESS          ST HO ACT XMIT TIME"
	function parse_meshz_route(callback)
	   local entry = {}
	   local tmpfile = "/tmp/mzstatus.tmp"
	   local ret = util.exec("/usr/bin/meshzctl route > " .. tmpfile)

	   if not fs.access(tmpfile, "r") then
	   	return -1
	   end

	   local i = 0
	   for line in io.lines(tmpfile) do
	     if i > 3 then
			 local ip, nexthop, egress, state, hop, act, xmit, time = line:match(
			    "([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)"
			 )

			 if ip ~= "TT_Tbl" then
				 local entry = {
					ip = ip, nexthop = nexthop, egress = egress, state = state, hop = hop,
					act = act, xmit = xmit, time = time
				 }
				 if callback then
				    callback(entry)
				 end
			 end
	      end
	      i = i + 1
	   end
	   fs.remove(tmpfile)
	end

	-- "meshzctl kroute"
	-- "IP ADDRESS      NEXTHOP         HOPS INTERFACE"
	function parse_meshz_kroute(callback)
	   local entry = {}
	   local tmpfile = "/tmp/mzstatus.tmp"
	   local ret = util.exec("/usr/bin/meshzctl kroute > " .. tmpfile)

	   if not fs.access(tmpfile, "r") then
	   	return -1
	   end

	   local i = 0
	   for line in io.lines(tmpfile) do
	     if i > 3 then
			 local ip, nexthop, hop_count, intf = line:match(
			    "([^%s]+)%s*([^%s]+)%s*([^%s]+)%s*([^%s]+)"
			 )

			 if ip ~= "TT_Tbl" then
				local entry = {
					ip = ip, nexthop = nexthop, hop_count = hop_count, intf = intf
				}
				 if callback then
				    callback(entry)
				 end
			 end
	      end
	      i = i + 1
	   end
	   fs.remove(tmpfile)
	end
-%>

<%+header%>
<div class="cbi-map" id="cbi-network">
	<h2><a id="content" name="content">MeshCruzer - <%:status%></a></h2>
	<div class="cbi-map-descr"><%:mz_status_desc%></div>

	<form method="post" action="<%=REQUEST_URI%>">
		<fieldset class="cbi-section-node">
			<div class="cbi-value">
				<label class="cbi-value-title"><%:mz_status_info Select Infomation%></label>
				<div class="cbi-value-field">
					<select class="cbi-input-select" name="req">
						<option class="cbi-value-field" value="link" <%=req=="link" and ' selected="selected"'%> ><%:mz_cmd_link Link Node%></option>
						<option class="cbi-value-field" value="intf" <%=req=="intf" and ' selected="selected"'%> ><%:mz_cmd_intf Interface%></option>
						<option class="cbi-value-field" value="stub" <%=req=="stub" and ' selected="selected"'%> ><%:mz_cmd_stub Stub Subnet Table%></option>
						<option class="cbi-value-field" value="aodv" <%=req=="aodv" and ' selected="selected"'%> ><%:mz_cmd_aodv AODV Routing Table%></option>
						<option class="cbi-value-field" value="route" <%=req=="route" and ' selected="selected"'%> ><%:mz_cmd_route Mesh Routing Table%></option>
						<option class="cbi-value-field" value="kroute" <%=req=="kroute" and ' selected="selected"'%> ><%:mz_cmd_kroute Kernel Module Routing Table%></option>
					</select>
					<input class="cbi-input-save" type="submit" name="submit" value="<%:show%>" />
				</div>
			</div>
		</fieldset>
	</form>
	<br />

	<% if req == "link" then %>
	<fieldset class="cbi-section" id="cbi-table-table">
		<legend>Link Status</legend>
		<div class="cbi-section-node">
			<table class="cbi-section-table">
					<th class="cbi-section-table-cell"><%:ipaddr IP%></th>
					<th class="cbi-section-table-cell"><%:macaddr MAC%></th>
					<th class="cbi-section-table-cell"><%:intf Interface%></th>
					<th class="cbi-section-table-cell"><%:type Type%></th>
					<th class="cbi-section-table-cell"><%:channel Channel%></th>
					<th class="cbi-section-table-cell"><%:state State%></th>
					<th class="cbi-section-table-cell"><%:qt Quality%></th>
					<th class="cbi-section-table-cell"><%:dbm dBm%></th>
					<th class="cbi-section-table-cell"><%:rssi RSSI%></th>
					<th class="cbi-section-table-cell"><%:rate Rate%></th>
					<th class="cbi-section-table-cell"><%:svl Service Level%></th>
					<th class="cbi-section-table-cell"><%:seqno SeqNo%></th>
					<th class="cbi-section-table-cell"><%:age1 Age%></th>
					<th class="cbi-section-table-cell"><%:age2 Age2%></th>
				<% parse_meshz_link(function(e) %>
				<tr class="cbi-section-table-row cbi-rowstyle-<%=(style and 1 or 2)%>">
					<td class="cbi-value-field"><%=e.ip%></td>
					<td class="cbi-value-field"><%=e.mac%></td>
					<td class="cbi-value-field"><%=e.intf%></td>
					<td class="cbi-value-field"><%=e.type%></td>
					<td class="cbi-value-field"><%=e.channel%></td>
					<td class="cbi-value-field"><%=e.state%></td>
					<td class="cbi-value-field"><%=e.qt%></td>
					<td class="cbi-value-field"><%=e.dbm%></td>
					<td class="cbi-value-field"><%=e.rssi%></td>
					<td class="cbi-value-field"><%=e.rate%></td>
					<td class="cbi-value-field"><%=e.svl%></td>
					<td class="cbi-value-field"><%=e.seqno%></td>
					<td class="cbi-value-field"><%=e.age1%></td>
					<td class="cbi-value-field"><%=e.age2%></td>
				</tr>
				<% style = not style; end) %>
			</table>
		</div>
	</fieldset>
	<% elseif req == "intf" then %>
	<fieldset class="cbi-section" id="cbi-table-table">
		<legend>Interfaces Status</legend>
		<div class="cbi-section-node">
			<table class="cbi-section-table">
					<th class="cbi-section-table-cell"><%:index Index%></th>
					<th class="cbi-section-table-cell"><%:intfname Name%></th>
					<th class="cbi-section-table-cell"><%:ipaddr IP address%></th>
					<th class="cbi-section-table-cell"><%:macaddr MAC address%></th>
					<th class="cbi-section-table-cell"><%:type Media Type%></th>
					<th class="cbi-section-table-cell"><%:mesh Mesh%></th>
					<th class="cbi-section-table-cell"><%:channel Channel%></th>
					<th class="cbi-section-table-cell"><%:essid ESSID%></th>
				<% parse_meshz_intf(function(e) %>
				<tr class="cbi-section-table-row cbi-rowstyle-<%=(style and 1 or 2)%>">
					<td class="cbi-value-field"><%=e.index%></td>
					<td class="cbi-value-field"><%=e.name%></td>
					<td class="cbi-value-field"><%=e.ip%></td>
					<td class="cbi-value-field"><%=e.mac%></td>
					<td class="cbi-value-field"><%=e.type%></td>
					<td class="cbi-value-field"><%=e.mesh%></td>
					<td class="cbi-value-field"><%=e.channel%></td>
					<td class="cbi-value-field"><%=e.essid%></td>
				</tr>
				<% style = not style; end) %>
			</table>
		</div>
	</fieldset>
	<% elseif req == "stub" then %>
	<fieldset class="cbi-section" id="cbi-table-table">
		<legend>Stub Subnet Status</legend>
		<div class="cbi-section-node">
			<table class="cbi-section-table">
					<th class="cbi-section-table-cell"><%:ip IP address%></th>
					<th class="cbi-section-table-cell"><%:egress Egress%></th>
					<th class="cbi-section-table-cell"><%:seqno Seqno%></th>
					<th class="cbi-section-table-cell"><%:state State%></th>
					<th class="cbi-section-table-cell"><%:type Type%></th>
					<th class="cbi-section-table-cell"><%:expire Expire Time%></th>
					<th class="cbi-section-table-cell"><%:macaddr MAC address%></th>
				<% parse_meshz_stub(function(e) %>
				<tr class="cbi-section-table-row cbi-rowstyle-<%=(style and 1 or 2)%>">
					<td class="cbi-value-field"><%=e.ip%></td>
					<td class="cbi-value-field"><%=e.egress%></td>
					<td class="cbi-value-field"><%=e.seqno%></td>
					<td class="cbi-value-field"><%=e.state%></td>
					<td class="cbi-value-field"><%=e.type%></td>
					<td class="cbi-value-field"><%=e.expire%></td>
					<td class="cbi-value-field"><%=e.mac%></td>
				</tr>
				<% style = not style; end) %>
			</table>
		</div>
	</fieldset>
	<% elseif req == "aodv" then %>
	<fieldset class="cbi-section" id="cbi-table-table">
		<legend>AODV Routing Table</legend>
		<div class="cbi-section-node">
			<table class="cbi-section-table">
					<th class="cbi-section-table-cell"><%:destip Destination IP%></th>
					<th class="cbi-section-table-cell"><%:nexthop Next Hop%></th>
					<th class="cbi-section-table-cell"><%:status Status%></th>
					<th class="cbi-section-table-cell"><%:hopcount Hop Count%></th>
					<th class="cbi-section-table-cell"><%:metric Metric%></th>
					<th class="cbi-section-table-cell"><%:seqno Seqno%></th>
					<th class="cbi-section-table-cell"><%:expire Expire Time%></th>
				<% parse_meshz_aodv(function(e) %>
				<tr class="cbi-section-table-row cbi-rowstyle-<%=(style and 1 or 2)%>">
					<td class="cbi-value-field"><%=e.dest%></td>
					<td class="cbi-value-field"><%=e.nexthop%></td>
					<td class="cbi-value-field"><%=e.status%></td>
					<td class="cbi-value-field"><%=e.hops%></td>
					<td class="cbi-value-field"><%=e.metric%></td>
					<td class="cbi-value-field"><%=e.seqno%></td>
					<td class="cbi-value-field"><%=e.expire%></td>
				</tr>
				<% style = not style; end) %>
			</table>
		</div>
	</fieldset>
	<% elseif req == "route" then %>
	<fieldset class="cbi-section" id="cbi-table-table">
		<legend>Routing Table</legend>
		<div class="cbi-section-node">
			<table class="cbi-section-table">
					<th class="cbi-section-table-cell"><%:ipaddr IP address%></th>
					<th class="cbi-section-table-cell"><%:nexthop Next Hop%></th>
					<th class="cbi-section-table-cell"><%:egress Egress%></th>
					<th class="cbi-section-table-cell"><%:state State%></th>
					<th class="cbi-section-table-cell"><%:hopcount Hop Count%></th>
					<th class="cbi-section-table-cell"><%:act Act%></th>
					<th class="cbi-section-table-cell"><%:xmit Xmit%></th>
					<th class="cbi-section-table-cell"><%:time Time%></th>
				<% parse_meshz_route(function(e) %>
				<tr class="cbi-section-table-row cbi-rowstyle-<%=(style and 1 or 2)%>">
					<td class="cbi-value-field"><%=e.ip%></td>
					<td class="cbi-value-field"><%=e.nexthop%></td>
					<td class="cbi-value-field"><%=e.egress%></td>
					<td class="cbi-value-field"><%=e.state%></td>
					<td class="cbi-value-field"><%=e.hop%></td>
					<td class="cbi-value-field"><%=e.act%></td>
					<td class="cbi-value-field"><%=e.xmit%></td>
					<td class="cbi-value-field"><%=e.time%></td>
				</tr>
				<% style = not style; end) %>
			</table>
		</div>
	</fieldset>
	<% elseif req == "kroute" then %>
	<fieldset class="cbi-section" id="cbi-table-table">
		<legend>Kernel Module Routing Table</legend>
		<div class="cbi-section-node">
			<table class="cbi-section-table">
					<th class="cbi-section-table-cell"><%:ipaddr IP address%></th>
					<th class="cbi-section-table-cell"><%:nexthop Nexthop%></th>
					<th class="cbi-section-table-cell"><%:hopcount Hop Count%></th>
					<th class="cbi-section-table-cell"><%:intf Interface%></th>
				<% parse_meshz_kroute(function(e) %>
				<tr class="cbi-section-table-row cbi-rowstyle-<%=(style and 1 or 2)%>">
					<td class="cbi-value-field"><%=e.ip%></td>
					<td class="cbi-value-field"><%=e.nexthop%></td>
					<td class="cbi-value-field"><%=e.hop_count%></td>
					<td class="cbi-value-field"><%=e.intf%></td>
				</tr>
				<% style = not style; end) %>
			</table>
		</div>
	</fieldset>
	<% end %>
	<br />
</div>
<%+footer%>