fusionpbx/resources/install/scripts/ring_member.lua

146 lines
4.2 KiB
Lua

--
-- 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