freeswitch/libs/esl/perl/single_command.pl
2009-02-17 00:27:28 +00:00

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();