adding send_info example

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@15613 d0543943-73ff-0310-b7d9-9358b9ac24b2

diff --git a/libs/esl/perl/send_info.pl b/libs/esl/perl/send_info.pl
new file mode 100644 (file)
index 0000000..9f7e3b6
--- /dev/null
+++ b/libs/esl/perl/send_info.pl
@@ -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);
+