you would have to register signals in your child process too<br><br><div class="gmail_quote">On Wed, Jan 13, 2010 at 3:13 AM, lakshmanan ganapathy <span dir="ltr"><<a href="mailto:lakindia89@gmail.com">lakindia89@gmail.com</a>></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><br>I've done a sample program (In perl ESL) , which play a file to the caller and then it will call recvEvent() and print the event name. I've handled signals also.<br>
<br>When I send SIGINT to my program (Perl), the signal handler is called and I can see the print output. But in the same time, I received SERVER_DISCONNECTED from freeswitch as event.<br>
<br>I don't know why I received SERVER_DISCONNECTED from freeswitch. Is it because, the recvEvent() from perl internally calls the recvevent function in the Esl.c and when it waits to receive the information from socket, the signal occurred???<br>
<br>Please clarify me!! <br><br>Here is my program<br>require ESL;<br>use IO::Socket::INET;<br>use Data::Dumper;<br><br>my $ip = "192.168.1.222";<br>my $sock = new IO::Socket::INET ( LocalHost => $ip, LocalPort => '8447', Proto => 'tcp', Listen => 1, Reuse => 1 );<br>
die "Could not create socket: $!\n" unless $sock;<br>&register_Signals();<br><br>for(;;) {<br> my $new_sock = $sock->accept();<br> next if (not defined ($new_sock));<br> my $pid = fork();<br> if ($pid) {<br>
close($new_sock);<br> next;<br> }<br> print "CHILD PID: $$\n";<br> my $host = $new_sock->sockhost();<br> my $fd = fileno($new_sock);<br><br> my $con = new ESL::ESLconnection($fd);<br>
my $info = $con->getInfo();<br><br> my $uuid = $info->getHeader("unique-id");<br><br> printf "Connected call %s, from %s\n", $uuid, $info->getHeader("caller-caller-id-number");<br>
my $r=$con->execute("answer");<br> print Dumper $r;<br> $con->events("plain","all");<br> my $re=$con->execute("playback","/usr/local/freeswitch1/sounds/en/us/callie/ivr/8000/ivr-welcome_to_freeswitch.wav");<br>
<br> while($con->connected()) {<br> my $e = $con->recvEvent();<br><br> if ($e) {<br> my $name = $e->getHeader("event-name");<br> print "EVENT [$name]\n";<br>
if ($name eq "DTMF") {<br> my $digit = $e->getHeader("dtmf-digit");<br> print "$digit\n";<br> }<br> }<br> }<br> close($new_sock);<br>
}<br>sub register_Signals() {<br> foreach ( keys %SIG ) {<br> $SIG{$_} = 'sig_Handler';<br> }<br>}<br><br>sub sig_Handler() {<br> my $handle=$_[0];<br> if($handle eq "INT") {<br> print "$$: SIGNAL SIG$handle is generated\n";<br>
}<br>}<br><br>
<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>
<br></blockquote></div><br><br clear="all"><br>-- <br>Anthony Minessale II<br><br>FreeSWITCH <a href="http://www.freeswitch.org/">http://www.freeswitch.org/</a><br>ClueCon <a href="http://www.cluecon.com/">http://www.cluecon.com/</a><br>
Twitter: <a href="http://twitter.com/FreeSWITCH_wire">http://twitter.com/FreeSWITCH_wire</a><br><br>AIM: anthm<br><a href="mailto:MSN%3Aanthony_minessale@hotmail.com">MSN:anthony_minessale@hotmail.com</a><br>GTALK/JABBER/<a href="mailto:PAYPAL%3Aanthony.minessale@gmail.com">PAYPAL:anthony.minessale@gmail.com</a><br>
IRC: <a href="http://irc.freenode.net">irc.freenode.net</a> #freeswitch<br><br>FreeSWITCH Developer Conference<br><a href="mailto:sip%3A888@conference.freeswitch.org">sip:888@conference.freeswitch.org</a><br><a href="http://iax:guest@conference.freeswitch.org/888">iax:guest@conference.freeswitch.org/888</a><br>
<a href="mailto:googletalk%3Aconf%2B888@conference.freeswitch.org">googletalk:conf+888@conference.freeswitch.org</a><br>pstn:+19193869900<br>