1
0
mirror of https://github.com/signalwire/freeswitch.git synced 2025-03-28 09:36:52 +00:00
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();