From d562d11528428e72b80d025c4826ab304d0a1e4a Mon Sep 17 00:00:00 2001
From: FusionPBX <mark@fusionpbx.com>
Date: Fri, 15 Nov 2024 14:16:22 -0700
Subject: [PATCH] Create three_way.lua

---
 app/switch/resources/scripts/three_way.lua | 135 +++++++++++++++++++++
 1 file changed, 135 insertions(+)
 create mode 100644 app/switch/resources/scripts/three_way.lua

diff --git a/app/switch/resources/scripts/three_way.lua b/app/switch/resources/scripts/three_way.lua
new file mode 100644
index 0000000000..fee9d18c9d
--- /dev/null
+++ b/app/switch/resources/scripts/three_way.lua
@@ -0,0 +1,135 @@
+--
+--	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";
+
+--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");
+	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", "[eavesdrop] 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 eavesdrop 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", "[eavesdrop] SQL: " .. sql .. "; params:" .. json.encode(params) .. "\n");
+		end
+		dbh:query(sql, params, function(result)
+			for key, val in pairs(result) do
+				freeswitch.consoleLog("NOTICE", "[eavesdrop] result "..key.." "..val.."\n");
+			end
+			uuid = result.uuid;
+		end);
+	end
+
+--three way call barge
+	if (session:ready() and uuid) then
+		session:execute("three_way", uuid); --call barge
+	end
+
+--notes
+	--originate a call
+		--cmd = "originate user/1007@voip.example.com &eavesdrop("..uuid..")";
+		--cmd = "uuid_bridge "..caller_uuid.." "..uuid;
+		--api = freeswitch.API();
+		--result = api:executeString(cmd);