Munin contributed plugins

#!/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";