2
0

info.pl 389 B

123456789101112131415
  1. #!/usr/bin/perl
  2. require ESL;
  3. my $con = ESL::ESLconnection->new("localhost", "8021", "ClueCon");
  4. my $e = ESL::ESLevent->new("SEND_INFO");
  5. #my $e = $con->sendEvent("MESSAGE_WAITING");
  6. $e->addHeader("Content-Type", "text/xml");
  7. $e->addHeader("to-uri", 'sip:1002@dev.bkw.org');
  8. $e->addHeader("from-uri", 'sip:1234@dev.bkw.org');
  9. $e->addHeader("profile", 'external');
  10. $con->sendEvent($e);