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