Diff
Deleted: freeswitch/trunk/contrib/DelphiWorld/readme.txt
Deleted: freeswitch/trunk/contrib/DelphiWorld/welcome.lua
Deleted: freeswitch/trunk/contrib/DelphiWorld/welcome.xml
Added: freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/readme.txt (0 => 14122)
--- freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/readme.txt (rev 0)
+++ freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/readme.txt 2009-07-02 18:21:02 UTC (rev 14122)
@@ -0,0 +1,8 @@
+Simple LUA IVR Sample
+
+this is a small IVR in lua using the flite TTS Engine
+modules required:
+mod_flite
+and mod_lua offcourss
+see me in the IRC Channel if any error or suggestion
+thanks to raulfragoso for the first time!
\ No newline at end of file
Added: freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/welcome.lua (0 => 14122)
--- freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/welcome.lua (rev 0)
+++ freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/welcome.lua 2009-07-02 18:21:02 UTC (rev 14122)
@@ -0,0 +1,35 @@
+session:answer();
+while (session:ready() == true) do
+session:setAutoHangup(false)
+session:set_tts_parms("flite", "kal");
+session:speak("Welcome. Welcome to the VoIp World!. this is a Blind Users Programing Community. powered by Freeswitch, the free / ultimate PBX. thank to anthm!");
+session:sleep(100);
+session:speak("please select an Action.");
+session:sleep(100);
+session:speak("to call the conference, press 1");
+session:sleep(100);
+session:speak("to call Freeswitch IVR, press 2");
+session:sleep(100);
+session:speak("to call Voice Mail, press 3");
+session:sleep(100);
+session:speak("for Music on hold, press 4");
+session:sleep(100);
+session:speak("to call me, press 0");
+session:sleep(3000);
+digits = session:getDigits(1, "", 3000);
+if (digits == "1") then
+ session:execute("transfer","3001");
+end
+if (digits == "2") then
+ session:execute("transfer","5000");
+end
+if (digits == "3") then
+ session:execute("transfer","4000");
+end
+if (digits == "4") then
+ session:execute("transfer","9999");
+end
+if (digits == "0") then
+ session:execute("transfer","voipaware@sip.voipuser.org");
+end
+end
\ No newline at end of file
Added: freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/welcome.xml (0 => 14122)
--- freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/welcome.xml (rev 0)
+++ freeswitch/trunk/contrib/DelphiWorld/welcome_ivr/welcome.xml 2009-07-02 18:21:02 UTC (rev 14122)
@@ -0,0 +1,11 @@
+<!!-- this is a dialplan extention to the sample Welcome IVR Script in LUA -->
+<include>
+<!-- extension name -->
+ <extension name="flite">
+<!-- Condition -->
+ <condition field="destination_number" expression="^2910$">
+<!-- Runing the IVR -->
+<action application="lua" data="welcome.lua"/>
+ </condition>
+ </extension>
+</include>
\ No newline at end of file