kenmirrors/freeswitch
1
0
Fork 0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-08-13 01:26:58 +00:00
Code Issues Projects Releases Wiki Activity

update last commit

Browse Source 
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@13188 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Anthony Minessale
2009-04-29 04:15:52 +00:00
parent 1fa1e961e4
commit a821ad30f5
2 changed files with 90 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
libs/esl/perl/send_notify.pl Normal file
View File

@@ -0,0 +1,21 @@
#!/usr/bin/perl
require ESL;
ESL::eslSetLogLevel(7);
my $con = ESL::ESLconnection->new("localhost", "8021", "ClueCon");
my $e = ESL::ESLevent->new("NOTIFY");
$e->addHeader("from-uri", "sip:1000\@dev.bkw.org");
$e->addHeader("to-uri", "sip:1000\@dev.bkw.org");
$e->addHeader("event-string", "message-summary");
$e->addHeader("content-type", "application/simple-message-summary");
$e->addHeader("profile", "internal");
my $body ="Messages-Waiting: yes\nMessage-Account: me\@my.com\nVoice-Message: 0/0 (0/0)\n";
$e->addBody($body);
$con->sendEvent($e);