--	Part of FusionPBX
--	Copyright (C) 2013-2023 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.

--define function to listen to the recording
	function listen_to_recording(message_number, uuid, created_epoch, caller_id_name, caller_id_number, message_status, message_play)

		--set default values
			dtmf_digits = '';
			max_digits = 1;
			if (message_play == nil) then
				message_play = 'true';
			end

		--flush dtmf digits from the input buffer
			session:flushDigits();

		--set the callback function
			if (session:ready()) then
				session:setVariable("playback_terminators", "#");
				session:setInputCallback("on_dtmf", "");
			end

		--set the display
			if (session:ready()) then
				reply = api:executeString("uuid_display "..session:get_uuid().." "..caller_id_number);
			end

		--playback message
			if (message_play == 'true') then

				--say the message number
					if (session:ready()) then
						if (string.len(dtmf_digits) == 0) then
							session:execute("playback", "phrase:voicemail_say_message_number:" .. message_status .. ":" .. message_number);
						end
					end

				--say the caller id number first (default)
					if (
						session:ready() and
						caller_id_number ~= nil and (
							vm_say_caller_id_number == nil or
							vm_say_caller_id_number == "true" or
							vm_say_caller_id_number == "before"
						)) then
						session:streamFile(sounds_dir.."/"..default_language.."/"..default_dialect.."/"..default_voice.."/voicemail/vm-from.wav");
						session:say(caller_id_number, default_language, "name_spelled", "iterated");
					end

				--say the message date first (default)
					if (
						session:ready() and
						string.len(dtmf_digits) == 0 and (
							vm_say_date_time == nil or
							vm_say_date_time == "true" or
							vm_say_date_time == "before"
						)) then
						if (current_time_zone ~= nil) then
							session:execute("set", "timezone="..current_time_zone.."");
						end
						session:say(created_epoch, default_language, "current_date_time", "pronounced");
					end

				--get the recordings from the database
					if (storage_type == "base64") then
						local dbh = Database.new('system', 'base64/read')

						local sql = [[SELECT * FROM v_voicemail_messages
							WHERE domain_uuid = :domain_uuid
							AND voicemail_message_uuid = :uuid]];
						local params = {domain_uuid = domain_uuid, uuid = uuid};
						if (debug["sql"]) then
							freeswitch.consoleLog("notice", "[voicemail] SQL: " .. sql .. "; params:" .. json.encode(params) .. "\n");
						end
						dbh:query(sql, params, function(row)
							--set the voicemail message path
								mkdir(voicemail_dir.."/"..voicemail_id);
								message_intro_location = voicemail_dir.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext;
								message_location = voicemail_dir.."/"..voicemail_id.."/msg_"..uuid;

							--save the recording to the file system
								if (string.len(row["message_intro_base64"]) > 32) then
									local file = io.open(message_intro_location, "w");
									file:write(base64.decode(row["message_intro_base64"]));
									file:close();
								end
								if (string.len(row["message_base64"]) > 32) then
									--include the file io
										local file = require "resources.functions.file"

									--write decoded string to file
										assert(file.write_base64(message_location, row["message_base64"]));
								end

							--get the file type
								command = "file -b --mime-type "..message_location;
								local handle = io.popen(command);
								local mime_type = trim(handle:read("*a"));
								handle:close();
								if (mime_type == 'audio/x-wav') then
									vm_message_ext = 'wav';
								end
								if (mime_type == 'audio/mpeg') then
									vm_message_ext = 'mp3';
								end

							--rename the file
								os.execute('mv '..message_location..' '..message_location..'.'..vm_message_ext);
						end);
						dbh:release()
					elseif (storage_type == "http_cache") then
						message_location = storage_path.."/"..voicemail_id.."/msg_"..uuid.."."..vm_message_ext;
					end

				--play the message intro
					if (session:ready()) then
						if (string.len(dtmf_digits) == 0) then
							if (file_exists(voicemail_dir.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext)) then
								stream_seek = true;
								if (storage_type == "http_cache") then
									message_intro_location = storage_path.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext;
									session:streamFile(storage_path.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext);
								else
									if (vm_message_ext == "mp3") then
										if (api:executeString("module_exists mod_vlc") == "true") then
											session:streamFile("vlc://"..voicemail_dir.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext);
										else
											session:streamFile(voicemail_dir.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext);
										end
									else
										session:streamFile(voicemail_dir.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext);
									end
								end
								stream_seek = false;
								--session:streamFile("silence_stream://1000");
							end
						end
					end

				--play the message
					if (session:ready()) then
						if (string.len(dtmf_digits) == 0) then
							--check if wav file exists then play the file
							if (file_exists(voicemail_dir.."/"..voicemail_id.."/msg_"..uuid..".wav")) then
							stream_seek = true;
							if (storage_type == "http_cache") then
								message_location = storage_path.."/"..voicemail_id.."/msg_"..uuid..".wav";
								session:streamFile(storage_path.."/"..voicemail_id.."/msg_"..uuid..".wav");
							else
								session:streamFile(voicemail_dir.."/"..voicemail_id.."/msg_"..uuid..".wav");
							end
							stream_seek = false;
							session:streamFile("silence_stream://1000");
							end

							--check if mp3 file exists then play the file
							if (file_exists(voicemail_dir.."/"..voicemail_id.."/msg_"..uuid..".mp3")) then
							stream_seek = true;
							if (storage_type == "http_cache") then
								message_location = storage_path.."/"..voicemail_id.."/msg_"..uuid..".mp3";
								session:streamFile(storage_path.."/"..voicemail_id.."/msg_"..uuid..".mp3");
							else
								if (api:executeString("module_exists mod_vlc") == "true") then
									session:streamFile("vlc://"..voicemail_dir.."/"..voicemail_id.."/msg_"..uuid..".mp3");
								else
									session:streamFile(voicemail_dir.."/"..voicemail_id.."/msg_"..uuid..".mp3");
								end
							end
							stream_seek = false;
							session:streamFile("silence_stream://1000");
							end
						end
					end

				--remove the voicemail message
					if (storage_type == "base64") then
						os.remove(voicemail_dir.."/"..voicemail_id.."/intro_"..uuid.."."..vm_message_ext);
						os.remove(voicemail_dir.."/"..voicemail_id.."/msg_"..uuid.."."..vm_message_ext);
					end

				--say the caller id number last (optional)
					if (
						session:ready() and
						caller_id_number ~= nil and
						vm_say_caller_id_number ~= nil and
						(
							vm_say_caller_id_number == "last" or
							vm_say_caller_id_number == "after"
						)) then
						session:streamFile(sounds_dir.."/"..default_language.."/"..default_dialect.."/"..default_voice.."/voicemail/vm-from.wav");
						session:say(caller_id_number, default_language, "name_spelled", "iterated");
					end

				--say the message date last (optional)
					if (
						session:ready() and
						string.len(dtmf_digits) == 0 and
						vm_say_date_time ~= nil and
						(
							vm_say_date_time == "last" or
							vm_say_date_time == "after"
						)) then
						if (current_time_zone ~= nil) then
							session:execute("set", "timezone="..current_time_zone.."");
						end
						session:say(created_epoch, default_language, "current_date_time", "pronounced");
					end

			end

		--post listen options
			if (session:ready()) then
				if (string.len(dtmf_digits) == 0) then
					if (use_deletion_queue == "true" and message_status == "deleted") then
						dtmf_digits = session:playAndGetDigits(1, 1, max_tries, digit_timeout, "#", "phrase:voicemail_listen_file_options:deleted:1:2:3:5:7:8:9:0", "", "^[\\d\\*#]$");
					else
						dtmf_digits = session:playAndGetDigits(1, 1, max_tries, digit_timeout, "#", "phrase:voicemail_listen_file_options:1:2:3:5:7:8:9:0", "", "^[\\d\\*#]$");
					end
				end
			end

		--wait for more digits
			--if (session:ready()) then
			--	if (string.len(dtmf_digits) == 0) then
			--		dtmf_digits = session:getDigits(max_digits, "#", 1, 3000);
			--	end
			--end

		--process the dtmf
			if (session:ready()) then
				if (dtmf_digits == "1") then
					return listen_to_recording(message_number, uuid, created_epoch, caller_id_name, caller_id_number, message_status);
				elseif (dtmf_digits == "2") then
					message_saved(voicemail_id, uuid);
					session:execute("playback", "phrase:voicemail_ack:saved");
				elseif (dtmf_digits == "3") then
					session:streamFile(sounds_dir.."/"..default_language.."/"..default_dialect.."/"..default_voice.."/voicemail/vm-from.wav");
					session:say(caller_id_number, default_language, "name_spelled", "iterated");
					if (current_time_zone ~= nil) then
						session:execute("set", "timezone="..current_time_zone.."");
					end
					session:say(created_epoch, default_language, "current_date_time", "pronounced");
					session:execute("sleep", "1000");
					return listen_to_recording(message_number, uuid, created_epoch, caller_id_name, caller_id_number, message_status, 'false');
				elseif (dtmf_digits == "5") then
					message_saved(voicemail_id, uuid);
					return_call(caller_id_number);
				elseif (dtmf_digits == "7") then
					if (use_deletion_queue == "true" and message_status ~= "deleted") then
						message_saved(voicemail_id, uuid, "deleted");
						session:execute("playback", "phrase:voicemail_ack:deleted");
					else
						delete_recording(voicemail_id, uuid);
					end
					message_waiting(voicemail_id, domain_uuid);
					--fix for extensions that start with 0 (Ex: 0712)
						if (voicemail_id_copy ~= voicemail_id  and voicemail_id_copy ~= nil) then
							message_waiting(voicemail_id_copy, domain_uuid);
						end
				elseif (dtmf_digits == "8") then
					forward_to_extension(voicemail_id, uuid);
					dtmf_digits = '';
				elseif (dtmf_digits == "9") then
					send_email(voicemail_id, uuid);
					dtmf_digits = '';
					session:execute("playback", "phrase:voicemail_ack:emailed");
				elseif (dtmf_digits == "*") then
					timeouts = 0;
					return main_menu();
				elseif (dtmf_digits == "0") then
					message_saved(voicemail_id, uuid);
					session:transfer("0", "XML", context);
				elseif (dtmf_digits == "#") then
					return;
				else
					message_saved(voicemail_id, uuid);
					session:execute("playback", "phrase:voicemail_ack:saved");
				end
				session:execute("sleep", "400");
			end
	end