adding info example

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@13293 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2009-05-13 16:23:13 +00:00
parent 4ccaf98fec
commit a734e4dfed
1 changed files with 15 additions and 0 deletions

15
libs/esl/perl/info.pl Normal file
View File

@ -0,0 +1,15 @@
#!/usr/bin/perl
require ESL;
my $con = ESL::ESLconnection->new("localhost", "8021", "ClueCon");
my $e = ESL::ESLevent->new("SEND_INFO");
#my $e = $con->sendEvent("MESSAGE_WAITING");
$e->addHeader("Content-Type", "text/xml");
$e->addHeader("to-uri", 'sip:1002@dev.bkw.org');
$e->addHeader("from-uri", 'sip:1234@dev.bkw.org');
$e->addHeader("profile", 'external');
$con->sendEvent($e);