Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

apache_average_time_last_n_requests: ability to create multiple instances for distincts log files

Browse source
This commit is contained in:
Raphaël Droz 2016-01-08 13:27:56 -03:00
parent 65e4a94cea
commit 7e3664da84
1 changed files with 32 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
plugins/apache/apache_average_time_last_n_requests Executable file → Normal file
View file

@ -1,5 +1,6 @@
#!/usr/bin/perl -w #!/usr/bin/perl -w
# Author: Nicolas Mendoza <nicolasm@opera.com> - 2008-06-18 # Author: Nicolas Mendoza <nicolasm@opera.com> - 2008-06-18
# Raphaël Droz <raphael.droz@gmail.com> - 2016-01-08
# #
# Monitors the average time requests matching a custom regexp takes # Monitors the average time requests matching a custom regexp takes
# For instance monitor time execution of files in http://example.com/foo/bar, # For instance monitor time execution of files in http://example.com/foo/bar,
@ -19,13 +20,33 @@
# Configurable variables # Configurable variables
# fieldno - Override the default field number # fieldno - Override the default field number
# linecount - How many last request to consider # linecount - How many last request to consider
# Multiples instances for specific log files could be created by suffixing a configuration group.
# Eg: ln -s apache_average_time_last_n_requests apache_average_time_last_n_requests_vhost1
# Then:
# [apache_average_time_last_n_requests]
# logfile_vhost1 /var/log/apache/vhost1.log
#
#%# family=auto #%# family=auto
use strict; use strict;
$0 =~ /apache_average_time_last_n_requests_(.+)*$/;
my $name = $1;
my $LAST_N_REQUESTS = exists $ENV{'linecount'} ? $ENV{'linecount'} : 100000; # calculate based on this amount of requests my $LAST_N_REQUESTS = exists $ENV{'linecount'} ? $ENV{'linecount'} : 100000; # calculate based on this amount of requests
my $TIME_FIELD_INDEX = exists $ENV{'fieldno'} ? $ENV{'fieldno'} : -2; # second last field my $TIME_FIELD_INDEX = exists $ENV{'fieldno'} ? $ENV{'fieldno'} : -2; # second last field
my $ACCESS_LOG_PATTERN = '/var/log/apache2/access.log.*'; # log pattern, if many it will take the last one. my $ACCESS_LOG_PATTERN;
# log pattern, if globbing is used, it will take the last one.
if (! $name) {
$ACCESS_LOG_PATTERN = exists $ENV{'logfile'} ? $ENV{'logfile'} : '/var/log/apache2/access.log.*';
}
elsif (exists $ENV{'logfile_' . $name}) {
$ACCESS_LOG_PATTERN = $ENV{'logfile_' . $name};
}
else {
$ACCESS_LOG_PATTERN = '/var/log/apache2/access.log.*';
}
my $config =<< "CONFIG" my $config =<< "CONFIG"
graph_title Apache average seconds last $LAST_N_REQUESTS requests graph_title Apache average seconds last $LAST_N_REQUESTS requests
@ -65,12 +86,12 @@ my $types = {
my ($fields) = @_; my ($fields) = @_;
my $script; my $script;
($script = $fields->[6]) =~ s/\?.*\z //mx; ($script = $fields->[6]) =~ s/\?.*\z //mx;
return $script =~ m{ \.(png|jpe?g|jpg|gif|tiff|ilbm|tga) \z }mx; return $script =~ m{ \.(png|jpe?g|gif|tiff|ilbm|tga) \z }mx;
}, },
}, },
}; };
if (defined(@ARGV) && ($ARGV[0] eq 'config')) { if (@ARGV && $ARGV[0] eq 'config') {
print $config; print $config;
@ -88,16 +109,21 @@ chomp $config_file;
my @lines = `tail -n $LAST_N_REQUESTS "$config_file"`; my @lines = `tail -n $LAST_N_REQUESTS "$config_file"`;
FOO: {
foreach my $line (@lines) { foreach my $line (@lines) {
foreach my $type (keys %{$types}) { foreach my $type (keys %{$types}) {
my @fields = split /\s+/, $line; my @fields = split /\s+/, $line;
if ($types->{$type}->{'matches'}(\@fields)) { if ($types->{$type}->{'matches'}(\@fields)) {
if ($fields[$TIME_FIELD_INDEX] !~ m/^[0-9]+$/) {
last FOO;
}
$types->{$type}->{'sum'} += $fields[$TIME_FIELD_INDEX]; $types->{$type}->{'sum'} += $fields[$TIME_FIELD_INDEX];
$types->{$type}->{'lines'}++; $types->{$type}->{'lines'}++;
} }
} }
} }
}
foreach my $type (keys %{$types}) { foreach my $type (keys %{$types}) {
my $value = $types->{$type}->{'lines'} ? $types->{$type}->{'sum'} / $types->{$type}->{'lines'} : 'U'; my $value = $types->{$type}->{'lines'} ? $types->{$type}->{'sum'} / $types->{$type}->{'lines'} : 'U';
printf "%s.value %s\n", ($type, $value); printf "%s.value %s\n", ($type, $value);