From: Brian West <brian@freeswitch.org>
Date: Fri, 17 Apr 2009 16:00:08 +0000 (+0000)
Subject:  adding sendevent example for esl perl
X-Git-Tag: v1.0.4~1116
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=11d518fea5f6aa551c0038361f718cd780146f7f;p=thirdparty%2Ffreeswitch.git

 adding sendevent example for esl perl

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

diff --git a/libs/esl/perl/sendevent.pl b/libs/esl/perl/sendevent.pl
new file mode 100644
index 0000000000..0dc9a7045c
--- /dev/null
+++ b/libs/esl/perl/sendevent.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+require ESL;
+
+my $con = ESL::ESLconnection->new("localhost", "8021", "ClueCon");
+my $e = ESL::ESLevent->new("MESSAGE_WAITING");
+
+#my $e = $con->sendEvent("MESSAGE_WAITING");
+
+$e->addHeader("MWI-Messages-Waiting", "no");
+$e->addHeader("MWI-Message-Account", 'sip:1002@dev.bkw.org');
+$e->addHeader("MWI-Voice-Message", "0/0 (0/0)");
+$con->sendEvent($e);
+
+sleep 3;
+my $ee = ESL::ESLevent->new("MESSAGE_WAITING");
+
+$ee->addHeader("MWI-Messages-Waiting", "yes");
+$ee->addHeader("MWI-Message-Account", 'sip:1002@dev.bkw.org');
+$ee->addHeader("MWI-Voice-Message", "1/1 (1/1)");
+$con->sendEvent($ee);
+