93 lines
2.7 KiB
Perl
Executable File
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";
|