-- Copyright 2008 Steven Barth -- 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 ntm = require "luci.model.network" 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 = {} local function _nethints(what, callback) local _, k, e, mac, ip, name local cur = uci.cursor() local ifn = { } local hosts = { } local lookup = { } 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 pairs(hosts) do lookup[#lookup+1] = (what > 1) and e[what] or (e[2] or e[3]) end if #lookup > 0 then lookup = luci.util.ubus("network.rrdns", "lookup", { addrs = lookup, timeout = 250, limit = 1000 }) or { } end for _, e in luci.util.kspairs(hosts) do callback(e[1], e[2], e[3], lookup[e[2]] or lookup[e[3]] or 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 v4 if name and name ~= mac then callback(mac, name or v4) end end) else local rv = { } _nethints(1, function(mac, v4, v6, name) name = name or v4 if name and name ~= mac then rv[#rv+1] = { mac, name 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 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 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 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 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 = {} local seen = {} for k, v in ipairs(nixio.getifaddrs()) do if v.name and not seen[v.name] then seen[v.name] = true devs[#devs+1] = v.name end end return devs 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 ][/dev/null 2>&1" ) end wifi = {} function wifi.getiwinfo(ifname) ntm.init() local wnet = ntm:get_wifinet(ifname) if wnet and wnet.iwinfo then return wnet.iwinfo end local wdev = ntm:get_wifidev(ifname) if wdev and wdev.iwinfo then return wdev.iwinfo end return { ifname = ifname } 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