63 lines
1.3 KiB
Perl
63 lines
1.3 KiB
Perl
require ESL;
|
|
use IO::Socket::INET;
|
|
|
|
#ESL::eslSetLogLevel(7);
|
|
|
|
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");
|
|
|
|
printf "Connected call %s, from %s\n", $uuid, $info->getHeader("caller-caller-id-number");
|
|
|
|
$e = $con->filter("unique-id", $uuid);
|
|
if ($e) {
|
|
print $e->serialize();
|
|
} else {
|
|
printf("WTF?\n");
|
|
}
|
|
|
|
$con->events("plain", "all");
|
|
|
|
|
|
#$con->sendRecv("myevents");
|
|
$con->execute("answer");
|
|
$con->execute("playback", "/ram/swimp.raw");
|
|
|
|
while($con->connected()) {
|
|
#my $e = $con->recvEventTimed(100);
|
|
my $e = $con->recvEvent();
|
|
|
|
if ($e) {
|
|
my $name = $e->getHeader("event-name");
|
|
print "EVENT [$name]\n";
|
|
if ($name eq "DTMF") {
|
|
my $digit = $e->getHeader("dtmf-digit");
|
|
my $duration = $e->getHeader("dtmf-duration");
|
|
print "DTMF digit $digit ($duration)\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
print "BYE\n";
|
|
close($new_sock);
|
|
}
|
|
|
|
|