<p dir="ltr">To get warnings in perl you have to use warnings library or -w flag</p>
<div class="gmail_quote">14 марта 2015 г. 9:51 пользователь "Bote Man" <<a href="mailto:bote_radio@botecomm.com">bote_radio@botecomm.com</a>> написал:<br type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div lang="EN-US" link="blue" vlink="purple"><div><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">I’m surprised that FS 1.2 would even compile with all those cobwebs </span><span style="font-size:11.0pt;font-family:Wingdings;color:#1f497d">J</span><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u><u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d">Bote<u></u><u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri","sans-serif";color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif"">From:</span></b><span style="font-size:10.0pt;font-family:"Tahoma","sans-serif""> SamyGo<br><b>Sent:</b> Friday, 13 March, 2015 23:00<br><b>To:</b> FreeSWITCH Users Help<br><b>Subject:</b> Re: [Freeswitch-users] Perl ESL not responding !<u></u><u></u></span></p><p class="MsoNormal"><u></u> <u></u></p><div><p class="MsoNormal">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.<u></u><u></u></p><div><p class="MsoNormal"><u></u> <u></u></p><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div></div></div><div><p class="MsoNormal"><u></u> <u></u></p><div><p class="MsoNormal">On Fri, Mar 13, 2015 at 10:56 PM, Anthony Minessale <<a href="mailto:anthony.minessale@gmail.com" target="_blank">anthony.minessale@gmail.com</a>> wrote:<u></u><u></u></p><p class="MsoNormal">Ubuntu 12 is the devil..<u></u><u></u></p><div><div><p class="MsoNormal"><img border="0" width="28" height="28" src="cid:image001.png@01D05DE8.8C886810" alt="😱"><br><br>On Friday, March 13, 2015, SamyGo <<a href="mailto:govoiper@gmail.com" target="_blank">govoiper@gmail.com</a>> wrote:<u></u><u></u></p><div><p class="MsoNormal">Brian, Im using Ubuntu 12.04 Precise Server. Should I change this ?<u></u><u></u></p><div><p class="MsoNormal"><u></u> <u></u></p><div><p class="MsoNormal">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.<u></u><u></u></p></div></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">So, again I compiled as per the mentioned github link and tried running everything over again , :( sadly no joy.<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div></div><div><p class="MsoNormal"><u></u> <u></u></p><div><p class="MsoNormal">On Fri, Mar 13, 2015 at 10:38 PM, Stanislav Sinyagin <<a href="mailto:ssinyagin@gmail.com" target="_blank">ssinyagin@gmail.com</a>> wrote:<u></u><u></u></p><p>$esl->connected() or die("Cannot connect to FreeSWITCH");<u></u><u></u></p><p>That's a more correct way to do that :)<u></u><u></u></p><div><p class="MsoNormal">On Mar 14, 2015 2:07 AM, "SamyGo" <<a href="mailto:govoiper@gmail.com" target="_blank">govoiper@gmail.com</a>> wrote:<u></u><u></u></p><div><div><div><p class="MsoNormal">Hi all,<u></u><u></u></p><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">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.<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">The perl code accepts the ESL library, executes the ESLConnection() function but afterwards any command I send is not seen on the ESL socket !<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Here is one of the test scripts from freeswitch source:<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><div><p class="MsoNormal"><span style="font-family:"Courier New"">#!/usr/bin/perl</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">use lib '/usr/src/freeswitch/libs/esl/perl';</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">require ESL;</span><u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">my $command = shift;</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">my $args = join(" ", @ARGV);</span><u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">if (! $con) { die "Unable to establish connection to $host:$port\n"; }</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">$con->events("plain","all");</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">while ( $con->connected() ) {</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> my $e = $con->recvEventTimed(0);</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New""> print $e->serialize;</span><u></u><u></u></p></div><div><p class="MsoNormal"><span style="font-family:"Courier New"">}</span><u></u><u></u></p></div></div><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div><p class="MsoNormal">It just doesn't go in the while() loop. No $con established but no error as well !<br><br>I tried "telnet" 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'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've missed ?<u></u><u></u></p><div><p class="MsoNormal"><u></u> <u></u></p></div><div><p class="MsoNormal">Best Regards,<u></u><u></u></p></div><div><p class="MsoNormal">Sammy<u></u><u></u></p></div><div><p class="MsoNormal"><u></u> <u></u></p></div></div></div></div></div></div></div></div></div></div><p class="MsoNormal"><u></u> <u></u></p></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>