mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-02-10 18:57:45 +00:00
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();
|