files for compile MR11U as nanonote wifi gadget

nanonote-TLWR11U/files/opt/m1-wireless.lua

@@ -0,0 +1,96 @@
+#!/usr/bin/env lua
+
+local io     = require "io"
+local os     = require "os"
+local table  = require "table"
+
+function trim (s)
+	return (string.gsub(s, "^%s*(.-)%s*$", "%1"))
+end
+
+function split(delim, text)
+	local list = {}
+	if string.len(text) <= 0 then
+	   return list
+	end
+	delim = delim or ""
+	local pos = 1
+	-- if delim matches empty string then it would give an endless loop
+	if string.find("", delim, 1) and delim ~= "" then 
+	   error("delim matches empty string!")
+	end
+	local first, last
+	while 1 do
+	   if delim ~= "" then 
+	      first, last = string.find(text, delim, pos)
+	   else
+	      first, last = string.find(text, "%s+", pos)
+	      if first == 1 then
+		 pos = last+1
+		 first, last = string.find(text, "%s+", pos)
+	      end
+	   end
+	   if first then -- found?
+	      table.insert(list, string.sub(text, pos, first-1))
+	      pos = last+1
+	   else
+	      table.insert(list, string.sub(text, pos))
+	      break
+	   end
+	end
+	return list
+end
+
+function exec(command)
+        local pp   = io.popen(command)
+        local data = pp:read("*a")
+	pp:close()
+
+        return data
+end
+
+function iwscan(iface)
+	local siface = iface or ""
+	local cnt = exec("iwlist "..siface.." scan 2>/dev/null")
+	local iws = {}
+
+	cnt = trim(cnt)
+	for i, l in pairs(split("\n          Cell", cnt)) do
+	   local ESSID = l:match("ESSID:\"(.-)\"")
+	   if ESSID then
+	      local Q = l:match("Quality[:=](.-)[ ]")
+	      local A = l:match("Authentication Suites.- : (.-)\n")
+	      local P = l:match("Pairwise Ciphers.- : (.-)\n")
+	      
+	      local enc
+	      if not l:find("Encryption key:on") then
+		 enc = "none"
+	      else
+		 local wpa = l:find("WPA Version 1")
+		 local rsn = l:find("WPA2 Version 1")
+		 if wpa and rsn then enc = "psk+psk2"
+		 elseif rsn then enc = "psk2"
+		 elseif wpa then enc = "psk"
+		 else enc = "wep" end
+	      end
+	      
+	      local a = Q:match("(%d-)/")
+	      local b = Q:match("/(%d-)$")
+	      Q = math.floor(tonumber(a)/tonumber(b)*100)
+
+	      local r = Q .. "%," .. ESSID .. "," .. enc
+
+	      table.insert(iws, r)
+	   end
+	end
+	
+	return iws
+end
+
+local t = iwscan("wlan0")
+if t == {} then
+    print();
+else
+    for k,v in pairs(t) do print(v) end
+end
+