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

adding send_info example 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@15613 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2009-11-23 15:37:43 +00:00
parent 60d55517b9
commit aa43d92311
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
libs/esl/perl/send_info.pl Normal file
View File

@ -0,0 +1,29 @@
#!/usr/bin/perl
require ESL;
ESL::eslSetLogLevel(7);
my $con = ESL::ESLconnection->new("localhost", "8021", "ClueCon");
my $e = ESL::ESLevent->new("SEND_INFO");
$e->addHeader("local-user", '1000@192.168.1.113');
$e->addHeader("from-uri", 'sip:1000@192.168.1.113');
$e->addHeader("to-uri", 'sip:1000\@192.168.1.113');
$e->addHeader("content-type", "application/csta+xml");
$e->addHeader("content-disposition", "signal; handling=required");
$e->addHeader("profile", "internal");
my $body = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<MakeCall xmlns=\"http://www.ecma-international.org/standards/ecma-323/csta/ed3\">
<callingDevice>sip:1000@\192.168.1.113</callingDevice>
<calledDirectoryNumber>sip:9999\@192.168.1.113</calledDirectoryNumber>
<autoOriginate>doNotPrompt</autoOriginate>
</MakeCall>";
$e->addBody($body);
$con->sendEvent($e);