freeswitch/scripts/lua/callback.lua

87 lines
2.0 KiB
Lua

function all_done(s, how)
freeswitch.console_log("info", "done: " .. how .. "\n");
end
function my_cb(s, type, obj, arg)
if (arg) then
freeswitch.console_log("info", "\ntype: " .. type .. "\n" .. "arg: " .. arg .. "\n");
else
freeswitch.console_log("info", "\ntype: " .. type .. "\n");
end
if (type == "dtmf") then
freeswitch.console_log("info", "\ndigit: [" .. obj['digit'] .. "]\nduration: [" .. obj['duration'] .. "]\n");
if (obj['digit'] == "1") then
--session:speak("seek backwards");
return "seek:-9000";
end
if (obj['digit'] == "2") then
--session:speak("start over");
return "seek:0";
end
if (obj['digit'] == "3") then
--session:speak("seek forward");
return "seek:+9000";
end
if (obj['digit'] == "4") then
--session:speak("speed faster");
return "speed:+1";
end
if (obj['digit'] == "5") then
--session:speak("speed normal");
return "speed:0";
end
if (obj['digit'] == "6") then
--session:speak("speed slower");
return "speed:-1";
end
if (obj['digit'] == "7") then
--session:speak("volume up");
return "volume:+1";
end
if (obj['digit'] == "8") then
--session:speak("volume normal");
return "volume:0";
end
if (obj['digit'] == "9") then
--session:speak("volume down");
return "volume:-1";
end
if (obj['digit'] == "*") then
--session:speak("stop");
return "stop";
end
if (obj['digit'] == "0") then
--session:speak("pause");
return "pause";
end
if (obj['digit'] == "#") then
return "break";
end
else
freeswitch.console_log("info", obj:serialize("xml"));
end
end
blah = "args";
---session:set_tts_parms("flite", "kal");
session:setHangupHook("all_done");
session:setInputCallback("my_cb", "blah");
session:streamFile("/ram/swimp.raw");
--session:speak("Thank you, good bye!");