121 lines
3.8 KiB
Lua
Executable File
121 lines
3.8 KiB
Lua
Executable File
#!/usr/bin/env lua
|
|
--
|
|
-- 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; either version 2 of the License, or
|
|
-- (at your option) any later version.
|
|
--
|
|
-- 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, write to the Free Software Foundation, Inc.,
|
|
-- 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
--
|
|
-- Copyright 2015 Red Hat, Inc.
|
|
--
|
|
--
|
|
-- This example lists Wi-Fi access points NetworkManager scanned on Wi-Fi devices.
|
|
-- The example uses libnm library using GObject introspection via Lua lgi module.
|
|
-- Most distribution ship the module as lua-lgi package.
|
|
-- libnm guide: https://developer.gnome.org/libnm/1.0/
|
|
-- Lua-lgi guide: https://github.com/pavouk/lgi/blob/master/docs/guide.md
|
|
--
|
|
|
|
local lgi = require 'lgi'
|
|
local NM = lgi.NM
|
|
|
|
function is_empty(t)
|
|
local next = next
|
|
if next(t) then return false else return true end
|
|
end
|
|
|
|
function ssid_to_utf8(ap)
|
|
local ssid = ap:get_ssid()
|
|
if not ssid then return "" end
|
|
return NM.utils_ssid_to_utf8(ssid:get_data())
|
|
end
|
|
|
|
function print_device_info(device)
|
|
local active_ap = device:get_active_access_point()
|
|
if active_ap then ssid = ssid_to_utf8(active_ap) end
|
|
local info = string.format("Device: %s | Driver: %s | Active AP: %s",
|
|
device:get_iface(), device:get_driver(), ssid)
|
|
print(info)
|
|
print(string.rep("=", info:len()))
|
|
end
|
|
|
|
function flags_to_string(flags)
|
|
local str = ""
|
|
for flag, _ in pairs(flags) do
|
|
str = str .. " " .. flag
|
|
end
|
|
if str == "" then str = "NONE" end
|
|
return (str:gsub( "^%s", ""))
|
|
end
|
|
|
|
function flags_to_security(flags, wpa_flags, rsn_flags)
|
|
local str = ""
|
|
if flags["PRIVACY"] and is_empty(wpa_flags) and is_empty(rsn_flags) then
|
|
str = str .. " WEP"
|
|
end
|
|
if not is_empty(wpa_flags) then
|
|
str = str .. " WPA1"
|
|
end
|
|
if not is_empty(rsn_flags) then
|
|
str = str .. " WPA2"
|
|
end
|
|
if wpa_flags["KEY_MGMT_802_1X"] or rsn_flags["KEY_MGMT_802_1X"] then
|
|
str = str .. " 802.1X"
|
|
end
|
|
return (str:gsub( "^%s", ""))
|
|
end
|
|
|
|
function print_ap_info(ap)
|
|
local strength = ap:get_strength()
|
|
local frequency = ap:get_frequency()
|
|
local flags = ap:get_flags()
|
|
local wpa_flags = ap:get_wpa_flags()
|
|
local rsn_flags = ap:get_rsn_flags()
|
|
-- remove extra NONE from the flags tables
|
|
flags["NONE"] = nil
|
|
wpa_flags["NONE"] = nil
|
|
rsn_flags["NONE"] = nil
|
|
print("SSID: ", ssid_to_utf8(ap))
|
|
print("BSSID: ", ap:get_bssid())
|
|
print("Frequency: ", frequency)
|
|
print("Channel: ", NM.utils_wifi_freq_to_channel(frequency))
|
|
print("Mode: ", ap:get_mode())
|
|
print("Flags: ", flags_to_string(flags))
|
|
print("WPA flags: ", flags_to_string(wpa_flags))
|
|
print("RSN flags: ", flags_to_string(rsn_flags))
|
|
print("Security: ", flags_to_security(flags, wpa_flags, rsn_flags))
|
|
print(string.format("Strength: %s %s%%", NM.utils_wifi_strength_bars(strength), strength))
|
|
print("")
|
|
end
|
|
|
|
|
|
---------------------------
|
|
-- Main code starts here --
|
|
---------------------------
|
|
-- Call setlocale() else NM.utils_wifi_strength_bars() will think the locale
|
|
-- is ASCII-only, and return the fallback characters rather than the unicode bars
|
|
os.setlocale('')
|
|
|
|
-- get all devices
|
|
client = NM.Client.new()
|
|
devs = client:get_devices()
|
|
|
|
-- print APs for all Wi-Fi devices
|
|
for _, dev in ipairs(devs) do
|
|
if dev:get_device_type() == "WIFI" then
|
|
print_device_info(dev)
|
|
for _, ap in ipairs(dev:get_access_points()) do
|
|
print_ap_info(ap)
|
|
end
|
|
end
|
|
end
|
|
|