mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-08-13 17:38:59 +00:00
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
This commit is contained in:
8
scripts/perl/mwi_event.pl
Normal file
8
scripts/perl/mwi_event.pl
Normal file
@@ -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();
|
Reference in New Issue
Block a user