forked from Mirrors/freeswitch
7e9db269dd
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12724 d0543943-73ff-0310-b7d9-9358b9ac24b2
22 lines
338 B
Perl
Executable File
22 lines
338 B
Perl
Executable File
#!/usr/bin/perl
|
|
require ESL;
|
|
use Data::Dumper;
|
|
|
|
my $fd = fileno(STDIN);
|
|
my $con = new ESL::ESLconnection($fd);
|
|
my $info = $con->getInfo();
|
|
|
|
select STDERR;
|
|
|
|
print $info->serialize();
|
|
|
|
my $uuid = $info->getHeader("unique-id");
|
|
|
|
$con->execute("answer", "", $uuid);
|
|
$con->execute("playback", "/ram/swimp.raw", $uuid);
|
|
|
|
|
|
$con->disconnect();
|
|
|
|
|