retronetworking
/
freeswitch
13
0
Fork 0
Code Pull Requests Releases Activity

adding sendevent example for esl perl 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@13079 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2009-04-17 16:00:08 +00:00
parent 1c2ab4a004
commit 11d518fea5
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
libs/esl/perl/sendevent.pl Normal file
View File

@ -0,0 +1,22 @@
#!/usr/bin/perl
require ESL;
my $con = ESL::ESLconnection->new("localhost", "8021", "ClueCon");
my $e = ESL::ESLevent->new("MESSAGE_WAITING");
#my $e = $con->sendEvent("MESSAGE_WAITING");
$e->addHeader("MWI-Messages-Waiting", "no");
$e->addHeader("MWI-Message-Account", 'sip:1002@dev.bkw.org');
$e->addHeader("MWI-Voice-Message", "0/0 (0/0)");
$con->sendEvent($e);
sleep 3;
my $ee = ESL::ESLevent->new("MESSAGE_WAITING");
$ee->addHeader("MWI-Messages-Waiting", "yes");
$ee->addHeader("MWI-Message-Account", 'sip:1002@dev.bkw.org');
$ee->addHeader("MWI-Voice-Message", "1/1 (1/1)");
$con->sendEvent($ee);