<div dir="ltr"><span style="font-family:monospace,monospace;font-size:12.8000001907349px">my $con = new ESL::ESLconnection(&quot;localhost&quot;</span><span style="font-family:monospace,monospace;font-size:12.8000001907349px">, &quot;8021&quot;, &quot;ClueCon&quot;) || die $@;</span><br><div><span style="font-family:monospace,monospace;font-size:12.8000001907349px"><br></span></div><div><font face="monospace, monospace"><span style="font-size:12.8000001907349px">What distro are you using?</span></font></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Fri, Mar 13, 2015 at 8:06 PM, SamyGo <span dir="ltr">&lt;<a href="mailto:govoiper@gmail.com" target="_blank">govoiper@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Hi all,<div><br></div><div>I&#39;m feeling stupid for asking this question related to ESL. It has worked for me always but I&#39;ve a new installation where I&#39;ve compiled perl ESL library and when I try to make test scripts run they don&#39;t do anything at all.</div><div><br></div><div>The perl code accepts the ESL library, executes the ESLConnection() function but afterwards any command I send is not seen on the ESL socket !</div><div><br></div><div>Here is one of the test scripts from freeswitch source:</div><div><font face="monospace, monospace"><br></font></div><div><div><font face="monospace, monospace">#!/usr/bin/perl</font></div><div><font face="monospace, monospace">use lib &#39;/usr/src/freeswitch/libs/esl/perl&#39;;</font></div><div><font face="monospace, monospace">require ESL;</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">my $command = shift;</font></div><div><font face="monospace, monospace">my $args = join(&quot; &quot;, @ARGV);</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">my $con = new ESL::ESLconnection(&quot;localhost&quot;, &quot;8021&quot;, &quot;ClueCon&quot;);</font></div><div><font face="monospace, monospace">if (! $con) { die &quot;Unable to establish connection to $host:$port\n&quot;; }<br></font></div><div><font face="monospace, monospace">$con-&gt;events(&quot;plain&quot;,&quot;all&quot;);</font></div><div><font face="monospace, monospace">while ( $con-&gt;connected() ) {</font></div><div><font face="monospace, monospace">    my $e = $con-&gt;recvEventTimed(0);</font></div><div><font face="monospace, monospace">    print $e-&gt;serialize;</font></div><div><font face="monospace, monospace">}</font></div></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace"><br></font></div>It just doesn&#39;t go in the while() loop. No $con established but no error as well !<br><br>I tried &quot;telnet&quot; to the 8021 port and only then I see packets on port 8021.<br><br>I know that there is something fishy with the perl ESL compilation but that didn&#39;t gave any error either and created the required ESL.so w/o complaining !<br><br>Can anyone help me on figuring out what I&#39;ve missed ?<div><br></div><div>Best Regards,</div><div>Sammy</div><div><br><div><br></div></div></div>
<br>_________________________________________________________________________<br>
Professional FreeSWITCH Consulting Services:<br>
<a href="mailto:consulting@freeswitch.org">consulting@freeswitch.org</a><br>
<a href="http://www.freeswitchsolutions.com" target="_blank">http://www.freeswitchsolutions.com</a><br>
<br>
Official FreeSWITCH Sites<br>
<a href="http://www.freeswitch.org" target="_blank">http://www.freeswitch.org</a><br>
<a href="http://confluence.freeswitch.org" target="_blank">http://confluence.freeswitch.org</a><br>
<a href="http://www.cluecon.com" target="_blank">http://www.cluecon.com</a><br>
<br>
FreeSWITCH-users mailing list<br>
<a href="mailto:FreeSWITCH-users@lists.freeswitch.org">FreeSWITCH-users@lists.freeswitch.org</a><br>
<a href="http://lists.freeswitch.org/mailman/listinfo/freeswitch-users" target="_blank">http://lists.freeswitch.org/mailman/listinfo/freeswitch-users</a><br>
UNSUBSCRIBE:<a href="http://lists.freeswitch.org/mailman/options/freeswitch-users" target="_blank">http://lists.freeswitch.org/mailman/options/freeswitch-users</a><br>
<a href="http://www.freeswitch.org" target="_blank">http://www.freeswitch.org</a><br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr">







<p><font face="courier new, monospace"><b><i><font size="4">Brian West</font></i></b><br><span style="font-size:x-small"><a href="mailto:brian@freeswitch.org" target="_blank">brian@freeswitch.org</a></span></font></p>
<p><font size="1" face="courier new, monospace"><img src="http://billing.freeswitch.org/templates/default/img/whmcslogo.png"><br></font></p><p><font face="courier new, monospace"><b><i>Twitter: @FreeSWITCH , @briankwest</i></b><br><a href="http://www.freeswitchbook.com" target="_blank">http://www.freeswitchbook.com</a><br><a href="http://www.freeswitchcookbook.com" target="_blank">http://www.freeswitchcookbook.com</a></font></p>
<p><font face="courier new, monospace"><b>T:</b>+19184209001 | <b>F:</b>+19184209002 | <b>M:</b>+1918424WEST (9378)<br><b>iNUM:</b>+883 5100 1420 9001 | <b>ISN:</b>410*543 | <b>Skype:</b>briankwest</font></p></div></div>
</div>