689 lines
15 KiB
Lua
689 lines
15 KiB
Lua
-- Copyright 2008 Steven Barth <steven@midlink.org>
|
|
-- Licensed to the public under the Apache License 2.0.
|
|
|
|
local io = require "io"
|
|
local os = require "os"
|
|
local table = require "table"
|
|
local nixio = require "nixio"
|
|
local fs = require "nixio.fs"
|
|
local uci = require "luci.model.uci"
|
|
|
|
local luci = {}
|
|
luci.util = require "luci.util"
|
|
luci.ip = require "luci.ip"
|
|
|
|
local tonumber, ipairs, pairs, pcall, type, next, setmetatable, require, select =
|
|
tonumber, ipairs, pairs, pcall, type, next, setmetatable, require, select
|
|
|
|
|
|
module "luci.sys"
|
|
|
|
function call(...)
|
|
return os.execute(...) / 256
|
|
end
|
|
|
|
exec = luci.util.exec
|
|
|
|
function mounts()
|
|
local data = {}
|
|
local k = {"fs", "blocks", "used", "available", "percent", "mountpoint"}
|
|
local ps = luci.util.execi("df")
|
|
|
|
if not ps then
|
|
return
|
|
else
|
|
ps()
|
|
end
|
|
|
|
for line in ps do
|
|
local row = {}
|
|
|
|
local j = 1
|
|
for value in line:gmatch("[^%s]+") do
|
|
row[k[j]] = value
|
|
j = j + 1
|
|
end
|
|
|
|
if row[k[1]] then
|
|
|
|
-- this is a rather ugly workaround to cope with wrapped lines in
|
|
-- the df output:
|
|
--
|
|
-- /dev/scsi/host0/bus0/target0/lun0/part3
|
|
-- 114382024 93566472 15005244 86% /mnt/usb
|
|
--
|
|
|
|
if not row[k[2]] then
|
|
j = 2
|
|
line = ps()
|
|
for value in line:gmatch("[^%s]+") do
|
|
row[k[j]] = value
|
|
j = j + 1
|
|
end
|
|
end
|
|
|
|
table.insert(data, row)
|
|
end
|
|
end
|
|
|
|
return data
|
|
end
|
|
|
|
-- containing the whole environment is returned otherwise this function returns
|
|
-- the corresponding string value for the given name or nil if no such variable
|
|
-- exists.
|
|
getenv = nixio.getenv
|
|
|
|
function hostname(newname)
|
|
if type(newname) == "string" and #newname > 0 then
|
|
fs.writefile( "/proc/sys/kernel/hostname", newname )
|
|
return newname
|
|
else
|
|
return nixio.uname().nodename
|
|
end
|
|
end
|
|
|
|
function httpget(url, stream, target)
|
|
if not target then
|
|
local source = stream and io.popen or luci.util.exec
|
|
return source("wget -qO- '"..url:gsub("'", "").."'")
|
|
else
|
|
return os.execute("wget -qO '%s' '%s'" %
|
|
{target:gsub("'", ""), url:gsub("'", "")})
|
|
end
|
|
end
|
|
|
|
function reboot()
|
|
return os.execute("reboot >/dev/null 2>&1")
|
|
end
|
|
|
|
function syslog()
|
|
return luci.util.exec("logread")
|
|
end
|
|
|
|
function dmesg()
|
|
return luci.util.exec("dmesg")
|
|
end
|
|
|
|
function uniqueid(bytes)
|
|
local rand = fs.readfile("/dev/urandom", bytes)
|
|
return rand and nixio.bin.hexlify(rand)
|
|
end
|
|
|
|
function uptime()
|
|
return nixio.sysinfo().uptime
|
|
end
|
|
|
|
|
|
net = {}
|
|
|
|
-- The following fields are defined for arp entry objects:
|
|
-- { "IP address", "HW address", "HW type", "Flags", "Mask", "Device" }
|
|
function net.arptable(callback)
|
|
local arp = (not callback) and {} or nil
|
|
local e, r, v
|
|
if fs.access("/proc/net/arp") then
|
|
for e in io.lines("/proc/net/arp") do
|
|
local r = { }, v
|
|
for v in e:gmatch("%S+") do
|
|
r[#r+1] = v
|
|
end
|
|
|
|
if r[1] ~= "IP" then
|
|
local x = {
|
|
["IP address"] = r[1],
|
|
["HW type"] = r[2],
|
|
["Flags"] = r[3],
|
|
["HW address"] = r[4],
|
|
["Mask"] = r[5],
|
|
["Device"] = r[6]
|
|
}
|
|
|
|
if callback then
|
|
callback(x)
|
|
else
|
|
arp = arp or { }
|
|
arp[#arp+1] = x
|
|
end
|
|
end
|
|
end
|
|
end
|
|
return arp
|
|
end
|
|
|
|
local function _nethints(what, callback)
|
|
local _, k, e, mac, ip, name
|
|
local cur = uci.cursor()
|
|
local ifn = { }
|
|
local hosts = { }
|
|
|
|
local function _add(i, ...)
|
|
local k = select(i, ...)
|
|
if k then
|
|
if not hosts[k] then hosts[k] = { } end
|
|
hosts[k][1] = select(1, ...) or hosts[k][1]
|
|
hosts[k][2] = select(2, ...) or hosts[k][2]
|
|
hosts[k][3] = select(3, ...) or hosts[k][3]
|
|
hosts[k][4] = select(4, ...) or hosts[k][4]
|
|
end
|
|
end
|
|
|
|
luci.ip.neighbors(nil, function(neigh)
|
|
if neigh.mac and neigh.family == 4 then
|
|
_add(what, neigh.mac:upper(), neigh.dest:string(), nil, nil)
|
|
elseif neigh.mac and neigh.family == 6 then
|
|
_add(what, neigh.mac:upper(), nil, neigh.dest:string(), nil)
|
|
end
|
|
end)
|
|
|
|
if fs.access("/etc/ethers") then
|
|
for e in io.lines("/etc/ethers") do
|
|
mac, ip = e:match("^([a-f0-9]%S+) (%S+)")
|
|
if mac and ip then
|
|
_add(what, mac:upper(), ip, nil, nil)
|
|
end
|
|
end
|
|
end
|
|
|
|
cur:foreach("dhcp", "dnsmasq",
|
|
function(s)
|
|
if s.leasefile and fs.access(s.leasefile) then
|
|
for e in io.lines(s.leasefile) do
|
|
mac, ip, name = e:match("^%d+ (%S+) (%S+) (%S+)")
|
|
if mac and ip then
|
|
_add(what, mac:upper(), ip, nil, name ~= "*" and name)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
)
|
|
|
|
cur:foreach("dhcp", "host",
|
|
function(s)
|
|
for mac in luci.util.imatch(s.mac) do
|
|
_add(what, mac:upper(), s.ip, nil, s.name)
|
|
end
|
|
end)
|
|
|
|
for _, e in ipairs(nixio.getifaddrs()) do
|
|
if e.name ~= "lo" then
|
|
ifn[e.name] = ifn[e.name] or { }
|
|
if e.family == "packet" and e.addr and #e.addr == 17 then
|
|
ifn[e.name][1] = e.addr:upper()
|
|
elseif e.family == "inet" then
|
|
ifn[e.name][2] = e.addr
|
|
elseif e.family == "inet6" then
|
|
ifn[e.name][3] = e.addr
|
|
end
|
|
end
|
|
end
|
|
|
|
for _, e in pairs(ifn) do
|
|
if e[what] and (e[2] or e[3]) then
|
|
_add(what, e[1], e[2], e[3], e[4])
|
|
end
|
|
end
|
|
|
|
for _, e in luci.util.kspairs(hosts) do
|
|
callback(e[1], e[2], e[3], e[4])
|
|
end
|
|
end
|
|
|
|
-- Each entry contains the values in the following order:
|
|
-- [ "mac", "name" ]
|
|
function net.mac_hints(callback)
|
|
if callback then
|
|
_nethints(1, function(mac, v4, v6, name)
|
|
name = name or nixio.getnameinfo(v4 or v6, nil, 100) or v4
|
|
if name and name ~= mac then
|
|
callback(mac, name or nixio.getnameinfo(v4 or v6, nil, 100) or v4)
|
|
end
|
|
end)
|
|
else
|
|
local rv = { }
|
|
_nethints(1, function(mac, v4, v6, name)
|
|
name = name or nixio.getnameinfo(v4 or v6, nil, 100) or v4
|
|
if name and name ~= mac then
|
|
rv[#rv+1] = { mac, name or nixio.getnameinfo(v4 or v6, nil, 100) or v4 }
|
|
end
|
|
end)
|
|
return rv
|
|
end
|
|
end
|
|
|
|
-- Each entry contains the values in the following order:
|
|
-- [ "ip", "name" ]
|
|
function net.ipv4_hints(callback)
|
|
if callback then
|
|
_nethints(2, function(mac, v4, v6, name)
|
|
name = name or nixio.getnameinfo(v4, nil, 100) or mac
|
|
if name and name ~= v4 then
|
|
callback(v4, name)
|
|
end
|
|
end)
|
|
else
|
|
local rv = { }
|
|
_nethints(2, function(mac, v4, v6, name)
|
|
name = name or nixio.getnameinfo(v4, nil, 100) or mac
|
|
if name and name ~= v4 then
|
|
rv[#rv+1] = { v4, name }
|
|
end
|
|
end)
|
|
return rv
|
|
end
|
|
end
|
|
|
|
-- Each entry contains the values in the following order:
|
|
-- [ "ip", "name" ]
|
|
function net.ipv6_hints(callback)
|
|
if callback then
|
|
_nethints(3, function(mac, v4, v6, name)
|
|
name = name or nixio.getnameinfo(v6, nil, 100) or mac
|
|
if name and name ~= v6 then
|
|
callback(v6, name)
|
|
end
|
|
end)
|
|
else
|
|
local rv = { }
|
|
_nethints(3, function(mac, v4, v6, name)
|
|
name = name or nixio.getnameinfo(v6, nil, 100) or mac
|
|
if name and name ~= v6 then
|
|
rv[#rv+1] = { v6, name }
|
|
end
|
|
end)
|
|
return rv
|
|
end
|
|
end
|
|
|
|
function net.host_hints(callback)
|
|
if callback then
|
|
_nethints(1, function(mac, v4, v6, name)
|
|
if mac and mac ~= "00:00:00:00:00:00" and (v4 or v6 or name) then
|
|
callback(mac, v4, v6, name)
|
|
end
|
|
end)
|
|
else
|
|
local rv = { }
|
|
_nethints(1, function(mac, v4, v6, name)
|
|
if mac and mac ~= "00:00:00:00:00:00" and (v4 or v6 or name) then
|
|
local e = { }
|
|
if v4 then e.ipv4 = v4 end
|
|
if v6 then e.ipv6 = v6 end
|
|
if name then e.name = name end
|
|
rv[mac] = e
|
|
end
|
|
end)
|
|
return rv
|
|
end
|
|
end
|
|
|
|
function net.conntrack(callback)
|
|
local ok, nfct = pcall(io.lines, "/proc/net/nf_conntrack")
|
|
if not ok or not nfct then
|
|
return nil
|
|
end
|
|
|
|
local line, connt = nil, (not callback) and { }
|
|
for line in nfct do
|
|
local fam, l3, l4, timeout, tuples =
|
|
line:match("^(ipv[46]) +(%d+) +%S+ +(%d+) +(%d+) +(.+)$")
|
|
|
|
if fam and l3 and l4 and timeout and not tuples:match("^TIME_WAIT ") then
|
|
l4 = nixio.getprotobynumber(l4)
|
|
|
|
local entry = {
|
|
bytes = 0,
|
|
packets = 0,
|
|
layer3 = fam,
|
|
layer4 = l4 and l4.name or "unknown",
|
|
timeout = tonumber(timeout, 10)
|
|
}
|
|
|
|
local key, val
|
|
for key, val in tuples:gmatch("(%w+)=(%S+)") do
|
|
if key == "bytes" or key == "packets" then
|
|
entry[key] = entry[key] + tonumber(val, 10)
|
|
elseif key == "src" or key == "dst" then
|
|
if entry[key] == nil then
|
|
entry[key] = luci.ip.new(val):string()
|
|
end
|
|
elseif key == "sport" or key == "dport" then
|
|
if entry[key] == nil then
|
|
entry[key] = val
|
|
end
|
|
elseif val then
|
|
entry[key] = val
|
|
end
|
|
end
|
|
|
|
if callback then
|
|
callback(entry)
|
|
else
|
|
connt[#connt+1] = entry
|
|
end
|
|
end
|
|
end
|
|
|
|
return callback and true or connt
|
|
end
|
|
|
|
function net.devices()
|
|
local devs = {}
|
|
for k, v in ipairs(nixio.getifaddrs()) do
|
|
if v.family == "packet" then
|
|
devs[#devs+1] = v.name
|
|
end
|
|
end
|
|
return devs
|
|
end
|
|
|
|
|
|
function net.deviceinfo()
|
|
local devs = {}
|
|
for k, v in ipairs(nixio.getifaddrs()) do
|
|
if v.family == "packet" then
|
|
local d = v.data
|
|
d[1] = d.rx_bytes
|
|
d[2] = d.rx_packets
|
|
d[3] = d.rx_errors
|
|
d[4] = d.rx_dropped
|
|
d[5] = 0
|
|
d[6] = 0
|
|
d[7] = 0
|
|
d[8] = d.multicast
|
|
d[9] = d.tx_bytes
|
|
d[10] = d.tx_packets
|
|
d[11] = d.tx_errors
|
|
d[12] = d.tx_dropped
|
|
d[13] = 0
|
|
d[14] = d.collisions
|
|
d[15] = 0
|
|
d[16] = 0
|
|
devs[v.name] = d
|
|
end
|
|
end
|
|
return devs
|
|
end
|
|
|
|
|
|
-- The following fields are defined for route entry tables:
|
|
-- { "dest", "gateway", "metric", "refcount", "usecount", "irtt",
|
|
-- "flags", "device" }
|
|
function net.routes(callback)
|
|
local routes = { }
|
|
|
|
for line in io.lines("/proc/net/route") do
|
|
|
|
local dev, dst_ip, gateway, flags, refcnt, usecnt, metric,
|
|
dst_mask, mtu, win, irtt = line:match(
|
|
"([^%s]+)\t([A-F0-9]+)\t([A-F0-9]+)\t([A-F0-9]+)\t" ..
|
|
"(%d+)\t(%d+)\t(%d+)\t([A-F0-9]+)\t(%d+)\t(%d+)\t(%d+)"
|
|
)
|
|
|
|
if dev then
|
|
gateway = luci.ip.Hex( gateway, 32, luci.ip.FAMILY_INET4 )
|
|
dst_mask = luci.ip.Hex( dst_mask, 32, luci.ip.FAMILY_INET4 )
|
|
dst_ip = luci.ip.Hex(
|
|
dst_ip, dst_mask:prefix(dst_mask), luci.ip.FAMILY_INET4
|
|
)
|
|
|
|
local rt = {
|
|
dest = dst_ip,
|
|
gateway = gateway,
|
|
metric = tonumber(metric),
|
|
refcount = tonumber(refcnt),
|
|
usecount = tonumber(usecnt),
|
|
mtu = tonumber(mtu),
|
|
window = tonumber(window),
|
|
irtt = tonumber(irtt),
|
|
flags = tonumber(flags, 16),
|
|
device = dev
|
|
}
|
|
|
|
if callback then
|
|
callback(rt)
|
|
else
|
|
routes[#routes+1] = rt
|
|
end
|
|
end
|
|
end
|
|
|
|
return routes
|
|
end
|
|
|
|
-- The following fields are defined for route entry tables:
|
|
-- { "source", "dest", "nexthop", "metric", "refcount", "usecount",
|
|
-- "flags", "device" }
|
|
function net.routes6(callback)
|
|
if fs.access("/proc/net/ipv6_route", "r") then
|
|
local routes = { }
|
|
|
|
for line in io.lines("/proc/net/ipv6_route") do
|
|
|
|
local dst_ip, dst_prefix, src_ip, src_prefix, nexthop,
|
|
metric, refcnt, usecnt, flags, dev = line:match(
|
|
"([a-f0-9]+) ([a-f0-9]+) " ..
|
|
"([a-f0-9]+) ([a-f0-9]+) " ..
|
|
"([a-f0-9]+) ([a-f0-9]+) " ..
|
|
"([a-f0-9]+) ([a-f0-9]+) " ..
|
|
"([a-f0-9]+) +([^%s]+)"
|
|
)
|
|
|
|
if dst_ip and dst_prefix and
|
|
src_ip and src_prefix and
|
|
nexthop and metric and
|
|
refcnt and usecnt and
|
|
flags and dev
|
|
then
|
|
src_ip = luci.ip.Hex(
|
|
src_ip, tonumber(src_prefix, 16), luci.ip.FAMILY_INET6, false
|
|
)
|
|
|
|
dst_ip = luci.ip.Hex(
|
|
dst_ip, tonumber(dst_prefix, 16), luci.ip.FAMILY_INET6, false
|
|
)
|
|
|
|
nexthop = luci.ip.Hex( nexthop, 128, luci.ip.FAMILY_INET6, false )
|
|
|
|
local rt = {
|
|
source = src_ip,
|
|
dest = dst_ip,
|
|
nexthop = nexthop,
|
|
metric = tonumber(metric, 16),
|
|
refcount = tonumber(refcnt, 16),
|
|
usecount = tonumber(usecnt, 16),
|
|
flags = tonumber(flags, 16),
|
|
device = dev,
|
|
|
|
-- lua number is too small for storing the metric
|
|
-- add a metric_raw field with the original content
|
|
metric_raw = metric
|
|
}
|
|
|
|
if callback then
|
|
callback(rt)
|
|
else
|
|
routes[#routes+1] = rt
|
|
end
|
|
end
|
|
end
|
|
|
|
return routes
|
|
end
|
|
end
|
|
|
|
function net.pingtest(host)
|
|
return os.execute("ping -c1 '"..host:gsub("'", '').."' >/dev/null 2>&1")
|
|
end
|
|
|
|
|
|
process = {}
|
|
|
|
function process.info(key)
|
|
local s = {uid = nixio.getuid(), gid = nixio.getgid()}
|
|
return not key and s or s[key]
|
|
end
|
|
|
|
function process.list()
|
|
local data = {}
|
|
local k
|
|
local ps = luci.util.execi("/bin/busybox top -bn1")
|
|
|
|
if not ps then
|
|
return
|
|
end
|
|
|
|
for line in ps do
|
|
local pid, ppid, user, stat, vsz, mem, cpu, cmd = line:match(
|
|
"^ *(%d+) +(%d+) +(%S.-%S) +([RSDZTW][W ][<N ]) +(%d+) +(%d+%%) +(%d+%%) +(.+)"
|
|
)
|
|
|
|
local idx = tonumber(pid)
|
|
if idx then
|
|
data[idx] = {
|
|
['PID'] = pid,
|
|
['PPID'] = ppid,
|
|
['USER'] = user,
|
|
['STAT'] = stat,
|
|
['VSZ'] = vsz,
|
|
['%MEM'] = mem,
|
|
['%CPU'] = cpu,
|
|
['COMMAND'] = cmd
|
|
}
|
|
end
|
|
end
|
|
|
|
return data
|
|
end
|
|
|
|
function process.setgroup(gid)
|
|
return nixio.setgid(gid)
|
|
end
|
|
|
|
function process.setuser(uid)
|
|
return nixio.setuid(uid)
|
|
end
|
|
|
|
process.signal = nixio.kill
|
|
|
|
|
|
user = {}
|
|
|
|
-- { "uid", "gid", "name", "passwd", "dir", "shell", "gecos" }
|
|
user.getuser = nixio.getpw
|
|
|
|
function user.getpasswd(username)
|
|
local pwe = nixio.getsp and nixio.getsp(username) or nixio.getpw(username)
|
|
local pwh = pwe and (pwe.pwdp or pwe.passwd)
|
|
if not pwh or #pwh < 1 or pwh == "!" or pwh == "x" then
|
|
return nil, pwe
|
|
else
|
|
return pwh, pwe
|
|
end
|
|
end
|
|
|
|
function user.checkpasswd(username, pass)
|
|
local pwh, pwe = user.getpasswd(username)
|
|
if pwe then
|
|
return (pwh == nil or nixio.crypt(pass, pwh) == pwh)
|
|
end
|
|
return false
|
|
end
|
|
|
|
function user.setpasswd(username, password)
|
|
if password then
|
|
password = password:gsub("'", [['"'"']])
|
|
end
|
|
|
|
if username then
|
|
username = username:gsub("'", [['"'"']])
|
|
end
|
|
|
|
return os.execute(
|
|
"(echo '" .. password .. "'; sleep 1; echo '" .. password .. "') | " ..
|
|
"passwd '" .. username .. "' >/dev/null 2>&1"
|
|
)
|
|
end
|
|
|
|
|
|
wifi = {}
|
|
|
|
function wifi.getiwinfo(ifname)
|
|
local stat, iwinfo = pcall(require, "iwinfo")
|
|
|
|
if ifname then
|
|
local d, n = ifname:match("^(%w+)%.network(%d+)")
|
|
local wstate = luci.util.ubus("network.wireless", "status") or { }
|
|
|
|
d = d or ifname
|
|
n = n and tonumber(n) or 1
|
|
|
|
if type(wstate[d]) == "table" and
|
|
type(wstate[d].interfaces) == "table" and
|
|
type(wstate[d].interfaces[n]) == "table" and
|
|
type(wstate[d].interfaces[n].ifname) == "string"
|
|
then
|
|
ifname = wstate[d].interfaces[n].ifname
|
|
else
|
|
ifname = d
|
|
end
|
|
|
|
local t = stat and iwinfo.type(ifname)
|
|
local x = t and iwinfo[t] or { }
|
|
return setmetatable({}, {
|
|
__index = function(t, k)
|
|
if k == "ifname" then
|
|
return ifname
|
|
elseif x[k] then
|
|
return x[k](ifname)
|
|
end
|
|
end
|
|
})
|
|
end
|
|
end
|
|
|
|
|
|
init = {}
|
|
init.dir = "/etc/init.d/"
|
|
|
|
function init.names()
|
|
local names = { }
|
|
for name in fs.glob(init.dir.."*") do
|
|
names[#names+1] = fs.basename(name)
|
|
end
|
|
return names
|
|
end
|
|
|
|
function init.index(name)
|
|
if fs.access(init.dir..name) then
|
|
return call("env -i sh -c 'source %s%s enabled; exit ${START:-255}' >/dev/null"
|
|
%{ init.dir, name })
|
|
end
|
|
end
|
|
|
|
local function init_action(action, name)
|
|
if fs.access(init.dir..name) then
|
|
return call("env -i %s%s %s >/dev/null" %{ init.dir, name, action })
|
|
end
|
|
end
|
|
|
|
function init.enabled(name)
|
|
return (init_action("enabled", name) == 0)
|
|
end
|
|
|
|
function init.enable(name)
|
|
return (init_action("enable", name) == 1)
|
|
end
|
|
|
|
function init.disable(name)
|
|
return (init_action("disable", name) == 0)
|
|
end
|
|
|
|
function init.start(name)
|
|
return (init_action("start", name) == 0)
|
|
end
|
|
|
|
function init.stop(name)
|
|
return (init_action("stop", name) == 0)
|
|
end
|