mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-03-13 12:40:17 +00:00
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:
parent
4a334536a2
commit
bb52a206c2
@ -4,8 +4,6 @@ import SocketServer
|
|||||||
import pickle
|
import pickle
|
||||||
from ESL import *
|
from ESL import *
|
||||||
|
|
||||||
#eslSetLogLevel(7)
|
|
||||||
|
|
||||||
class ESLRequestHandler(SocketServer.BaseRequestHandler ):
|
class ESLRequestHandler(SocketServer.BaseRequestHandler ):
|
||||||
def setup(self):
|
def setup(self):
|
||||||
print self.client_address, 'connected!'
|
print self.client_address, 'connected!'
|
||||||
@ -30,37 +28,3 @@ server = SocketServer.ThreadingTCPServer(('', 8040), ESLRequestHandler)
|
|||||||
server.serve_forever()
|
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);
|
|
||||||
#}
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user