[Freeswitch-users] Sending NOTIFY with perl ESL

[Vallimamod ABDULLAH]

Hello List,

I am trying to change BLF lamps status by sending PRESENCE_IN event via perl ESL. My event is sent correctly but corresponding notify always have an empty <dialog-info> wether Answer-State is confirmed or early.

My script is like this:

my $e = ESL::ESLevent->new("PRESENCE_IN");
$e->addHeader("proto", "sip");
$e->addHeader("from", "51 at 10.0.0.1");
$e->addHeader("login", "51 at 10.0.0.1");
$e->addHeader("event_type", "presence");
$e->addHeader("alt_event_type", "dialog");
$e->addHeader("event_count", "1");
$e->addHeader("Presence-Call-Direction", "outbound");
$e->addHeader("Answer-State", "early");
$con->sendEvent($e);


The corresponding ESL event as received by freeswitch is:

sendevent PRESENCE_IN
Event-Name: PRESENCE_IN
proto: sip
from: 51 at 10.0.0.1
login: 51 at 10.0.0.1
event_type: presence
alt_event_type: dialog
event_count: 1
Presence-Call-Direction: outbound
Answer-State: early

But the SIP NOTIFY sent to the subscribers is: 

<?xml version="1.0"?>
<dialog-info xmlns="urn:ietf:params:xml:ns:dialog-info" version="563" state="partial" entity="sip:51 at 10.0.0.1">
</dialog-info>

i.e. it does not contain any <dialog> tag. Is there something wrong with my script ?

Thank you!

-- 
Best Regards,
- vma
.