Create conference transfer.lua

This commit is contained in:
FusionPBX 2024-11-15 15:39:52 -07:00 committed by GitHub
parent 7f527aba07
commit cbcc47d47b
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 143 additions and 0 deletions

View File

@ -0,0 +1,143 @@
--
-- FusionPBX
-- 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 FusionPBX
--
-- The Initial Developer of the Original Code is
-- Mark J Crane <markjcrane@fusionpbx.com>
-- Copyright (C) 2010-2016
-- the Initial Developer. All Rights Reserved.
--
-- Contributor(s):
-- Mark J Crane <markjcrane@fusionpbx.com>
--set defaults
max_tries = "3";
digit_timeout = "5000";
--prepare the api
api = freeswitch.API();
--get the params
extension = argv[1];
--include config.lua
require "resources.functions.config";
--add the file_exists function
require "resources.functions.file_exists";
--connect to the database
local Database = require "resources.functions.database"
local dbh = Database.new('switch')
--include json library
local json
if (debug["sql"]) then
json = require "resources.functions.lunajson"
end
--exits the script if we didn't connect properly
assert(dbh:connected());
--answer the call
if (session:ready()) then
session:answer();
end
--get session variables
if (session:ready()) then
pin_number = session:getVariable("pin_number");
sounds_dir = session:getVariable("sounds_dir");
domain_name = session:getVariable("domain_name");
conference_extension = session:getVariable("conference_extension");
end
--get the domain from sip_from_host
if (session:ready() and domain_name == nil) then
domain_name = session:getVariable("sip_auth_realm");
end
--set the sounds path for the language, dialect and voice
if (session:ready()) then
default_language = session:getVariable("default_language");
default_dialect = session:getVariable("default_dialect");
default_voice = session:getVariable("default_voice");
if (not default_language) then default_language = 'en'; end
if (not default_dialect) then default_dialect = 'us'; end
if (not default_voice) then default_voice = 'callie'; end
end
--set defaults
if (digit_min_length) then
--do nothing
else
digit_min_length = "2";
end
if (digit_max_length) then
--do nothing
else
digit_max_length = "11";
end
--session:execute('info');
--if the pin number is provided then require it
if (session:ready()) then
if (pin_number) then
min_digits = string.len(pin_number);
max_digits = string.len(pin_number)+1;
--digits = session:playAndGetDigits(min_digits, max_digits, max_tries, digit_timeout, "#", "phrase:voicemail_enter_pass:#", "", "\\d+");
digits = session:playAndGetDigits(min_digits, max_digits, max_tries, digit_timeout, "#", sounds_dir.."/"..default_language.."/"..default_dialect.."/"..default_voice.."/ivr/ivr-please_enter_pin_followed_by_pound.wav", "", "\\d+");
if (digits == pin_number) then
--pin is correct
freeswitch.consoleLog("NOTICE", "[conference transfer] pin is correct\n");
else
session:streamFile(sounds_dir.."/"..default_language.."/"..default_dialect.."/"..default_voice.."/voicemail/vm-fail_auth.wav");
session:hangup("NORMAL_CLEARING");
return;
end
end
end
--check the database to get the uuid to conference on
if (session:ready()) then
local sql = "select uuid from channels where presence_id = :presence_id and callstate = 'ACTIVE'";
local params = {presence_id = extension.."@"..domain_name};
if (debug["sql"]) then
freeswitch.consoleLog("notice", "[conference transfer] SQL: " .. sql .. "; params:" .. json.encode(params) .. "\n");
end
dbh:query(sql, params, function(result)
for key, val in pairs(result) do
freeswitch.consoleLog("NOTICE", "[conference transfer] result "..key.." "..val.."\n");
end
uuid = result.uuid;
end);
end
--take an active call and transfer it to a conference room
if (session:ready() and uuid) then
cmd = 'uuid_transfer ' .. uuid .. ' -both ' .. conference_extension .. ' XML ' .. domain_name;
api:executeString(cmd)
session:transfer(conference_extension, 'XML', domain_name);
end
-- How to use this lua script dialplan
-- <extension name="conference-transfer" continue="false" uuid="c678c1ca-6a9c-4274-a247-5085022f376a">
-- <condition field="destination_number" expression="^\*34(\d{2,7})$">
-- <action application="answer" data=""/>
-- <action application="set" data="conference_extension=900$1"/>
-- <action application="lua" data="app/conferences/resources/transfer.lua $1"/>
-- </condition>
-- </extension>