1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#!/usr/bin/env lua
-- -*- Mode: Lua; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
-- vim: ft=lua ts=2 sts=2 sw=2 et ai
--
-- 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
|
