Hi all,<br>Is my understanding is right??. If so, is it possible to run applications in A leg...<br><br><br><div class="gmail_quote">On Mon, Dec 6, 2010 at 12:19 PM, lakshmanan ganapathy <span dir="ltr">&lt;<a href="mailto:lakindia89@gmail.com">lakindia89@gmail.com</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Hi all,<br>I was experimenting the bind_mea_app and I have a doubt.<br>There is a call from 1000 to FreeSwitch extension and it is connecting to event outbound socket.<br>
I&#39;ve the following script in place.<br><br>#!/usr/bin/perl<br>
use strict;<br>use warnings;<br>use Data::Dumper;<br>use lib &#39;/usr/src/freeswitch/libs/esl/perl/&#39;;<br>use IO::Socket::INET;<br>use ESL;<br><br>my $SOCK = new IO::Socket::INET ( LocalHost =&gt; &#39;localhost&#39;,  LocalPort =&gt; &#39;8447&#39;,  Proto =&gt; &#39;tcp&#39;,  Listen =&gt; 10,  Reuse =&gt; 1 );<br>

unless ($SOCK)  {<br>                print(&quot;Could not create socket: $!&quot;);<br>                exit(2);<br>}<br><br>while (1)  {<br>                # Wait for any client through accept function in socket module.<br>

                my $new_sock = $SOCK-&gt;accept();<br>                next if (not defined($new_sock));<br>                # Get socket host <br>                my $host = $new_sock-&gt;sockhost();<br>                print(&quot;Got a client accepted from $host\n&quot;);<br>

                my $pid = fork();<br>                if ($pid) {<br>                                close($new_sock);<br>                                next;<br>                }<br>                my $fd = fileno($new_sock);<br>

                print(&quot;Newly forked child, pid: $$\n&quot;);<br>                my $EslCon = new ESL::ESLconnection($fd);<br>                print &quot;Connection created successfully\n&quot;;<br>                my $info = $EslCon-&gt;getInfo();<br>

                $EslCon-&gt;setEventLock(&quot;true&quot;);<br>                my $uuid = $info-&gt;getHeader(&quot;unique-id&quot;);<br>                print Dumper $info-&gt;serialize();<br>                $EslCon-&gt;execute(&quot;set&quot;,&quot;bind_meta_key=#&quot;);<br>

                $EslCon-&gt;execute(&quot;bind_meta_app&quot;,&quot;1 b o event::appli=testing&quot;);<br>                my $api = $EslCon-&gt;execute(&quot;bridge&quot;,&quot;{ignore_early_media=true}freetdm/1/a/xxxxxxxxx&quot;);<br>

}<br><br>The script called to the number that was dialed. In that number I pressed #1, but the event was not sent,<br>and I assume that the bridge application is executing in the A leg ( is it correct?? ) . So only after that bridge application gets completed the event gets triggered out.<br>

<br>If I execute the application in the B leg, then it is working fine, since there is no application that is running at that time.<br>Now I wanted to know if there is any way to run the application on A leg, I need that application to be executed even the bridge is not completed.<br>

<br>
</blockquote></div><br>