kenmirrors
/
freeswitch
mirror of https://github.com/signalwire/freeswitch.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

FS-9509: [avmd] Add perl script subscribing to avmd events 

The script will subscribe to avmd events and output them to the console.
This commit is contained in:
Piotr Gregor 2016-09-13 21:46:13 +01:00
parent aee02a3041
commit 194a248522
1 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
src/mod/applications/mod_avmd/scripts/avmd_get_events.pl Normal file
View File

@ -0,0 +1,52 @@
#brief Subscribe to avmd events and print them to the console.
#author Piotr Gregor <piotrgregor@rsyncme.org>
#date 13 Sept 2016 09:44 PM
#!/usr/bin/perl
use strict;
use warnings;
require ESL;
my $host = "127.0.0.1";
my $port = "8021";
my $pass = "ClueCon";
my $format = "plain";
if ($#ARGV + 1 eq 1) {
$format = $ARGV[0];
print "Using format: [" .$format ."]\n";
}
my $con = new ESL::ESLconnection($host, $port, $pass);
if (!$con) {
die "Unable to establish connection to $host:$port\n";
}
if ($con->connected()) {
print "OK, Connected.\n";
} else {
die "Conenction failure.\n";
}
print "Subscribing to avmd events...\n";
$con->events("plain", "CUSTOM avmd::start");
$con->events("plain", "CUSTOM avmd::stop");
$con->events("plain", "CUSTOM avmd::beep");
print "Waiting for the events...\n";
while($con->connected()) {
my $e = $con->recvEvent();
my $avmd_event_type = "";
$avmd_event_type = $e->getHeader("Event-Subclass");
if ($avmd_event_type eq 'avmd::start') { # mark nicely the start of new session and event streak - most likely there will be other events from this session coming after this one
print "\n--------------------\n\n";
}
if ($e) {
my $body = $e->serialize($format);
print $body;
print "\n\n";
}
}
print "Disconnected.\n\n";