forked from Mirrors/freeswitch
f57c69ceb0
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@8306 d0543943-73ff-0310-b7d9-9358b9ac24b2
12 lines
403 B
Perl
12 lines
403 B
Perl
# 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->addHeader("MWI-Messages-Waiting", "yes");
|
|
$event->addHeader("MWI-Message-Account", 'sip:1002@10.0.1.100');
|
|
|
|
#$event->addHeader("Sofia-Profile", 'internal');
|
|
|
|
$event->fire();
|