From a734e4dfed40235c7bd9ca3629be1b35eacf8301 Mon Sep 17 00:00:00 2001
From: Brian West <brian@freeswitch.org>
Date: Wed, 13 May 2009 16:23:13 +0000
Subject: [PATCH]  adding info example

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@13293 d0543943-73ff-0310-b7d9-9358b9ac24b2
---
 libs/esl/perl/info.pl | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 libs/esl/perl/info.pl

diff --git a/libs/esl/perl/info.pl b/libs/esl/perl/info.pl
new file mode 100644
index 0000000000..6ea614b162
--- /dev/null
+++ b/libs/esl/perl/info.pl
@@ -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);