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