[Freeswitch-users] Perl ESL not responding !

[Bote Man]

I’m surprised that FS 1.2 would even compile with all those cobwebs J

 

Bote

 

 

From: SamyGo
Sent: Friday, 13 March, 2015 23:00
To: FreeSWITCH Users Help
Subject: Re: [Freeswitch-users] Perl ESL not responding !

 

Yup, couple years back it was the game, Im just doing the dist-upgrade to see what happens. So, thinking that Im using old version I also tried the v1.2.stable branch and same results.

 

 

 

 

On Fri, Mar 13, 2015 at 10:56 PM, Anthony Minessale <anthony.minessale at gmail.com> wrote:

Ubuntu 12 is the devil..

??

On Friday, March 13, 2015, SamyGo <govoiper at gmail.com> wrote:

Brian, Im using Ubuntu 12.04 Precise Server. Should I change this ?

 

Thanks Stanislav I'll try that dialler code as well..but yeah did the same Perl ESL installation. I did install the perl development libraries which are required for the esl perlmod.

 

So, again I compiled as per the mentioned github link and tried running everything over again , :( sadly no joy.

 

 

 

On Fri, Mar 13, 2015 at 10:38 PM, Stanislav Sinyagin <ssinyagin at gmail.com> wrote:

$esl->connected() or die("Cannot connect to FreeSWITCH");

That's a more correct way to do that :)

On Mar 14, 2015 2:07 AM, "SamyGo" <govoiper at gmail.com> wrote:

Hi all,

 

I'm feeling stupid for asking this question related to ESL. It has worked for me always but I've a new installation where I've compiled perl ESL library and when I try to make test scripts run they don't do anything at all.

 

The perl code accepts the ESL library, executes the ESLConnection() function but afterwards any command I send is not seen on the ESL socket !

 

Here is one of the test scripts from freeswitch source:

 

#!/usr/bin/perl

use lib '/usr/src/freeswitch/libs/esl/perl';

require ESL;

 

my $command = shift;

my $args = join(" ", @ARGV);

 

my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");

if (! $con) { die "Unable to establish connection to $host:$port\n"; }

$con->events("plain","all");

while ( $con->connected() ) {

    my $e = $con->recvEventTimed(0);

    print $e->serialize;

}

 

 

It just doesn't go in the while() loop. No $con established but no error as well !

I tried "telnet" to the 8021 port and only then I see packets on port 8021.

I know that there is something fishy with the perl ESL compilation but that didn't gave any error either and created the required ESL.so w/o complaining !

Can anyone help me on figuring out what I've missed ?

 

Best Regards,

Sammy

 

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.freeswitch.org/pipermail/freeswitch-users/attachments/20150313/5167eb5a/attachment-0001.html 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: image/png
Size: 1616 bytes
Desc: not available
Url : http://lists.freeswitch.org/pipermail/freeswitch-users/attachments/20150313/5167eb5a/attachment-0001.png