retronetworking
/
freeswitch
13
0
Fork 0
Code Pull Requests Releases Activity

oops remove the perl example inside here 

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12206 d0543943-73ff-0310-b7d9-9358b9ac24b2
This commit is contained in:
Brian West 2009-02-20 22:36:10 +00:00
parent 4a334536a2
commit bb52a206c2
1 changed files with 0 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
libs/esl/python/server.py
View File

@ -4,8 +4,6 @@ import SocketServer
import pickle
from ESL import *
#eslSetLogLevel(7)
class ESLRequestHandler(SocketServer.BaseRequestHandler ):
def setup(self):
print self.client_address, 'connected!'
@ -30,37 +28,3 @@ server = SocketServer.ThreadingTCPServer(('', 8040), ESLRequestHandler)
server.serve_forever()
#require ESL;
#use IO::Socket::INET;
#
#my $ip = "127.0.0.1";
#my $sock = new IO::Socket::INET ( LocalHost => $ip, LocalPort => '8040', Proto => 'tcp', Listen => 1, Reuse => 1 );
#die "Could not create socket: $!\n" unless $sock;
#
#for(;;) {
# my $new_sock = $sock->accept();
# my $pid = fork();
# if ($pid) {
# close($new_sock);
# next;
# }
#
# my $host = $new_sock->sockhost();
# my $fd = fileno($new_sock);
#
# my $con = new ESL::ESLconnection($fd);
# my $info = $con->getInfo();
#
# print $info->serialize();
#
# my $uuid = $info->getHeader("unique-id");
#
# $con->execute("answer", "", $uuid);
# $con->execute("playback", "/ram/swimp.raw", $uuid);
#
# close($new_sock);
#}