hobbit-plugins 20141201 / usr / lib / xymon / client / ext / entropy

#!/usr/bin/perl

# A Hobbit client-side module to check the available kernel entropy.

# Copyright (C) 2008 Christoph Berg <myon@debian.org>
#
# Permission is hereby granted, free of charge, to any person
# obtaining a copy of this software and associated documentation
# files (the "Software"), to deal in the Software without
# restriction, including without limitation the rights to use,
# copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the
# Software is furnished to do so, subject to the following
# conditions:
#
# The above copyright notice and this permission notice shall be
# included in all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
# EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
# OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
# NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
# HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
# WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
# OTHER DEALINGS IN THE SOFTWARE.

use warnings;
use strict;
use Hobbit;

my $loop = 10; # sample this many counts
my $delay = 2; # sleep 2s before each sample

my $bb = new Hobbit('entropy');
my $entropy = 0;

for (1 .. $loop) {
	sleep $delay;
	open(F, '<', '/proc/sys/kernel/random/entropy_avail') or exit;
	$entropy += <F>;
	chomp $entropy;
	close F;
}
$entropy = sprintf "%d", $entropy / $loop;

$bb->print ("Kernel entropy pool\n\n");
if ($entropy >= 200) {
	$bb->color_line ('green', "$entropy bits available - ok\n\n");
} elsif ($entropy >= 100) {
	$bb->color_line ('yellow', "$entropy bits available - low\n\n");
} else {
	$bb->color_line ('red', "$entropy bits available - very low\n\n");
}
$bb->print ("entropy : $entropy\n");

$bb->send;