add initial AREDN lua libraries

Change-Id: Id99b64bf603fdff48c6f527a1493311e9ed3f19e

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 <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

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 <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

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 <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