Script for enterling/leaving a ring group, based on the fifo code

2026-01-04 02:43:48 +00:00 · 2015-09-07 08:51:22 +02:00
parent ee8e5e668a
commit 319ee702ce
1 changed files with 145 additions and 0 deletions
--- a/resources/install/scripts/ring_member.lua
+++ b/resources/install/scripts/ring_member.lua
@@ -0,0 +1,145 @@
+--
+--	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
+--	All Rights Reserved.
+--
+--	Contributor(s):
+--	Koldo A. Marcos <koldo.aingeru@sarenet.es>
+
+
+--include config.lua
+	require "resources.functions.config";
+	
+--connect to the database
+	require "resources.functions.database_handle";
+	dbh = database_handle('system');
+
+sounds_dir = "";
+recordings_dir = "";
+pin_number = "";
+max_tries = "3";
+digit_timeout = "3000";
+
+
+local random = math.random
+local function uuid()
+    local template ='xxxxxxxx-xxxx-4xxx-yxxx-xxxxxxxxxxxx'
+    return string.gsub(template, '[xy]', function (c)
+        local v = (c == 'x') and random(0, 0xf) or random(8, 0xb)
+        return string.format('%x', v)
+    end)
+end
+
+if ( session:ready() ) then
+	session:answer();
+	--session:execute("info", "");
+	destination_number = session:getVariable("user_name");
+	pin_number = session:getVariable("pin_number");
+	sounds_dir = session:getVariable("sounds_dir");
+	ring_group_uuid = session:getVariable("ring_group_uuid");
+	
+	--get info for the ring group
+	sql = "SELECT * FROM v_ring_groups ";
+	sql = sql .. "where ring_group_uuid = '"..ring_group_uuid.."' ";
+	status = dbh:query(sql, function(row)
+		domain_uuid = row["domain_uuid"];
+	end);
+
+	destination_timeout = 15;
+	destination_delay = 0;
+	
+
+
+	ring_group_destination_uuid = uuid();
+
+	--pin number is not required
+
+	--press 1 to login and 2 to logout
+		menu_selection = session:playAndGetDigits(1, 1, max_tries, digit_timeout, "#", "ivr/ivr-enter_destination_telephone_number.wav", "", "\\d+");
+		freeswitch.consoleLog("NOTICE", "menu_selection: "..menu_selection.."\n");
+		if (menu_selection == "1") then
+			--first, check to see if is already in that ring group
+			sql = [[
+					SELECT COUNT(*) AS in_group FROM
+						v_ring_group_destinations
+					WHERE
+						domain_uuid = ']]..domain_uuid..[[' 
+						AND ring_group_uuid = ']]..ring_group_uuid..[['
+						AND destination_number = ']]..destination_number..[['
+			]];
+			
+			--freeswitch.consoleLog("NOTICE", "ring_group_member: SQL "..sql.."\n");
+			
+			assert(dbh:query(sql, function(row)
+				if (row.in_group == "0") then
+					sql = [[
+						INSERT INTO 
+							v_ring_group_destinations 
+								(	ring_group_destination_uuid,
+									domain_uuid, 
+									ring_group_uuid, 
+									destination_number,
+									destination_delay,
+									destination_timeout) 
+						VALUES 
+								(	']]..ring_group_destination_uuid..[[',
+									']]..domain_uuid..[[', 
+									']]..ring_group_uuid..[[', 
+									']]..destination_number..[[', 
+									]]..destination_delay..[[, 
+									]]..destination_timeout..[[)
+			
+					]];
+								
+					--freeswitch.consoleLog("NOTICE", "ring_group_member: SQL "..sql.."\n");
+					dbh:query(sql);
+		
+					freeswitch.consoleLog("NOTICE", "ring_group_member: LOG IN\n");
+					session:streamFile("ivr/ivr-you_are_now_logged_in.wav");
+
+				else
+					freeswitch.consoleLog("NOTICE", "ring_group_member: ALREADY LOGGED IN\n");
+					session:streamFile("ivr/ivr-you_are_now_logged_in.wav");
+				end		
+			end));
+			
+			
+		end
+		if (menu_selection == "2") then
+			sql = [[
+				DELETE FROM 
+					v_ring_group_destinations 
+				WHERE 
+					domain_uuid	=']]..domain_uuid..[[' 
+					AND ring_group_uuid=']]..ring_group_uuid..[['  
+					AND destination_number=']]..destination_number..[['
+				]];
+			freeswitch.consoleLog("NOTICE", "ring_group_member: SQL "..sql.."\n");
+			dbh:query(sql);
+
+			freeswitch.consoleLog("NOTICE", "ring_group_member: LOG OUT\n");
+			session:streamFile("ivr/ivr-you_are_now_logged_out.wav");
+		end
+
+	--wait for the file to be written before proceeding
+		--session:sleep(1000);
+
+	--hangup
+		session:hangup();
+end