Re: [Freeswitch-users] Catch events from ESL socket

23 Apr 2013


      I have written script and it works great:

while (1){
    $con->sendRecv("log 7");
    $e =$con->bgapi("skypopen", "sk1 PING");
    while(1){
        $e = $con->recvEventTimed(100);
         if ($e and $e->getHeader("Content-type") eq "log/data" and
$e->getHeader("Log-File") eq "skypopen_protocol.c") {
            my $var = $e->getBody();
            if ($var =~ /PONG|sk1/){
                print "Skype alive!\n";
                last;
            }
         }
    }
    sleep(3);
}


2013/4/22 Anton Vojlenko <stargray@bigmir.net>
...
Michael, thank you. But with your code my script don't catch any messages
:(  When i run 'skypopen sk1 PING'
 command in fs_cli i get:
freeswitch@internal> skypopen sk1 PING
Using interface: globals.SKYPOPEN_INTERFACES[1].name=|||sk1|||
2013-04-22 10:24:37.605329 [DEBUG] skypopen_protocol.c:1767    [|]
[DEBUG_SKYPE  1767 ][sk1            ][IDLE,IDLE] SENDING: |||PING||||
2013-04-22 10:24:37.605329 [DEBUG] skypopen_protocol.c:207     [|]
[DEBUG_SKYPE  207  ][sk1            ][IDLE,IDLE] READING: |||PONG|||
and i need catch only this output over perl script. With this script i
want check skype interfaces status.
2013/4/19 Michael Collins <msc@freeswitch.org>
...
while($con->connected() && $running) {
    $e = $con->recvEventTimed(100);
    if ($e and $e->getHeader("content-type") eq "log/data") {
    #print $e->getBody();
      my $var = $e->getBody();
      if ( $var =~ m/skypopen sk1 PING/ ) {
        # Do something...
      }
    }
}
On Fri, Apr 19, 2013 at 12:54 PM, Anton Vojlenko <stargray@bigmir.net>wrote:
...
I know about this, but i need catch only 'skypopen sk1 PING' command
messages.
2013/4/19 Michael Collins <msc@freeswitch.org>
...
You can infer what to do by looking in src/libs/esl/perl/logger.pl...
Specifically these lines:
$e = $con->sendRecv("log 7");
print STDERR $e->getBody() . "\n" if ($e);
while($con->connected() && $running) {
    $e = $con->recvEventTimed(100);
    if ($e and $e->getHeader("content-type") eq "log/data") {
    print $e->getBody();
    }
}
-MC
On Fri, Apr 19, 2013 at 12:29 AM, Anton Vojlenko <stargray@bigmir.net>wrote:
...
If i need catch logs, how can i do that with ESL?
2013/4/18 Dmitry Lysenko <dvl36.ripe.nick@gmail.com>
...
Logs for humans, but events api for programs. )
But seriously, this is different entities at all.
2013/4/18 Anton Vojlenko <stargray@bigmir.net>
> Hmm, can you explain difference between logs and events?
>
>
> 2013/4/18 João Mesquita <jmesquita@freeswitch.org>
>
>> Let me get this straight, these are logs, not events... Correct?
>> You want to parse logs with ESL? That's possible as well, but just want to
>> make sure that's you want. I am not familiar with skypopen to know this
>> much but I can help you with ESL.
>>
>>
>> João Mesquita
>> FreeSWITCH™ Solutions
>>
>>
>> On Thu, Apr 18, 2013 at 11:12 AM, Anton Vojlenko <
>> stargray@bigmir.net> wrote:
>>
>>> Thank for you explanation. I need catch this output:
>>> 2013-04-18 16:22:11.045518 [DEBUG] skypopen_protocol.c:1767    [|]
>>> [DEBUG_SKYPE  1767 ][sk1            ][IDLE,IDLE] SENDING: |||PING||||
>>>  2013-04-18 16:22:11.045518 [DEBUG] skypopen_protocol.c:207
>>> [|] [DEBUG_SKYPE  207  ][sk1            ][IDLE,IDLE] READING: |||PONG|||
>>> But sometimes in array i see this:
>>> 2013-04-18 16:22:13.025304 [DEBUG] skypopen_protocol.c:734     [|]
>>> [DEBUG_SKYPE  734  ][sk1            ][IDLE,IDLE] NO ACTIVE calls in this
>>> moment, skype_call 1347 is RINGING, to ask PARTNER_DISPNAME and
>>> PARTNER_HANDLE
>>>  2013-04-18 16:22:13.025304 [DEBUG] skypopen_protocol.c:1767
>>> [|] [DEBUG_SKYPE  1767 ][sk1            ][IDLE,IDLE] SENDING: |||GET CALL
>>> 1347 PARTNER_DISPNAME||||
>>>
>>> Can you explain how to catch only command output?
>>>
>>>
>>>
>>> 2013/4/18 João Mesquita <jmesquita@freeswitch.org>
>>>
>>>> Recveventtimed might return null if an event does not arrive in
>>>> those ms time. Make sure to use recvevent only if you don't want that.
>>>>
>>>> Sent from my iPhone
>>>>
>>>> On Apr 18, 2013, at 4:14 AM, Anton Vojlenko <stargray@bigmir.net>
>>>> wrote:
>>>>
>>>> > Hello,
>>>> > I am using skypopen module and i need catch API answers from
>>>> skype client. I wrote simple perl script:
>>>> >
>>>> > require ESL;
>>>> > my $con = new ESL::ESLconnection("localhost", "8021",
>>>> "ClueCon");
>>>> > while (1){
>>>> >     $con->sendRecv("log 7");
>>>> >     $e = $con->bgapi("skypopen sk1 PING");
>>>> >     #$uuid = $e->getHeader("Job-UUID");
>>>> >     #print $e->serialize("plain");
>>>> >     $n = 2;
>>>> >     while($n){
>>>> >         $event = $con->recvEventTimed(100);
>>>> >         if ($event and $event->getHeader("Log-File") eq
>>>> "skypopen_protocol.c") {
>>>> >             push(@dmesg, $event->getBody());
>>>> >
>>>> >         }
>>>> >         $n--;
>>>> >     }
>>>> >         print "@dmesg\n";
>>>> >     sleep(3);
>>>> >     @dmesg = ();
>>>> > }
>>>> >
>>>> > But sometimes I get empty array, because script catch differect
>>>> events. How to catch events from ESL socket by UUID?
>>>> >
>>>> _________________________________________________________________________
>>>> > Professional FreeSWITCH Consulting Services:
>>>> > consulting@freeswitch.org
>>>> > http://www.freeswitchsolutions.com
>>>> >
>>>> > FreeSWITCH-powered IP PBX: The CudaTel Communication Server
>>>> > http://www.cudatel.com
>>>> >
>>>> > Official FreeSWITCH Sites
>>>> > http://www.freeswitch.org
>>>> > http://wiki.freeswitch.org
>>>> > http://www.cluecon.com
>>>> >
>>>> > FreeSWITCH-users mailing list
>>>> > FreeSWITCH-users@lists.freeswitch.org
>>>> > http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
>>>> > UNSUBSCRIBE:
>>>> http://lists.freeswitch.org/mailman/options/freeswitch-users
>>>> > http://www.freeswitch.org
>>>>
>>>>
>>>> _________________________________________________________________________
>>>> Professional FreeSWITCH Consulting Services:
>>>> consulting@freeswitch.org
>>>> http://www.freeswitchsolutions.com
>>>>
>>>> FreeSWITCH-powered IP PBX: The CudaTel Communication Server
>>>> http://www.cudatel.com
>>>>
>>>> Official FreeSWITCH Sites
>>>> http://www.freeswitch.org
>>>> http://wiki.freeswitch.org
>>>> http://www.cluecon.com
>>>>
>>>> FreeSWITCH-users mailing list
>>>> FreeSWITCH-users@lists.freeswitch.org
>>>> http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
>>>> UNSUBSCRIBE:
>>>> http://lists.freeswitch.org/mailman/options/freeswitch-users
>>>> http://www.freeswitch.org
>>>>
>>>
>>>
>>>
>>> _________________________________________________________________________
>>> Professional FreeSWITCH Consulting Services:
>>> consulting@freeswitch.org
>>> http://www.freeswitchsolutions.com
>>>
>>> FreeSWITCH-powered IP PBX: The CudaTel Communication Server
>>> http://www.cudatel.com
>>>
>>> Official FreeSWITCH Sites
>>> http://www.freeswitch.org
>>> http://wiki.freeswitch.org
>>> http://www.cluecon.com
>>>
>>> FreeSWITCH-users mailing list
>>> FreeSWITCH-users@lists.freeswitch.org
>>> http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
>>> UNSUBSCRIBE:
>>> http://lists.freeswitch.org/mailman/options/freeswitch-users
>>> http://www.freeswitch.org
>>>
>>>
>>
>>
>> _________________________________________________________________________
>> Professional FreeSWITCH Consulting Services:
>> consulting@freeswitch.org
>> http://www.freeswitchsolutions.com
>>
>> FreeSWITCH-powered IP PBX: The CudaTel Communication Server
>> http://www.cudatel.com
>>
>> Official FreeSWITCH Sites
>> http://www.freeswitch.org
>> http://wiki.freeswitch.org
>> http://www.cluecon.com
>>
>> FreeSWITCH-users mailing list
>> FreeSWITCH-users@lists.freeswitch.org
>> http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
>> UNSUBSCRIBE:
>> http://lists.freeswitch.org/mailman/options/freeswitch-users
>> http://www.freeswitch.org
>>
>>
>
>
> _________________________________________________________________________
> Professional FreeSWITCH Consulting Services:
> consulting@freeswitch.org
> http://www.freeswitchsolutions.com
>
> FreeSWITCH-powered IP PBX: The CudaTel Communication Server
> http://www.cudatel.com
>
> Official FreeSWITCH Sites
> http://www.freeswitch.org
> http://wiki.freeswitch.org
> http://www.cluecon.com
>
> FreeSWITCH-users mailing list
> FreeSWITCH-users@lists.freeswitch.org
> http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
> UNSUBSCRIBE:
> http://lists.freeswitch.org/mailman/options/freeswitch-users
> http://www.freeswitch.org
>
>
_________________________________________________________________________
Professional FreeSWITCH Consulting Services:
consulting@freeswitch.org
http://www.freeswitchsolutions.com
FreeSWITCH-powered IP PBX: The CudaTel Communication Server
http://www.cudatel.com
Official FreeSWITCH Sites
http://www.freeswitch.org
http://wiki.freeswitch.org
http://www.cluecon.com
FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:
http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org
_________________________________________________________________________
Professional FreeSWITCH Consulting Services:
consulting@freeswitch.org
http://www.freeswitchsolutions.com
FreeSWITCH-powered IP PBX: The CudaTel Communication Server
http://www.cudatel.com
Official FreeSWITCH Sites
http://www.freeswitch.org
http://wiki.freeswitch.org
http://www.cluecon.com
FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:
http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org
--
Michael S Collins
Twitter: @mercutioviz
http://www.FreeSWITCH.org
http://www.ClueCon.com
http://www.OSTAG.org
_________________________________________________________________________
Professional FreeSWITCH Consulting Services:
consulting@freeswitch.org
http://www.freeswitchsolutions.com
FreeSWITCH-powered IP PBX: The CudaTel Communication Server
http://www.cudatel.com
Official FreeSWITCH Sites
http://www.freeswitch.org
http://wiki.freeswitch.org
http://www.cluecon.com
FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:
http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org
_________________________________________________________________________
Professional FreeSWITCH Consulting Services:
consulting@freeswitch.org
http://www.freeswitchsolutions.com
FreeSWITCH-powered IP PBX: The CudaTel Communication Server
http://www.cudatel.com
Official FreeSWITCH Sites
http://www.freeswitch.org
http://wiki.freeswitch.org
http://www.cluecon.com
FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org
--
Michael S Collins
Twitter: @mercutioviz
http://www.FreeSWITCH.org
http://www.ClueCon.com
http://www.OSTAG.org
_________________________________________________________________________
Professional FreeSWITCH Consulting Services:
consulting@freeswitch.org
http://www.freeswitchsolutions.com
FreeSWITCH-powered IP PBX: The CudaTel Communication Server
http://www.cudatel.com
Official FreeSWITCH Sites
http://www.freeswitch.org
http://wiki.freeswitch.org
http://www.cluecon.com
FreeSWITCH-users mailing list
FreeSWITCH-users@lists.freeswitch.org
http://lists.freeswitch.org/mailman/listinfo/freeswitch-users
UNSUBSCRIBE:http://lists.freeswitch.org/mailman/options/freeswitch-users
http://www.freeswitch.org