#!/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 = " sip:1000@\192.168.1.113 sip:9999\@192.168.1.113 doNotPrompt "; $e->addBody($body); $con->sendEvent($e);