2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
contrib-munin/plugins/jvm/jvm_sun_tenuredgcs
dipohl 8d9fe5bdde Category Tree: Reduce number of categories
java -> virtualization (jvm)
wuala -> backup (wuala)
games (game) -> games (quake)
2017-02-26 15:49:01 +01:00

93 lines
2.7 KiB
Perl
Executable File

#!/usr/bin/perl -w
# Sun JVM tenured GC statistics. Parses a verbose log of tenured GC
# stats. Reads the entire log file and sums time in seconds spent on
# GC and number of times it is performed. Thus we obtain counters.
# The counters are reset when the log is rotated. (note: the minorgcs
# plugin uses a state file, we did not make it a priority to use a
# state file in this plugin...)
# The two numbers are graphed in _one_ graph. Where it has been used
# until now these two numbers have been in the same order of
# magnitude.
# Configuration (common with the other sun_jvm_* plugins in this family):
# [jvm_sun_*]
# env.logfile /var/foo/java.log (default: /var/log/munin/java.log)
# env.graphtitle (default: "Sun Java")
# You need to configure your Sun JVM with these options:
# -verbose:gc
# -Xloggc:/var/log/app/jvm/gc.log
# -XX:+PrintGCTimeStamps
# -XX:+PrintGCDetails
# History:
# This plugin was developed by various people over some time - no logs
# of this has been found. - In 2006 significant contributions was
# financed by NRK (Norwegian Broadcasting Coproration) and performed
# by Nicolai Langfeldt of Linpro AS in Oslo, Norway.
# $Id: $
use strict;
use warnings;
# Full path to jvm log file
my $logfile = $ENV{logfile} || "/var/log/app/jvm/gc.log";
my $grtitle = $ENV{graphtitle} || 'Sun Java';
# Title that appears on munin graph
my $title = "$grtitle tenured GCs pr second";
# Extended information that appears below munin graph
my $info = "Amount is the number of Tenured GC pr. second.\nSeconds spent is the total time spent on those Tenured GCs.";
my $record = "";
my %elements;
# Print config information to munin server
if ( $ARGV[0] and $ARGV[0] eq "config" ) {
print "graph_title $grtitle tenured GCs pr minute\n";
print "graph_period minute\n";
print "graph_category virtualization\n";
print "graph_args --lower-limit 0\n";
print "graph_info $info\n";
print "activity.label Number of GCs\n";
print "activity.type DERIVE\n";
print "activity.min 0\n";
print "time.label Seconds spent on GCs\n";
print "time.type DERIVE\n";
print "time.min 0\n";
exit 0;
}
# Scan through the log file and keep the last instance of a
# Tenured record in $record.
open( FILE, "< $logfile" ) or die "Can't open $logfile : $!";
my $counter = 0;
my $record_time_spent;
my $time_spent;
while (<FILE>) {
chomp;
if (m/.+Tenured.+/) {
$record = $_;
} elsif (m/^:.+/) {
$record .= $_;
}
if ( $record =~ m/(\d+)\..+Tenured.+(\d+\.\d+) secs\]/ ) {
# print "Record: $record\n";
$record_time_spent = $2;
# print "Time spent: ",$record_time_spent,"\n";
$counter++;
$time_spent += $record_time_spent;
}
$record = "";
}
close FILE;
print "activity.value $counter\n";
print "time.value ",int($time_spent),"\n";