164 lines
3.8 KiB
Perl
Executable File
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
|