Mirrors
/
aredn
mirror of https://github.com/aredn/aredn.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add initial AREDN lua libraries 

Change-Id: Id99b64bf603fdff48c6f527a1493311e9ed3f19e
This commit is contained in:
Darryl Quinn 2016-08-21 22:50:38 -05:00 committed by K5DLQ
parent 5eb457b11a
commit 3457b040d8
3 changed files with 331 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
files/usr/lib/lua/aredn/http.lua Executable file
View File

@ -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 <http://www.gnu.org/licenses/>.
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

44
files/usr/lib/lua/aredn/uci.lua Executable file
View File

@ -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 <http://www.gnu.org/licenses/>.
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

222
files/usr/lib/lua/aredn/utils.lua Executable file
View File

@ -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 <http://www.gnu.org/licenses/>.
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 <jow@openwrt.org>
-- 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