--	page.lua
--	Part of FusionPBX
--	Copyright (C) 2010 Mark J Crane <markjcrane@fusionpbx.com>
--	All rights reserved.
--
--	Redistribution and use in source and binary forms, with or without
--	modification, are permitted provided that the following conditions are met:
--
--	1. Redistributions of source code must retain the above copyright notice,
--	   this list of conditions and the following disclaimer.
--
--	2. Redistributions in binary form must reproduce the above copyright
--	   notice, this list of conditions and the following disclaimer in the
--	   documentation and/or other materials provided with the distribution.
--
--	THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
--	INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
--	AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
--	AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
--	OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
--	SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
--	INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
--	CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
--	ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
--	POSSIBILITY OF SUCH DAMAGE.

pin_number = "";
max_tries = "3";
digit_timeout = "3000";

function trim (s)
	return (string.gsub(s, "^%s*(.-)%s*$", "%1"))
end

function explode ( seperator, str ) 
	local pos, arr = 0, {}
	for st, sp in function() return string.find( str, seperator, pos, true ) end do -- for each divider found
		table.insert( arr, string.sub( str, pos, st-1 ) ) -- attach chars left of current divider
		pos = sp + 1 -- jump past current divider
	end
	table.insert( arr, string.sub( str, pos ) ) -- attach chars right of last divider
	return arr
end

if ( session:ready() ) then
	session:answer();
	--get the dialplan variables and set them as local variables
		destination_number = session:getVariable("destination_number");
		pin_number = session:getVariable("pin_number");
		domain_name = session:getVariable("domain_name");
		sounds_dir = session:getVariable("sounds_dir");
		destinations = session:getVariable("destinations");
		if (destinations == nil) then
			destinations = session:getVariable("extension_list");	
		end
		destination_table = explode(",",destinations);
		caller_id_name = session:getVariable("caller_id_name");
		caller_id_number = session:getVariable("caller_id_number");
		sip_from_user = session:getVariable("sip_from_user");
		mute = session:getVariable("mute");

	--set the sounds path for the language, dialect and voice
		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

	if (caller_id_name) then
		--caller id name provided do nothing
	else
		effective_caller_id_name = session:getVariable("effective_caller_id_name");
		caller_id_number = effective_caller_id_name;
	end

	if (caller_id_number) then
		--caller id number provided do nothing
	else
		effective_caller_id_number = session:getVariable("effective_caller_id_number");
		caller_id_number = effective_caller_id_number;
	end

	--set conference flags
	if (mute) then
		if (mute == "false") then
			flags = "flags{}";
		else
			flags = "flags{mute}";
		end
	else
		flags = "flags{mute}";
	end

	--if the pin number is provided then require it
	if (pin_number) then
		--sleep
			session:sleep(500);
		--get the user pin number
			min_digits = 2;
			max_digits = 20;
			digits = session:playAndGetDigits(min_digits, max_digits, max_tries, digit_timeout, "#", "phrase:voicemail_enter_pass:#", "", "\\d+");
		--validate the user pin number
			pin_number_table = explode(",",pin_number);
			for index,pin_number in pairs(pin_number_table) do
				if (digits == pin_number) then
					--set the variable to true
						auth = true;
					--set the authorized pin number that was used
						session:setVariable("pin_number", pin_number);
					--end the loop
						break;
				end
			end
		--if not authorized play a message and then hangup
			if (not auth) then
				session:streamFile("phrase:voicemail_fail_auth:#");
				session:hangup("NORMAL_CLEARING");
				return;
			end
	end

	destination_count = 0;
	api = freeswitch.API();
	for index,value in pairs(destination_table) do
		if (string.find(value, "-") == nill) then
			value = value..'-'..value;
		end
		sub_table = explode("-",value);
		for destination=sub_table[1],sub_table[2] do
			--get the destination required for number-alias
			destination = api:execute("user_data", destination .. "@" .. domain_name .. " attr id");	 

			--prevent calling the user that initiated the page
			if (sip_from_user ~= destination) then
				--cmd = "username_exists id "..destination.."@"..domain_name;
				--reply = trim(api:executeString(cmd));
				--if (reply == "true") then
					destination_status = "show channels like "..destination.."@";
					reply = trim(api:executeString(destination_status));
					if (reply == "0 total.") then
						--freeswitch.consoleLog("NOTICE", "destination "..destination.." available\n");
						if (destination == tonumber(sip_from_user)) then
							--this destination is the caller that initated the page
						else
							--originate the call
							cmd_string = "bgapi originate {sip_auto_answer=true,sip_h_Alert-Info='Ring Answer',hangup_after_bridge=false,origination_caller_id_name='"..caller_id_name.."',origination_caller_id_number="..caller_id_number.."}user/"..destination.."@"..domain_name.." conference:page-"..destination_number.."@page+"..flags.." inline";
							api:executeString(cmd_string);
							destination_count = destination_count + 1;
						end
						--freeswitch.consoleLog("NOTICE", "cmd_string "..cmd_string.."\n");
					else
						--look inside the reply to check for the correct domain_name
						if string.find(reply, domain_name) then
							--found: user is busy
						else
							--not found
							if (destination == tonumber(sip_from_user)) then
								--this destination is the caller that initated the page
							else
								--originate the call
								cmd_string = "bgapi originate {sip_auto_answer=true,hangup_after_bridge=false,origination_caller_id_name='"..caller_id_name.."',origination_caller_id_number="..caller_id_number.."}user/"..destination.."@"..domain_name.." conference:page-"..destination_number.."@page+"..flags.." inline";
								api:executeString(cmd_string);
								destination_count = destination_count + 1;
							end
						end
					end
				--end
			end
		end
	end

	--send main call to the conference room
	if (destination_count > 0) then
		if (session:getVariable("moderator") ~= nil and session:getVariable("moderator") == "true") then
			moderator_flag = ",moderator";
		else
			moderator_flag = "";
		end
		session:execute("conference", "page-"..destination_number.."@page+flags{endconf"..moderator_flag.."}");
	else
		session:execute("playback", "tone_stream://%(500,500,480,620);loops=3");
	end

end