[Freeswitch-svn] [commit] r13293 - freeswitch/trunk/libs/esl/perl
FreeSWITCH SVN
brian at freeswitch.org
Wed May 13 09:23:13 PDT 2009
Author: brian
Date: Wed May 13 11:23:13 2009
New Revision: 13293
Log:
adding info example
Added:
freeswitch/trunk/libs/esl/perl/info.pl
Added: freeswitch/trunk/libs/esl/perl/info.pl
==============================================================================
--- (empty file)
+++ freeswitch/trunk/libs/esl/perl/info.pl Wed May 13 11:23:13 2009
@@ -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 at dev.bkw.org');
+$e->addHeader("from-uri", 'sip:1234 at dev.bkw.org');
+$e->addHeader("profile", 'external');
+
+$con->sendEvent($e);
More information about the Freeswitch-svn
mailing list