Add acl.conf.lua to the xml handler.

2026-01-06 11:43:50 +00:00 · 2015-08-12 23:21:10 -06:00
parent 7759f63c9d
commit 941415fe13
1 changed files with 128 additions and 0 deletions
--- a/resources/install/scripts/app/xml_handler/resources/scripts/configuration/acl.conf.lua
+++ b/resources/install/scripts/app/xml_handler/resources/scripts/configuration/acl.conf.lua
@@ -0,0 +1,128 @@
+--	xml_handler.lua
+--	Part of FusionPBX
+--	Copyright (C) 2015 Mark J Crane <markjcrane@fusionpbx.com>
+--	All rights reserved.
+--
+--	Redistribution and use in source and binary forms, with or without
+--	modification, are permitted provided that the following conditions are met:
+--
+--	1. Redistributions of source code must retain the above copyright notice,
+--	   this list of conditions and the following disclaimer.
+--
+--	2. Redistributions in binary form must reproduce the above copyright
+--	   notice, this list of conditions and the following disclaimer in the
+--	   documentation and/or other materials provided with the distribution.
+--
+--	THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
+--	INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+--	AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
+--	AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
+--	OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+--	SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+--	INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+--	CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+--	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+--	POSSIBILITY OF SUCH DAMAGE.
+
+	--[[
+	These ACL's are automatically created on startup.
+		rfc1918.auto  - RFC1918 Space
+		nat.auto      - RFC1918 Excluding your local lan.
+		localnet.auto - ACL for your local lan.
+		loopback.auto - ACL for your local lan.
+	]]
+
+--get the cache
+	hostname = trim(api:execute("switchname", ""));
+	if (trim(api:execute("module_exists", "mod_memcache")) == "true") then
+		XML_STRING = trim(api:execute("memcache", "get configuration:acl.conf:" .. hostname));
+	else
+		XML_STRING = "-ERR NOT FOUND";
+	end
+
+--set the cache
+	if (XML_STRING == "-ERR NOT FOUND") or (XML_STRING == "-ERR CONNECTION FAILURE") then
+
+		--connect to the database
+			require "resources.functions.database_handle";
+			dbh = database_handle('system');
+
+		--exits the script if we didn't connect properly
+			assert(dbh:connected());
+
+		--start the xml array
+			local xml = {}
+			table.insert(xml, [[<?xml version="1.0" encoding="UTF-8" standalone="no"?>]]);
+			table.insert(xml, [[<document type="freeswitch/xml">]]);
+			table.insert(xml, [[	<section name="configuration">]]);
+			table.insert(xml, [[		<configuration name="acl.conf" description="Network Lists">]]);
+			table.insert(xml, [[			<network-lists>]]);
+
+		--run the query
+			sql = "select * from v_access_controls ";
+			sql = sql .. "order by access_control_name asc ";
+			if (debug["sql"]) then
+				freeswitch.consoleLog("notice", "[xml_handler] SQL: " .. sql .. "\n");
+			end
+			x = 0;
+			dbh:query(sql, function(row)
+
+				--list open tag
+					table.insert(xml, [[				<list name="]]..row.access_control_name..[[" default="]]..row.access_control_default..[[">]]);
+
+				--get the nodes
+					sql = "select * from v_access_control_nodes ";
+					sql = sql .. "where access_control_uuid = '"..row.access_control_uuid.."' ";
+					if (debug["sql"]) then
+						freeswitch.consoleLog("notice", "[xml_handler] SQL: " .. sql .. "\n");
+					end
+					x = 0;
+					dbh:query(sql, function(field)
+						if (string.len(field.node_domain) > 0) then
+							table.insert(xml, [[					<node type="]] .. field.node_type .. [[" domain="]] .. field.node_domain .. [[" description="]] .. field.node_description .. [["/>]]);
+						else
+							table.insert(xml, [[					<node type="]] .. field.node_type .. [[" cidr="]] .. field.node_cidr .. [[" description="]] .. field.node_description .. [["/>]]);
+						end
+					end)
+
+				--list close tag
+					table.insert(xml, [[				</list>]]);
+
+			end)
+
+		--close the extension tag if it was left open
+			table.insert(xml, [[			</network-lists>]]);
+			table.insert(xml, [[		</configuration>]]);
+			table.insert(xml, [[	</section>]]);
+			table.insert(xml, [[</document>]]);
+			XML_STRING = table.concat(xml, "\n");
+			if (debug["xml_string"]) then
+				freeswitch.consoleLog("notice", "[xml_handler] XML_STRING: " .. XML_STRING .. "\n");
+			end
+
+		--close the database connection
+			dbh:release();
+
+		--set the cache
+			result = trim(api:execute("memcache", "set configuration:acl.conf:" .. hostname .." '"..XML_STRING:gsub("'", "&#39;").."' "..expire["acl.conf"]));
+
+		--send the xml to the console
+			--if (debug["xml_string"]) then
+				local file = assert(io.open(temp_dir .. "/acl.conf.xml", "w"));
+				file:write(XML_STRING);
+				file:close();
+			--end
+
+		--send to the console
+			if (debug["cache"]) then
+				freeswitch.consoleLog("notice", "[xml_handler] configuration:acl.conf:" .. hostname .." source: database\n");
+			end
+	else
+		--replace the &#39 back to a single quote
+			XML_STRING = XML_STRING:gsub("&#39;", "'");
+
+		--send to the console
+			if (debug["cache"]) then
+				freeswitch.consoleLog("notice", "[xml_handler] configuration:acl.conf source: memcache\n");
+			end
+	end --if XML_STRING