#!/usr/bin/lua --[[ Part of AREDN -- Used for creating Amateur Radio Emergency Data Networks Copyright (C) 2021 Tim Wilkinson Original Perl Copyright (C) 2015 Conrad Lara See Contributors file for additional contributors This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation version 3 of the License. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . Additional Terms: Additional use restrictions exist on the AREDN(TM) trademark and logo. See AREDNLicense.txt for more info. Attributions to the AREDN Project must be retained in the source code. If importing this code into a new or existing project attribution to the AREDN project must be added to the source code. You must not misrepresent the origin of the material contained within. Modified versions must be modified to attribute to the original source and be marked in reasonable ways as differentiate it from the original version --]] require("aredn.http") require("aredn.hardware") local html = require("aredn.html") local aredn_info = require("aredn.info") local node = aredn_info.get_nvram("node") if not node then node = "NOCALL" end local wifiiface = aredn.hardware.get_iface_name("wifi") local nf = iwinfo.nl80211.noise(wifiiface) or -95 if not nixio.fs.stat("/tmp/web") then nixio.fs.mkdir("/tmp/web") end -- scan start local scanned = {} local f = io.popen("iw dev " .. wifiiface .. " scan passive") if f then local scan for line in f:lines() do local m = line:match("^BSS ([%da-fA-F:]+)") if m then scan = { mac = m, mode = "AP", ssid = "", signal = 0, freq = 0, key = "" } scanned[#scanned + 1] = scan if line:match("joined") then scan.mode = "My Ad-Hoc Network" end end m = line:match("freq: (%d+)") if m then scan.freq = tonumber(m) end m = line:match("SSID: (.+)") if m then scan.ssid = m end m = line:match("signal: ([%d-]+)") if m then scan.signal = tonumber(m) end m = line:match("Group cipher: (.+)") if m then scan.key = m end if line:match("capability: IBSS") and scan.mode == "AP" then scan.mode = "Foreign Ad-Hoc Network" end end f:close() end local f = io.popen("iw dev " .. wifiiface .. " station dump") if f then local scan local myssid = aredn_info.getSSID() local myfreq = tonumber(aredn_info.getFreq()) for line in f:lines() do local m = line:match("^Station ([%da-fA-F:]+) %(on " .. wifiiface .. "%)") if m then scan = { mac = m, mode = "Connected Ad-Hoc Station", ssid = myssid, signal = 0, freq = myfreq, key = "" } scanned[#scanned + 1] = scan end m = line:match("signal avg:%s+([%d-]+)") if m then scan.signal = tonumber(m) end end f:close() end -- scan end if os.getenv("REQUEST_METHOD") == "POST" then require('luci.http') require('luci.sys') local request = luci.http.Request(luci.sys.getenv(), function() local v = io.read(1024) if not v then io.close() end return v end ) if request:formvalue("auto") then io.open("/tmp/web/autoscan", "w"):close() end if request:formvalue("stop") then os.remove("/tmp/web/autoscan") end end -- generate page http_header() html.header(node .. " WiFi scan", false) local autoscan = nixio.fs.stat("/tmp/web/autoscan"); if autoscan then html.print("") end html.print([[
]]) html.alert_banner() html.print("

" .. node .. " WiFi scan


") if autoscan then html.print("") else html.print("") html.print("   ") html.print("") end html.print("   ") html.print("

") -- display scan html.print("") html.print("") -- load arp cache local arpcache = {} arptable(function(a) arpcache[a["HW address"]] = a["IP address"] end) local scanlist = {} for _, v in ipairs(scanned) do if v.signal ~= 0 then scanlist[#scanlist + 1] = v end end table.sort(scanlist, function(a, b) return a.signal > b.signal end) for _, scan in ipairs(scanlist) do -- freq to chan local chan = scan.freq if chan < 256 then elseif chan == 2484 then chan = 14 elseif chan == 2407 then chan = 0 elseif chan < 2484 then chan = (chan - 2407) / 5 elseif chan < 5000 then elseif chan < 5380 then chan = (chan - 5000) / 5 elseif chan < 5500 then chan = chan - 2000 elseif chan < 6000 then chan = (chan - 5000) / 5 end -- ip lookup then host lookup local ip = arpcache[scan.mac] if ip then hostname = ip local f = io.popen("nslookup " .. ip) if f then for line in f:lines() do local m = line:match("name = (.*)%.local%.mesh") if m then hostname = m break end end f:close() end else hostname = "N/A" end if scan.ssid:match("^AREDN-") then html.print("") else html.print("") end html.print("") html.print("") end html.print("
SNRSignalChanEncSSIDHostnameMAC/BSSID802.11 Mode
" .. (scan.signal - nf) .. "" .. scan.signal .. "" .. chan .. "" .. scan.key .. "" .. scan.ssid .. "" .. hostname .. "" .. scan.mac:upper() .. "" .. scan.mode .. "

") html.footer() html.print("")