diff --git a/files/usr/lib/lua/aredn/http.lua b/files/usr/lib/lua/aredn/http.lua new file mode 100755 index 00000000..8f0b2e30 --- /dev/null +++ b/files/usr/lib/lua/aredn/http.lua @@ -0,0 +1,65 @@ +#!/usr/bin/lua +--[[ + + Part of AREDN -- Used for creating Amateur Radio Emergency Data Networks + Copyright (C) 2016 Darryl Quinn + 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. + +--]] + +function http_header() + print("Content-type: text/html\r") + print("Cache-Control: no-store\r") + print("\n") +end + +function json_header() + print("Content-type: application/json\r") + print("Cache-Control: no-store\r") + print("\n") +end + +-- Written by RiciLake -- START +-- The author places the code into the public domain, renouncing all rights and responsibilities. +-- Replace + with space and %xx with the corresponding character. + +local function cgidecode(str) + return (str:gsub('+', ' '):gsub("%%(%x%x)", function(xx) return string.char(tonumber(xx, 16)) end)) +end + +function parsecgi(str) + local rv = {} + for pair in str:gmatch"[^&]+" do + local key, val = pair:match"([^=]*)=(.*)" + if key then rv[key] = val end + end + return rv +end +-- Written by RiciLake -- END \ No newline at end of file diff --git a/files/usr/lib/lua/aredn/uci.lua b/files/usr/lib/lua/aredn/uci.lua new file mode 100755 index 00000000..87a564c2 --- /dev/null +++ b/files/usr/lib/lua/aredn/uci.lua @@ -0,0 +1,44 @@ +#!/usr/bin/lua +--[[ + + Part of AREDN -- Used for creating Amateur Radio Emergency Data Networks + Copyright (C) 2016 Darryl Quinn + 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("uci") + +function getUciConfType(conf,type) + local curs=uci.cursor() + local ifce={} + curs:foreach(conf,type,function(s) ifce[s[".index"]]=s end) + return ifce +end diff --git a/files/usr/lib/lua/aredn/utils.lua b/files/usr/lib/lua/aredn/utils.lua new file mode 100755 index 00000000..6e53dfe3 --- /dev/null +++ b/files/usr/lib/lua/aredn/utils.lua @@ -0,0 +1,222 @@ +#!/usr/bin/lua +--[[ + + Part of AREDN -- Used for creating Amateur Radio Emergency Data Networks + Copyright (C) 2016 Darryl Quinn + 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. + +--]] + + +local nxo = require("nixio") +local ipc = require("luci.ip") + +function get_ip_type(ip) + local R = {ERROR = 0, IPV4 = 1, IPV6 = 2, STRING = 3} + if type(ip) ~= "string" then return R.ERROR end + + -- check for format 1.11.111.111 for ipv4 + local chunks = {ip:match("^(%d+)%.(%d+)%.(%d+)%.(%d+)$")} + if #chunks == 4 then + for _,v in pairs(chunks) do + if tonumber(v) > 255 then return R.STRING end + end + return R.IPV4 + end + + --[[ + -- TODO + -- check for ipv6 format, should be 8 'chunks' of numbers/letters + -- without trailing chars + local chunks = {ip:match(("([a-fA-F0-9]*):"):rep(8):gsub(":$","$"))} + if #chunks == 8 then + for _,v in pairs(chunks) do + if #v > 0 and tonumber(v, 16) > 65535 then return R.STRING end + end + return R.IPV6 + end + --]] + return R.STRING +end + +function get_ifname(ifn) + local u=uci.cursor() + iface=u:get("network",ifn,"ifname") + return iface +end + +-- Copyright 2009-2015 Jo-Philipp Wich +-- Licensed to the public under the Apache License 2.0. +function get_interfaces() + _interfaces={} + local n, i + for n, i in ipairs(nxo.getifaddrs()) do + local name = i.name:match("[^:]+") + _interfaces[name] = _interfaces[name] or { + idx = i.ifindex or n, + name = name, + rawname = i.name, + ipaddrs = { }, + } + + if i.family == "packet" then + _interfaces[name].stats = i.data + _interfaces[name].macaddr = i.addr + elseif i.family == "inet" then + _interfaces[name].ipaddrs[#_interfaces[name].ipaddrs+1] = ipc.IPv4(i.addr, i.netmask) + end + end + return _interfaces +end + +-- checks if a file exists and can be read +function file_exists(name) + local f=io.open(name,"r") + if f~=nil then io.close(f) return true else return false end +end + +function dir_exists(name) + return (nixio.fs.stat(name, "type") == 'dir') +end + +function hardware_boardid() + local bid=nil + local ssdid="/sys/devices/pci0000:00/0000:00:00.0/subsystem_device" + if file_exists(ssdid) then + local bfile, err=io.open(ssdid,"r") + if bfile~=nil then + bid=bfile:read() + bfile:close() + end + else + bid=capture("/usr/local/bin/get_boardid") + end + return bid:chomp() +end + +-- get IP from CIDR (strip network) +function ipFromCIDR(ip) + return string.match(ip,"(.*)/.-") +end + +-- strips newline from a string +-- ex. mystr=mystr:chomp() +function string:chomp() + return(self:gsub("\n$", "")) +end + +-- splits a string on newlines +-- ex. newtable=mystrings.splitNewLine() +function string:splitNewLine() + local t = {} + local function helper(line) table.insert(t, line) return "" end + helper((self:gsub("(.-)\r?\n", helper))) + return t +end + +-- splits a string into words +function string:splitWhiteSpace() + local t = {} + local function helper(line) table.insert(t, line) return "" end + helper((self:gsub("%S+", helper))) + return t +end + +function nslookup(ip) + local hostname + if get_ip_type(ip)==1 then + hostname=capture("nslookup '"..ip.."'|grep 'Address 1'|grep -v 'localhost'|cut -d' ' -f4 2>&1") + end + return hostname:chomp() +end + +function file_trim(filename, maxl) + local lines={} + local tmpfilename=filename..".tmp" + if file_exists(filename) then + for line in io.lines(filename) do table.insert(lines,line) end + if (#lines > maxl) then + local startline=(#lines-maxl)+1 + nxo.fs.rename(filename,tmpfilename) + local f,err=io.open(filename,"w+") + + for n, l in pairs(lines) do + if (n>=startline) then + f:write(l.."\n") + end + end + nxo.fs.remove(tmpfilename) + f:close() + end + end +end + +-- table.print = pretty prints a table +function print_r(t) + local print_r_cache={} + local function sub_print_r(t,indent) + if (print_r_cache[tostring(t)]) then + print(indent.."*"..tostring(t)) + else + print_r_cache[tostring(t)]=true + if (type(t)=="table") then + for pos,val in pairs(t) do + if (type(val)=="table") then + print(indent.."["..pos.."] => "..tostring(t).." {") + sub_print_r(val,indent..string.rep(" ",string.len(pos)+8)) + print(indent..string.rep(" ",string.len(pos)+6).."}") + elseif (type(val)=="string") then + print(indent.."["..pos..'] => "'..val..'"') + else + print(indent.."["..pos.."] => "..tostring(val)) + end + end + else + print(indent..tostring(t)) + end + end + end + if (type(t)=="table") then + print(tostring(t).." {") + sub_print_r(t," ") + print("}") + else + sub_print_r(t," ") + end + print() +end + +-- os.capture = captures output from a shell command +function capture(cmd) + local handle= io.popen(cmd) + local result=handle:read("*a") + handle:close() + return(result) +end