forked from Mirrors/freeswitch
573e967638
git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@12111 d0543943-73ff-0310-b7d9-9358b9ac24b2
7 lines
173 B
Perl
7 lines
173 B
Perl
require ESL;
|
|
|
|
my $command = join(" ", @ARGV);
|
|
my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
|
my $e = $con->sendRecv("api $command");
|
|
print $e->getBody();
|