Added new function: qmpinfo links

packages/qmp-small-node/files/etc/qmp/qmpinfo

@@ -101,6 +101,15 @@ function nodes()
 	end
 end
 
+function links()
+	for _,n in ipairs(qmpinfo.links()) do
+		if #n == 2 then
+			print(n[1].." "..n[2])
+		end
+	end
+end
+
+
 function key()
 	print(qmpinfo.get_key())
 end
@@ -129,6 +138,8 @@ elseif question == "nodes" then
         nodes()   
 elseif question == "key" then
 	key()
+elseif question == "links" then
+	links()
 else
 	print_help()
 end

packages/qmp-small-node/files/etc/qmp/qmpinfo.lua

@@ -207,6 +207,21 @@ function qmpinfo.nodes()
 	return result
 end
 
+function qmpinfo.links()
+	local nodes = util.split(util.exec('bmx6 -c --links | awk \'{print $1 "|" $2}\' |  grep -e ".*:.*:"'))
+	local ni
+	result = {}
+	for _,n in ipairs(nodes) do
+		if n ~= "" then
+		ni = util.split(n,"|")
+		ni[1] = util.split(ni[1],".")[1]
+		table.insert(result,ni)
+		end
+	end
+	return result
+end
+
+
 function qmpinfo.get_key()
 	local keyf = util.exec("uci get qmp.node.key")
 	if #keyf < 2 then