2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
contrib-munin/plugins/yacy/yacy
2014-09-07 02:03:45 +02:00

164 lines
3.8 KiB
Perl
Executable File

#!/usr/bin/perl -w
# -*- perl -*-
#
# ==========================================================================
#
# YaCy Monitoring Plugin for Munin
# Copyright (C) 2010 Christophe Nowicki
#
# 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; either version 2
# of the License, or (at your option) any later version.
#
# 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.
#
# ==========================================================================
#
=head1 NAME
yacy - Munin plugin to monitor YaCy distributed search engine network.
=head1 APPLICABLE SYSTEMS
YaCy
=head1 CONFIGURATION
=head1 INTERPRETATION
The plugin shows various YaCy Network stats.
=head1 MAGIC MARKERS
#%# family=auto
#%# capabilities=autoconf suggest
=head1 BUGS
=head1 VERSION
$Id$
=head1 AUTHOR
Christophe 'CSCMEU' Nowicki <cscm dot csquad dot org>
=head1 LICENSE
GPLv2
=cut
BEGIN {
if(!eval "require XML::Smart;") {
die("XML::Smart not found");
}
if(!eval "require LWP;") {
die("LWP not found");
}
}
use XML::Smart;
use strict;
my $host = $ENV{'host'} || 'localhost';
$0 =~ /yacy_(.+)*$/;
my $action = $1;
# Autoconf
if ($ARGV[0] and $ARGV[0] eq "autoconf") {
print "yes\n";
exit;
}
# Suggest
if ($ARGV[0] and $ARGV[0] eq "suggest")
{
print <<EOF;
network_peers
network_documents
network_ppm
network_qpm
local_documents
local_ppm
local_qpm
EOF
exit 0;
}
die("PUDDI PUDDI PUDDI PUDDI PUDDI") unless ($action);
# Config
if ($ARGV[0] and $ARGV[0] eq "config")
{
my $titles = {
network_peers => 'YaCy Network Online Peers',
network_documents => 'YaCy Network Number of Documents',
network_ppm => 'YaCy Network Indexing Speed Pages Per Minutes',
network_qph => 'YaCy Network Query Frequency Queries Per Hour',
local_documents => 'YaCy Local Number of Documents',
local_ppm => 'YaCy Local Indexing Speed Pages Per Minutes',
local_qph => 'YaCy Local Query Frequency Queries Per Hour',
};
print <<EOF;
graph_title $titles->{$action}
graph_info $titles->{$action}
graph_category search
EOF
if ($action =~ /network_(peers|documents)/) {
print <<EOF;
active.label Active
passive.label Passive
potential.label Potential
EOF
} elsif($action =~ /local_documents$/) {
print "documents.label documents\n";
} elsif($action =~ /_ppm$/) {
print "ppm.label Pages Per Minute\n";
} elsif($action =~ /_qph$/) {
print "qph.label Pages Per Hour\n";
} else {
die("PUDDI PUDDI PUDDI PUDDI PUDDI");
}
exit 0;
}
my $xml = XML::Smart->new('http://' . $host . '/Network.xml') or die("PUDDI");
if ($action =~ /network_peers/) {
print <<EOF;
active.value $xml->{peers}{active}{count}
passive.value $xml->{peers}{passive}{count}
potential.value $xml->{peers}{potential}{count}
EOF
} elsif ($action =~ /network_documents/) {
print <<EOF;
active.value $xml->{peers}{active}{links}
passive.value $xml->{peers}{passive}{links}
potential.value $xml->{peers}{potential}{links}
EOF
} elsif ($action =~ /network_ppm/) {
print "ppm.value $xml->{peers}{cluster}{ppm}\n"
} elsif ($action =~ /local_ppm/) {
print "ppm.value $xml->{peers}{your}{ppm}\n"
} elsif ($action =~ /network_qph/) {
print "qph.value $xml->{peers}{cluster}{qph}\n"
} elsif ($action =~ /local_qph/) {
print "qph.value $xml->{peers}{your}{qph}\n"
} elsif ($action =~ /local_documents/) {
print "documents.value $xml->{peers}{your}{links}\n"
} else {
}
# vim:syntax=perl