2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
contrib-munin/plugins/squeezebox/squeezebox_multi
2017-02-24 00:13:44 +01:00

227 lines
6.0 KiB
Perl
Executable File

#!/usr/bin/perl
=head1 NAME
squeezebox_ - plugin to monitor a Logitech Media Server and associated
players.
=head1 APPLICABLE SYSTEMS
Probably any system running Logitech Media Server. Change the host to
enable remote monitoring.
=head1 CONFIGURATION
No configuration should be required if run on the same server as
the Logitech Media Server. If the plugin is run from another unit or
in a non-default configuration, please use the environment variables
'squeezebox_host' and 'squeezebox_port' to connect.
Sample content for plugin-conf.d/ follows:
[squeezebox]
env.squeezecenter_host 192.168.100.10
env.squeezecenter_port 9095
=head1 INTERPRETATION
The "volume" graphs only graphs the player volume levels, not the
amplifier or whatever the player may be connected to.
=head1 MAGIC MARKERS
#%# family=auto
#%# capabilities=autoconf suggest
=head1 BUGS
None known
=head1 AUTHOR
Bjørn Ruberg
=head1 LICENSE
GPLv2
=cut
#%# family=auto
#%# capabilities=autoconf suggest
use strict;
my $ret = undef;
if (! eval "require Net::Telnet;") {
$ret = "Net::Telnet not found";
}
if (! eval "require URI::Escape;") {
$ret = "URI::Escape not found";
}
use vars qw ($host $port $config);
# Define connection settings, from plugin environment file or use defaults
my $host = exists $ENV{'squeezecenter_host'} ? $ENV{'squeezecenter_host'} : "127.0.0.1";
my $port = exists $ENV{'squeezecenter_port'} ? $ENV{'squeezecenter_port'} : "9090";
# Argument handling: autoconf, suggest, update, config
if (@ARGV) {
if ($ARGV[0] eq "autoconf") {
# autoconf for magically self-configuring the plugin
if ($ret) {
print "no ($ret)";
exit 0;
}
my $conn = new Net::Telnet (Telnetmode => 0);
$conn->open (Host => $host,
Port => $port,
Errmode => "return");
if ($conn->errmsg) {
print "no (No connection on $host port $port)";
exit 0;
} else {
my $version = "";
my $line = "";
$conn->print("version ?");
$conn->print("exit");
while (($line = $conn->getline) and ($line !~ /exit/)) {
$version = $line if $line =~ /version/;
}
if ($version =~ /^version/) {
print "yes";
exit 0;
} else {
print "no (socket responded but the server didn't respond as expected)";
exit 0;
}
}
} elsif ($ARGV[0] eq "suggest") {
print "I am a multigraph plugin, and suggest is not required\n";
exit 0;
} elsif ($ARGV[0] eq "update") {
# For scheduled inventory rescan, add this plugin to a cron job
# with the argument "update" Adjust the interval to your own tempo
# for adding/deleting music. This equals a "Look for new and
# changed media files" rescan from the webUI.
#
# example: 5 * * * * /usr/share/munin/plugins/squeezebox update
my $conn = new Net::Telnet (Telnetmode => 0);
$conn->open (Host => $host,
Port => $port,
Errmode => "return");
if ($conn->errmsg) {
print $conn->errmsg, "\n";;
exit 1;
} else {
$conn->print("rescan");
$conn->print("exit");
exit 0;
}
} elsif ($ARGV[0] eq "config") {
# Sets $config value for using in the main execution cycle
$config = 1;
}
}
# We're keeping the socket open for all checks
my $conn = new Net::Telnet (Telnetmode => 0);
$conn->open (Host => $host,
Port => $port);
use URI::Escape;
# use Encode qw (from_to);
use Text::Iconv;
my $converter = Text::Iconv->new("UTF-8", "LATIN1");
# $converted = $converter->convert("Text to convert");
# First all the simple readings
foreach my $attr qw (albums artists genres songs) {
$conn->print ("info total ${attr} ?");
my $line = uri_unescape($conn->getline);
if ($line =~ /^info total ${attr} (\d+)$/) {
my $number = $1;
print "multigraph squeezebox_${attr}\n";
if ($config) {
print "graph_title Number of ${attr}\n";
print "graph_scale no\n";
print "graph_category radio\n";
print "${attr}.label ${attr}\n";
} else {
print "${attr}.value $number\n";
}
}
}
# years
$conn->print ("years");
if (uri_unescape($conn->getline) =~ /^years\s+count:(\d+)/) {
my $no_of_years = $1;
$conn->print ("years 0 $no_of_years");
my @years = split (" ", uri_unescape($conn->getline));
print "multigraph squeezebox_years\n";
if ($config) {
# config run
print "graph_title Albums per year\n";
print "graph_category radio\n";
print "graph_args --base 1000 -l 0\n";
foreach my $year (@years) {
if ($year =~ /year\:(\d+)/) {
print "y" . $1 . ".label $1\n";
print "y" . $1 . ".draw AREASTACK\n";
}
}
} else {
# regular run
foreach my $year (@years) {
if ($year =~ /(year\:\d+)/) {
$conn->print ("albums 0 0 $1");
# albums 0 0 year:2007 count:13
my $line = uri_unescape ($conn->getline);
if ($line =~ /^.*year\:(\d+) count\:(\d+)$/) {
print "y${1}.value ${2}\n";
}
}
}
}
}
# mixer volume and signalstrength
foreach my $attr ("signalstrength", "mixer volume") {
# The plugin reports as squeezebox_volume while the command is
# "mixer volume".
(my $attr_print = $attr) =~ s/mixer //g;
print "multigraph squeezebox_${attr_print}\n";
if ($config) {
print "graph_title " . ucfirst ($attr) . "\n";
print "graph_category radio\n";
}
$conn->print ("player count ?");
(my $no_of_players = uri_unescape ($conn->getline)) =~ s/player count\s+//;
chomp $no_of_players;
my $id;
for ($id = 0; $id < $no_of_players; $id++) {
$conn->print ("player id ${id} ?");
(my $mac = uri_unescape ($conn->getline)) =~ s/player id \d+ //g;
chomp ($mac);
(my $mac_print = 'm' . $mac) =~ s/\://g;
if ($config) {
$conn->print ("player name ${mac} ?");
(my $name = uri_unescape ($conn->getline)) =~ s/player name ${mac} //g;
chomp $name;
print "${mac_print}.label ", $converter->convert($name), "\n";
} else {
$conn->print ("${mac} ${attr} ?");
(my $value = uri_unescape ($conn->getline)) =~ s/^.* //g;
chomp $value;
print "${mac_print}.value $value\n";
}
}
}