forked from Mirrors/freeswitch
13 lines
270 B
Perl
Executable File
13 lines
270 B
Perl
Executable File
#!/usr/bin/perl
|
|
require ESL;
|
|
|
|
my $command = shift;
|
|
my $args = join(" ", @ARGV);
|
|
|
|
my $con = new ESL::ESLconnection("localhost", "8021", "ClueCon");
|
|
$con->events("plain","all");
|
|
while ( $con->connected() ) {
|
|
my $e = $con->recvEventTimed(0);
|
|
print $e->serialize;
|
|
}
|