Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-08-03 06:38:24 +00:00
Code Issues Releases Wiki Activity

organize asterisk plugins

Browse source 
untar asterisk-fax and move asterisk-multigraph-munin-plugin
This commit is contained in:
Kenyon Ralph 2012-04-24 01:43:47 -07:00
parent 05ce4b8d87
commit c33bbb90e5
53 changed files with 6292 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_call_dropped Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Dropped Calls (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Dropped Calls\n";
print "graph_category asterisk\n";
print "t38_dropped.draw AREA\n";
print "t38_dropped.label T.38 Dropped Calls\n";
print "g711_dropped.draw AREA\n";
print "g711_dropped.label G.711 Dropped Calls\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_dropped.value $faxstats{'Spandsp T.38'}{'Call Dropped'}\n";
print "g711_dropped.value $faxstats{'Spandsp G.711'}{'Call Dropped'}\n";
exit( 0 );

129
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_current_sessions Executable file
View file

@ -0,0 +1,129 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Current Sessions\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Current Sessions\n";
print "graph_category asterisk\n";
print "sessions.draw AREA\n";
print "sessions.label Current Sessions\n";
exit 0;
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
my $sessions = $faxstats{'FAX Statistics'}{'Current Sessions'};
print "sessions.value $sessions\n";
exit( 0 );

134
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_failed_completed Executable file
View file

@ -0,0 +1,134 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Failed and Completed Faxes\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Failed and Completed Faxes\n";
print "graph_category asterisk\n";
print "failed.draw AREA\n";
print "failed.label Failed faxes\n";
print "completed.draw AREA\n";
print "completed.label Completed faxes\n";
exit 0;
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
my $failed = $faxstats{'FAX Statistics'}{'Failed FAXes'};
my $completed = $faxstats{'FAX Statistics'}{'Completed FAXes'};
print "failed.value $failed\n";
print "completed.value $completed\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_file_error Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - File Errors (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of File Errors\n";
print "graph_category asterisk\n";
print "t38_file_error.draw AREA\n";
print "t38_file_error.label T.38 File Errors\n";
print "g711_file_error.draw AREA\n";
print "g711_file_error.label G.711 File Errors\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_file_error.value $faxstats{'Spandsp T.38'}{'File Error'}\n";
print "g711_file_error.value $faxstats{'Spandsp G.711'}{'File Error'}\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_memory_error Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Memory Errors (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Memory Errors\n";
print "graph_category asterisk\n";
print "t38_errors.draw AREA\n";
print "t38_errors.label T.38 Memory Errors\n";
print "g711_errors.draw AREA\n";
print "g711_errors.label G.711 Memory Errors\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_errors.value $faxstats{'Spandsp T.38'}{'Memory Error'}\n";
print "g711_errors.value $faxstats{'Spandsp G.711'}{'Memory Error'}\n";
exit( 0 );

133
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_negotiations_failed Executable file
View file

@ -0,0 +1,133 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Negotiations Failed (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Negotiations Failed\n";
print "graph_category asterisk\n";
print "t38_failed.draw AREA\n";
print "t38_failed.label T.38 Negotiations Failed\n";
print "g711_failed.draw AREA\n";
print "g711_failed.label G.711 Negotiations Failed\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
# Some idiot who wrote the SpanDSP code spelled "Negotiation" wrong.
print "t38_failed.value $faxstats{'Spandsp T.38'}{'Negotation Failed'}\n";
print "g711_failed.value $faxstats{'Spandsp G.711'}{'Negotation Failed'}\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_nofax Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - No Faxes (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of No Faxes\n";
print "graph_category asterisk\n";
print "t38_nofax.draw AREA\n";
print "t38_nofax.label No T.38 Faxes\n";
print "g711_nofax.draw AREA\n";
print "g711_nofax.label No G.711 Faxes\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_nofax.value $faxstats{'Spandsp T.38'}{'No FAX'}\n";
print "g711_nofax.value $faxstats{'Spandsp G.711'}{'No FAX'}\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_protocol_error Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Protocol Errors (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Protocol Errors\n";
print "graph_category asterisk\n";
print "t38_proterror.draw AREA\n";
print "t38_proterror.label T.38 Protocol Errors\n";
print "g711_proterror.draw AREA\n";
print "g711_proterror.label G.711 Protocol Errors\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_proterror.value $faxstats{'Spandsp T.38'}{'Protocol Error'}\n";
print "g711_proterror.value $faxstats{'Spandsp G.711'}{'Protocol Error'}\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_retries_exceeded Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Retries Exceeded (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Retries Exceeded\n";
print "graph_category asterisk\n";
print "t38_retries.draw AREA\n";
print "t38_retries.label T.38 Retries Exceeded\n";
print "g711_retries.draw AREA\n";
print "g711_retries.label G.711 Retries Exceeded\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_retries.value $faxstats{'Spandsp T.38'}{'Retries Exceeded'}\n";
print "g711_retries.value $faxstats{'Spandsp G.711'}{'Retries Exceeded'}\n";
exit( 0 );

138
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_rxtx_protocol_error Executable file
View file

@ -0,0 +1,138 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Rx and Tx Protocol Errors (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Protocol Errors\n";
print "graph_category asterisk\n";
print "t38_rx_proterror.draw AREA\n";
print "t38_rx_proterror.label T.38 Rx Protocol Errors\n";
print "t38_tx_proterror.draw AREA\n";
print "t38_tx_proterror.label T.38 Tx Protocol Errors\n";
print "g711_rx_proterror.draw AREA\n";
print "g711_rx_proterror.label G.711 Rx Protocol Errors\n";
print "g711_tx_proterror.draw AREA\n";
print "g711_tx_proterror.label G.711 Tx Protocol Errors\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_rx_proterror.value $faxstats{'Spandsp T.38'}{'RX Protocol Error'}\n";
print "t38_tx_proterror.value $faxstats{'Spandsp T.38'}{'TX Protocol Error'}\n";
print "g711_rx_proterror.value $faxstats{'Spandsp G.711'}{'RX Protocol Error'}\n";
print "g711_tx_proterror.value $faxstats{'Spandsp G.711'}{'TX Protocol Error'}\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_success Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Successful Faxes (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Successful Faxes\n";
print "graph_category asterisk\n";
print "t38_success.draw AREA\n";
print "t38_success.label Successful T.38 Faxes\n";
print "g711_success.draw AREA\n";
print "g711_success.label Successful G.711 Faxes\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_success.value $faxstats{'Spandsp T.38'}{'Success'}\n";
print "g711_success.value $faxstats{'Spandsp G.711'}{'Success'}\n";
exit( 0 );

130
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_switched2t38 Executable file
View file

@ -0,0 +1,130 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Switched to T.38\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Switches to T.38\n";
print "graph_category asterisk\n";
print "switched.draw AREA\n";
print "switched.label Switched to T.38\n";
exit 0;
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
my $switched = $faxstats{'Spandsp G.711'}{'Switched to T.38'};
print "switched.value $switched\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_train_failure Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Train Failures (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Train Failures\n";
print "graph_category asterisk\n";
print "t38_failure.draw AREA\n";
print "t38_failure.label T.38 Train Failures\n";
print "g711_failure.draw AREA\n";
print "g711_failure.label G.711 Train Failures\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_failure.value $faxstats{'Spandsp T.38'}{'Train Failure'}\n";
print "g711_failure.value $faxstats{'Spandsp G.711'}{'Train Failure'}\n";
exit( 0 );

134
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_txrx_attempts Executable file
View file

@ -0,0 +1,134 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Tx/Rx Attempts\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Tx and Rx Attempts\n";
print "graph_category asterisk\n";
print "transmit.draw AREA\n";
print "transmit.label Tx Attempts\n";
print "receive.draw AREA\n";
print "receive.label Rx Attempts\n";
exit 0;
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
my $txstats = $faxstats{'FAX Statistics'}{'Transmit Attempts'};
my $rxstats = $faxstats{'FAX Statistics'}{'Receive Attempts'};
print "transmit.value $txstats\n";
print "receive.value $rxstats\n";
exit( 0 );

132
plugins/asterisk/asterisk_18_fax_spandsp/asterisk_fax_unknown_error Executable file
View file

@ -0,0 +1,132 @@
#!/usr/bin/perl
=head1 NAME
asterisk_fax_* - Plugin to monitor Asterisk fax parameters.
=head1 SUPPORTED VERSION
This plugin supports Asterisk 1.8.* and the SpanDSP fax modules.
=head1 CONFIGURATION
The following configuration parameters are used by this plugin
[asterisk*]
env.host - hostname to connect to. Defaults to localhost.
env.port - port number to connect to. Defaults to 5038.
env.username - username used for authentication. No default value.
env.secret - secret used for authentication. No default value.
env.timeout - AMI timeout value in seconds. Defaults to 5.
The "username" and "secret" parameters are mandatory, and have no
defaults.
=head1 DEFAULT CONFIGURATION
[asterisk*]
env.username manager
env.secret insecure
env.host 127.0.0.1
env.port 5038
env.timeout 5
=head1 REQUIRED PERL MODULES
This plugin requires the Asterisk::AMI module and its dependencies.
Its dependencies can be found here:
http://deps.cpantesters.org/?module=Asterisk::AMI;perl=latest
=head1 AUTHOR
Copyright (C) 2011 Frank DiGennaro <fsd@voipbusiness.us>
=head1 LICENSE
Gnu GPLv2
=begin comment
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; version 2 dated June, 1991.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
USA.
If you improve this script please send your version to my email
address with the copyright notice upgrade with your name.
=end comment
=head1 MAGIC MARKERS
#%# family=contrib
=cut
use Carp;
use strict;
use Asterisk::AMI;
eval "use Asterisk::AMI";
print "Asterisk::AMI not found. Exiting...\n" if $@;
exit( 0 ) if $@;
if ( $ARGV[ 0 ] and $ARGV[ 0 ] eq "config" ) {
print "graph_title Asterisk Fax - Unknown Errors (T.38 and G.711)\n";
print "graph_args --base 1000 -l 0\n";
print "graph_vlabel Number of Unknown Errors\n";
print "graph_category asterisk\n";
print "t38_errors.draw AREA\n";
print "t38_errors.label T.38 Unknown Errors\n";
print "g711_errors.draw AREA\n";
print "g711_errors.label G.711 Unknown Errors\n";
exit ( 0 );
};
my $host = exists $ENV{ 'host' } ? $ENV{ 'host' } : "127.0.0.1";
my $port = exists $ENV{ 'port' } ? $ENV{ 'port' } : "5038";
my $timeout = exists $ENV{ 'timeout' } ? $ENV{ 'timeout' } : "5";
my $username = $ENV{ 'username' };
my $secret = $ENV{ 'secret' };
my $astman = Asterisk::AMI->new(PeerAddr => "$host",
PeerPort => "$port",
Username => "$username",
Secret => "$secret"
);
croak "Unable to connect to asterisk" unless ( $astman );
my $actionid = $astman->send_action({ Action => 'Command',
Command => 'fax show stats',
$timeout});
my $response = $astman->get_response( $actionid );
my $arrayref = $response->{CMD};
my $null = qq{};
my ( %faxstats, $section );
foreach my $line ( @$arrayref ) {
next if ( ( ! $line ) || ( $line =~ /-----------/ ) );
my ( $key, $value ) = split( ':', $line );
$section = $key if ( $value eq $null );
$key =~ s/\s+$//g;
$value =~ s/^\s+//g;
$faxstats{ "$section" }{ "$key" } = $value if ( $value ne $null );
};
$astman->disconnect;
print "t38_errors.value $faxstats{'Spandsp T.38'}{'Unknown Error'}\n";
print "g711_errors.value $faxstats{'Spandsp G.711'}{'Unknown Error'}\n";
exit( 0 );