-- -- call_block-FS -- Version: MPL 1.1 -- -- The contents of this file are subject to the Mozilla Public License Version -- 1.1 (the "License"); you may not use this file except in compliance with -- the License. You may obtain a copy of the License at -- http://www.mozilla.org/MPL/ -- -- Software distributed under the License is distributed on an "AS IS" basis, -- WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License -- for the specific language governing rights and limitations under the -- License. -- -- The Original Code is call_block-FS -- -- The Initial Developer of the Original Code is -- Gerrit Visser -- Copyright (C) 2011 -- the Initial Developer. All Rights Reserved. -- -- Contributor(s): -- Gerrit Visser -- Mark J Crane --[[ This module provides for Blacklisting of phone numbers. Essentially these are numbers that you do not want to hear from again! To call this script and pass it arguments: 1. On the command line, e.g. in a FS incoming dialplan: This method causes the script to get its manadatory arguments directly from the Session ]] --[[ Change Log: 15 Jun, 2011: initial release > FusionPBX 15 Jun, 2011: Added loglevel parameter and logger function to simplify control of debug output 4 May, 2012: tested with FusionPBX V3 4 May, 2012: added per_tenant capability (domain based) 12 Jun, 2013: update the database connection, change table name from v_callblock to v_call_block 14 Jun, 2013: Change Voicemail option to use Transfer, avoids mod_voicemail dependency 27 Sep, 2013: Changed the name of the fields to conform with the table name ]] --set defaults expire = {} expire["call_block"] = "3600"; source = ""; -- Command line parameters local params = { cid_num = string.match(tostring(session:getVariable("caller_id_number")), "%d+"), cid_name = session:getVariable("caller_id_name"), domain_name = session:getVariable("domain_name"), userid = "", -- session:getVariable("id") loglevel = "W" -- Warning, Debug, Info } --check if cid_num is numeric if (tonumber(params["cid_num"]) == nil) then return end -- local storage local sql = nil --define the functions require "resources.functions.trim"; --define the logger function local function logger(level, log, data) -- output data to console 'log' if debug level is on if string.find(params["loglevel"], level) then freeswitch.consoleLog(log, "[Call Block]: " .. data .. "\n") end end --set the api object api = freeswitch.API(); -- ensure that we have a fresh status on exit session:setVariable("call_block", "") --send to the log logger("D", "NOTICE", "params are: " .. string.format("'%s', '%s', '%s', '%s'", params["cid_num"], params["cid_name"], params["userid"], params["domain_name"])); --get the cache if (trim(api:execute("module_exists", "mod_memcache")) == "true") then cache = trim(api:execute("memcache", "get app:call_block:" .. params["domain_name"] .. ":" .. params["cid_num"])); else cache = "-ERR NOT FOUND"; end --check if number is in call_block list then increment the counter and block the call --if not cached then get the information from the database if (cache == "-ERR NOT FOUND") then --connect to the database Database = require "resources.functions.database"; dbh = Database.new('system'); --log if not connect if dbh:connected() == false then logger("W", "NOTICE", "db was not connected") end --check if the the call block is blocked sql = "SELECT * FROM v_call_block as c " sql = sql .. "JOIN v_domains as d ON c.domain_uuid=d.domain_uuid " sql = sql .. "WHERE c.call_block_number = :cid_num AND d.domain_name = :domain_name " dbh:query(sql, params, function(rows) found_cid_num = rows["call_block_number"]; found_uuid = rows["call_block_uuid"]; found_enabled = rows["call_block_enabled"]; found_action = rows["call_block_action"]; found_count = rows["call_block_count"]; end) -- dbh:affected_rows() doesn't do anything if using core:db so this is the workaround: --set the cache if (found_cid_num) then -- caller id exists if (found_enabled == "true") then --set the cache cache = "found_cid_num=" .. found_cid_num .. "&found_uuid=" .. found_uuid .. "&found_enabled=" .. found_enabled .. "&found_action=" .. found_action .. "&found_count=" .. found_count; result = trim(api:execute("memcache", "set app:call_block:" .. params["domain_name"] .. ":" .. params["cid_num"] .. " '"..cache.."' "..expire["call_block"])); --set the source source = "database"; end end else --get from memcache --add the function require "resources.functions.explode"; --parse the cache array = explode("&", cache); --define the array/table and variables local var = {} local key = ""; local value = ""; --parse the cache key_pairs = explode("&", cache); for k,v in pairs(key_pairs) do f = explode("=", v); key = f[1]; value = f[2]; var[key] = value; end --set the variables found_cid_num = var["found_cid_num"]; found_uuid = var["found_uuid"]; found_enabled = var["found_enabled"]; found_action = var["found_action"]; found_count = var["found_count"]; --set the source source = "memcache"; end --debug information --freeswitch.consoleLog("error", "[call_block] " .. cache .. "\n"); --freeswitch.consoleLog("error", "[call_block] found_cid_num = " .. found_cid_num .. "\n"); --freeswitch.consoleLog("error", "[call_block] found_enabled = " .. found_enabled .. "\n"); --freeswitch.consoleLog("error", "[call_block] source = " .. source .. "\n"); --block the call if found_cid_num then -- caller id exists if (found_enabled == "true") then details = {} k = 0 for v in string.gmatch(found_action, "[%w%.]+") do details[k] = v --logger("W", "INFO", "Details: " .. details[k]) k = k + 1 end if (source == "database") then dbh:query("UPDATE v_call_block SET call_block_count = :call_block_count WHERE call_block_uuid = :call_block_uuid",{ call_block_count = found_count + 1, call_block_uuid = found_uuid }) end session:execute("set", "call_blocked=true"); logger("W", "NOTICE", "number " .. params["cid_num"] .. " blocked with " .. found_count .. " previous hits, domain_name: " .. params["domain_name"]) if (found_action == "Reject") then session:hangup("CALL_REJECTED") elseif (found_action == "Busy") then session:hangup("USER_BUSY") elseif (found_action =="Hold") then session:setAutoHangup(false) session:execute("transfer", "*9664") elseif (details[0] =="Voicemail") then session:setAutoHangup(false) session:execute("transfer", "*99" .. details[2] .. " XML " .. details[1]) end end end