some small lua and perl examples.. they look very similar...

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8202 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/scripts/lua/mwi_event.lua b/scripts/lua/mwi_event.lua
new file mode 100644 (file)
index 0000000..80b0ef9
--- /dev/null
+++ b/scripts/lua/mwi_event.lua
@@ -0,0 +1,8 @@
+-- This is an example of sending an event via luarun from the cli
+-- Edit to your liking.  luarun mwi_event.lua
+freeswitch.console_log("info", "Sending MWI Event using Lua\n");
+
+local event = freeswitch.Event("message_waiting");
+event:add_header("MWI-Messages-Waiting", "no");
+event:add_header("MWI-Message-Account", "sip:1002@10.0.1.100");
+event:fire();

diff --git a/scripts/lua/originate.lua b/scripts/lua/originate.lua
new file mode 100644 (file)
index 0000000..3ac8cfc
--- /dev/null
+++ b/scripts/lua/originate.lua
@@ -0,0 +1,6 @@
+-- Example Lua script to originate. luarun
+freeswitch.console_log("info", "Lua in da house!!!\n");
+
+local session = freeswitch.Session("sofia/10.0.1.100/1002");
+session:execute("playback", "/sr8k.wav");
+session:hangup();

diff --git a/scripts/perl/mwi_event.pl b/scripts/perl/mwi_event.pl
new file mode 100644 (file)
index 0000000..fc227e6
--- /dev/null
+++ b/scripts/perl/mwi_event.pl
@@ -0,0 +1,8 @@
+# This is an example of sending an event via perlrun from the cli
+# Edit to your liking.  perlrun mwi_event.pl
+freeswitch::console_log("info", "Perl in da house!!!\n");
+
+$event = new freeswitch::Event("message_waiting");
+$event->add_header("MWI-Messages-Waiting", "yes");
+$event->add_header("MWI-Message-Account", 'sip:1002@10.0.1.100');
+$event->fire();

diff --git a/scripts/perl/originate.pl b/scripts/perl/originate.pl
new file mode 100644 (file)
index 0000000..cbdfc82
--- /dev/null
+++ b/scripts/perl/originate.pl
@@ -0,0 +1,6 @@
+# Example Perl script to originate. perlrun
+freeswitch::console_log("info", "Perl in da house!!!\n");
+
+$session = new freeswitch::Session("sofia/10.0.1.100/1002") ;
+$session->execute("playback", "/sr8k.wav");
+$session->hangup();