mirror of
https://github.com/signalwire/freeswitch.git
synced 2025-02-05 02:34:18 +00:00
10 lines
204 B
Perl
10 lines
204 B
Perl
#!/usr/bin/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();
|