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@dev.bkw.org'); +$e->addHeader("from-uri", 'sip:1234@dev.bkw.org'); +$e->addHeader("profile", 'external'); + +$con->sendEvent($e);