diff --git a/resources/install/scripts/fax_retry.lua b/resources/install/scripts/fax_retry.lua index d0bb750365..8cd24008df 100644 --- a/resources/install/scripts/fax_retry.lua +++ b/resources/install/scripts/fax_retry.lua @@ -27,7 +27,7 @@ uuid = env:getHeader("uuid"); fax_success = env:getHeader("fax_success"); fax_result_text = env:getHeader("fax_result_text"); - fax_ecm_used = env:getHeader("fax_ecm_used"); + --fax_ecm_used = env:getHeader("fax_ecm_used"); fax_retry_attempts = tonumber(env:getHeader("fax_retry_attempts")); fax_retry_limit = tonumber(env:getHeader("fax_retry_limit")); --fax_retry_sleep = tonumber(env:getHeader("fax_retry_sleep")); @@ -41,6 +41,9 @@ fax_result_code = env:getHeader("fax_result_code"); fax_busy_attempts = tonumber(env:getHeader("fax_busy_attempts")); + hangup_cause_q850 = tonumber(env:getHeader("hangup_cause_q850")); + + --set default values if (not origination_caller_id_name) then origination_caller_id_name = '000000000000000'; @@ -51,7 +54,22 @@ if (not fax_busy_attempts) then fax_busy_attempts = 0; end + --we got a busy signal.... hack we should really check sip_term_cause + if (not fax_success) then + fax_success = 0; + fax_result_code = 2; + end + if (hangup_cause_q850 == "17") then + fax_success = 0; + fax_result_code=2; + end + + if (not fax_result_text) then + fax_result_text = "FS_NOT_SET"; + end + + --for email email_address = env:getHeader("mailto_address"); --email_address = api:execute("system", "/bin/echo -n "..email_address.." | /bin/sed -e s/\,/\\\\,/g"); @@ -67,8 +85,9 @@ freeswitch.consoleLog("INFO","fax_success: '" .. fax_success .. "'\n"); freeswitch.consoleLog("INFO","fax_result_text: '" .. fax_result_text .. "'\n"); freeswitch.consoleLog("INFO","fax_file: '" .. fax_file .. "'\n"); + freeswitch.consoleLog("INFO","fax_file: \"" .. fax_file .. "\"\n"); freeswitch.consoleLog("INFO","uuid: '" .. uuid .. "'\n"); - freeswitch.consoleLog("INFO","fax_ecm_used: '" .. fax_ecm_used .. "'\n"); + --freeswitch.consoleLog("INFO","fax_ecm_used: '" .. fax_ecm_used .. "'\n"); freeswitch.consoleLog("INFO","fax_retry_attempts: " .. fax_retry_attempts.. "\n"); freeswitch.consoleLog("INFO","fax_retry_limit: " .. fax_retry_limit.. "\n"); freeswitch.consoleLog("INFO","fax_retry_sleep: " .. fax_retry_sleep.. "\n"); @@ -78,11 +97,12 @@ freeswitch.consoleLog("INFO","fax_result_code: ".. fax_result_code .."\n"); freeswitch.consoleLog("INFO","mailfrom_address: ".. from_address .."\n"); freeswitch.consoleLog("INFO","mailto_address: ".. email_address .."\n"); + freeswitch.consoleLog("INFO","hangup_cause_q850: '" .. hangup_cause_q850 .. "'\n"); -- if the fax failed then try again if (fax_success == "0") then --DEBUG - --email_cmd = "/bin/echo '"..email_message_fail.."' | /usr/bin/mail -s 'Fax to: "..number_dialed.." FAILED' -r "..from_address.." -a "..fax_file.." "..email_address; + --email_cmd = "/bin/echo '"..email_message_fail.."' | /usr/bin/mail -s 'Fax to: "..number_dialed.." FAILED' -r "..from_address.." -a '"..fax_file.."' "..email_address; --to keep the originate command shorter these are things we always send. One place to adjust for all. originate_same = "mailto_address='"..email_address.."',mailfrom_address='"..from_address.."',origination_caller_id_name='"..origination_caller_id_name.. "',origination_caller_id_number="..origination_caller_id_number..",fax_uri="..fax_uri..",fax_retry_limit="..fax_retry_limit..",fax_retry_sleep="..fax_retry_sleep..",fax_verbose=true,fax_file='"..fax_file.."'"; @@ -90,12 +110,20 @@ if (fax_retry_attempts < fax_retry_limit) then - --timed out waitng for comm or on first message (busy code?) - if (fax_result_code == "2" or fax_result_code == "3" ) then + --timed out waitng for comm or on first message, or busy code + if (fax_result_code == "2" or fax_result_code == "3" or hangup_cause_q850 == 17) then --do nothing. don't want to increment freeswitch.consoleLog("INFO","Last Fax was probably Busy, don't increment retry_attempts. \n"); fax_busy_attempts = fax_busy_attempts + 1; - freeswitch.msleep(fax_retry_sleep * 1000); + if (fax_busy_attempts > fax_busy_limit) then + fax_retry_attempts = 17; + else + freeswitch.msleep(fax_retry_sleep * 1000); + end + --unallocated number + elseif (hangup_cause_q850 == 1 ) then + fax_retry_attempts = 10; + email_message_fail = "We are sorry the fax failed to go through. The number you specified is not a working number. The fax has been attached. Please check the number "..number_dialed..", and if it was correct you might consider emailing it instead." elseif (fax_retry_attempts < 5 ) then freeswitch.consoleLog("INFO","Last Fax Failed, try a different way. Wait first.\n"); @@ -107,33 +135,70 @@ if (fax_retry_attempts == 1) then --send t38 on ECM on freeswitch.consoleLog("INFO","FAX TRYING ["..fax_retry_attempts.."] of [4] to: "..number_dialed.." with: t38 ON ECM ON, Fast\n"); - fax_retry_attempts = fax_retry_attempts + 1; + if (hangup_cause_q850 ~= 17) then + fax_retry_attempts = fax_retry_attempts + 1; + end cmd = "originate {fax_retry_attempts="..fax_retry_attempts..","..originate_same..",fax_use_ecm=true,fax_enable_t38=true,fax_enable_t38_request=true,fax_disable_v17=false,fax_busy_attempts='"..fax_busy_attempts.."',api_hangup_hook='lua fax_retry.lua'}"..fax_uri.." &txfax('"..fax_file.."')"; elseif (fax_retry_attempts == 2) then --send t38 off, ECM on freeswitch.consoleLog("INFO","FAX TRYING ["..fax_retry_attempts.."] of [4] to: "..number_dialed.." with: t38 OFF ECM ON, Fast\n"); - fax_retry_attempts = fax_retry_attempts + 1; + if (hangup_cause_q850 ~= 17) then + fax_retry_attempts = fax_retry_attempts + 1; + end cmd = "originate {fax_retry_attempts="..fax_retry_attempts..","..originate_same..",fax_use_ecm=true,fax_enable_t38=false,fax_enable_t38_request=false,fax_disable_v17=false,fax_busy_attempts='"..fax_busy_attempts.."',api_hangup_hook='lua fax_retry.lua'}"..fax_uri.." &txfax('"..fax_file.."')"; elseif (fax_retry_attempts == 3) then --send t38 on v17 [slow] on ECM off freeswitch.consoleLog("INFO","FAX TRYING ["..fax_retry_attempts.."] of [4] to: "..number_dialed.." with: t38 ON ECM OFF, SLOW\n"); - fax_retry_attempts = fax_retry_attempts + 1; + if (hangup_cause_q850 ~= 17) then + fax_retry_attempts = fax_retry_attempts + 1; + end cmd = "originate {fax_retry_attempts="..fax_retry_attempts..","..originate_same..",fax_use_ecm=false,fax_enable_t38=true,fax_enable_t38_request=true,fax_disable_v17=true,fax_busy_attempts='"..fax_busy_attempts.."',api_hangup_hook='lua fax_retry.lua'}"..fax_uri.." &txfax('"..fax_file.."')"; elseif (fax_retry_attempts == 4) then --send t38 off v17 [slow] on ECM off freeswitch.consoleLog("INFO","FAX TRYING ["..fax_retry_attempts.."] of [4] to: "..number_dialed.." with: t38 OFF ECM OFF, SLOW\n"); - fax_retry_attempts = fax_retry_attempts + 1; + if (hangup_cause_q850 ~= 17) then + fax_retry_attempts = fax_retry_attempts + 1; + end cmd = "originate {fax_retry_attempts="..fax_retry_attempts..","..originate_same..",fax_use_ecm=false,fax_enable_t38=false,fax_enable_t38_request=false,fax_disable_v17=true,fax_busy_attempts='"..fax_busy_attempts.."',api_hangup_hook='lua fax_retry.lua'}"..fax_uri.." &txfax('"..fax_file.."')"; + --bad number + elseif (fax_retry_attempts == 10) then + freeswitch.consoleLog("INFO","FAX_RETRY FAILED: BAD NUMBER\n"); + freeswitch.consoleLog("INFO", "FAX_RETRY_STATS FAILURE BAD NUMBER: GATEWAY[".. fax_uri .."]"); + email_message_fail = email_message_fail.."We tried sending, but the number entered was not a working phone number " + email_address = email_address:gsub("\\,", ","); + freeswitch.email("", + "", + "To: "..email_address.."\nFrom: "..from_address.."\nSubject: Fax to: "..number_dialed.." was INVALID", + email_message_fail , + fax_file + ); + + + --busy number + elseif (fax_retry_attempts == 17) then + freeswitch.consoleLog("INFO","FAX_RETRY FAILED: TRIED ["..fax_busy_attempts.."] of [4]: BUSY NUMBER\n"); + freeswitch.consoleLog("INFO", "FAX_RETRY_STATS FAILURE BUSY: GATEWAY[".. fax_uri .."], BUSY NUMBER"); + email_message_fail = email_message_fail.." We tried sending, but the call was busy "..fax_busy_attempts.." of those times." + email_address = email_address:gsub("\\,", ","); + freeswitch.email("", + "", + "To: "..email_address.."\nFrom: "..from_address.."\nSubject: Fax to: "..number_dialed.." was BUSY", + email_message_fail , + fax_file + ); + else --the fax failed completely. send a message freeswitch.consoleLog("INFO","FAX_RETRY FAILED: TRIED ["..fax_retry_attempts.."] of [4]: GIVING UP\n"); - freeswitch.consoleLog("INFO", "FAX_RETRY_STATS FAILURE: GATEWAY[".. fax_uri .."], tried 5 combinations without success\n"); + freeswitch.consoleLog("INFO", "FAX_RETRY_STATS FAILURE: GATEWAY[".. fax_uri .."], tried 5 combinations without success"); + + email_message_fail = email_message_fail.." We tried sending 5 times ways. You may also want to know that the call was busy "..fax_busy_attempts.." of those times." email_address = email_address:gsub("\\,", ","); @@ -174,7 +239,7 @@ else fax_trial = "fax_retry had an issue and tried more than 5 times" end - freeswitch.consoleLog("INFO", "FAX_RETRY_STATS SUCCESS: GATEWAY[".. fax_uri .."] VARS[" .. fax_trial .. "]\n"); + freeswitch.consoleLog("INFO", "FAX_RETRY_STATS SUCCESS: GATEWAY[".. fax_uri .."] VARS[" .. fax_trial .. "]"); email_address = email_address:gsub("\\,", ","); freeswitch.email("",