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_minorgcs
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

131 lines
3.6 KiB
Perl
Executable File

#!/usr/bin/perl -w
# Sun JVM minor GC statistics. Parses a verbose log of minor GC
# stats. Reads the log file and sums time in seconds spent on GC and
# number of times it is performed. These numbers are saved in a state
# file. The next time the plugin is run it only reads from the point
# it quit the last time and increases the sums based on the lines
# found in the last portion of the log. Thus we obtain counters. The
# counters are reset when the log is rotated.
# 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")
# env.grname (default: "sun-jvm". Used for state file-name)
# 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;
my $logfile = $ENV{logfile} || "/var/log/app/jvm/gc.log";
my $grtitle = $ENV{graphtitle} || 'Sun Java';
my $grname = $ENV{graphtitle} || 'sun-jvm';
my $statefile = "/var/lib/munin/plugin-state/plugin-java_sun_${grname}_minorgcs.state";
my $pos = 0;
my $count = 0;
my $seconds = 0;
my $startsize;
my $timespent;
my $totaltimespent=0;
if ( $ARGV[0] and $ARGV[0] eq "config" ) {
print "graph_title $grtitle minor GCs pr minute\n";
print "graph_args --base 1000 -l 0 --rigid\n";
print "graph_scale no\n";
print "graph_category virtualization\n";
print "graph_period minute\n";
print "gcs.label Number of GCs\n";
print "gcs.type DERIVE\n";
print "gcs.min 0\n";
print "time.label Seconds spent on GC\n";
print "time.type DERIVE\n";
print "time.min 0\n";
exit 0;
}
if (-l $statefile) {
die("$statefile is a symbolic link, refusing to touch it.");
}
if (! -f $logfile) {
print "gcs.value U\n";
print "time.value U\n";
exit 0;
}
if (-f "$statefile") {
open (IN, "$statefile") or exit 4;
($pos,$count,$timespent) = split(/:/,<IN>);
close IN;
}
$startsize = (stat $logfile)[7];
if ($startsize < $pos) {
# Log rotated
$pos = 0;
}
($pos, $count, $timespent) = parseFile ($logfile, $pos, $count, $timespent);
print "gcs.value $count\n";
print "time.value ",int($timespent),"\n";
open (OUT, ">$statefile") or die "Could not open $statefile for reading: $!\n";
print OUT "$pos:$count:$timespent\n";
close OUT;
sub parseFile {
my ($fname, $start, $count, $timespent) = @_;
my @secs;
open (LOGFILE, $fname) or die "Could not open $fname: $!\n";
# Stat filehandle after open - avoids race with logrotater or
# restart or whatever.
my $stop = $startsize = (stat LOGFILE)[7];
if ($startsize < $start) {
# Log rotated
$start = 0;
}
seek (LOGFILE, $start, 0) or
die "Could not seek to $start in $fname: $!\n";
while (tell (LOGFILE) < $stop) {
my $line =<LOGFILE>;
chomp ($line);
# Log format: 35.037: [GC 35.038: [DefNew: 166209K->11364K(174080K), 0.2106410 secs] 175274K->26037K(1721472K), 0.2107680 secs]
if ($line =~ /\[GC.+ (\d+\.\d+) secs\]/) {
$count++;
$timespent += $1;
}
}
close(LOGFILE);
return($stop,$count,$timespent);
}
# vim:syntax=perl