2
0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
contrib-munin/plugins/nginx/nginx_byprojects/byprojects_inout_bandwidth
Lars Kruse a836f07d56 nginx_byprojects: use more compatible perl expression
"%ENV{foo}" does not work with older perl versions (e.g. v5.14).
2018-03-08 23:17:40 +01:00

105 lines
3.5 KiB
Perl
Executable File

#!/usr/bin/perl -w
use strict;
use JSON qw(decode_json);
#
# byprojects_inout_bandwidth
#
# Perl script to monitor in/out bandwidth *byprojects* (e.g. vhost) from
# multiple files and/or regex.
#
# Danny Fullerton <northox@mantor.org>
# Mantor Organization <www.mantor.org>
# This work is licensed under a MIT license.
#
# You need logtail (https://www.fourmilab.ch/webtools/logtail/)
#
# Your nginx configuration should look like this (i.e. $request_length
# body_bytes_sent at the end):
# log_format main '$remote_addr - $remote_user $time_local "$request" '
# '$status $body_bytes_sent "$http_referer" '
# '"$http_user_agent" $request_length $body_bytes_sent';
#
# Log can be gathered from multiple sources by simply specifying multiple log
# filename or using wildcards (glob). File content can be selected using regex.
#
# - 'prod' => [ {'path' => '/home/prod/log/access.log'} ],
# Prod graph will be using everything in /home/prod/log/access.log
#
# - 'test' => [ {'path' => '/var/log/access.log', 'regex' => '"[A-Z]+ /test/'},
# {'path' => '/home/test/log/access*.log'} ],
# Test graph will be using everything file matching /home/test/log/access*.log
# and stuff that match the expression '"[A-Z] /test/' in /var/log/access.log
# such as '"GET /test/'
#
# Configuration
# [byprojects_*]
# env.logtail_path /usr/local/bin/logtail
# env.site.prod [{"path":"/home/prod/log/access.log"}]
# env.site.dev [{"path":"/var/log/httpd/ssl-dev-access.log"}, {"path":"/home/dev/log/access*.log"}]
# env.site.test [{"path":"/var/log/access.log","regex":"\"[A-Z]+ /test/"}, {"path":"/home/test/log/access.log"}]
my $server = 'Nginx';
my $statepath = $ENV{MUNIN_PLUGSTATE};
my $logtail = $ENV{logtail_path} || '/usr/local/bin/logtail';
my @loglist = grep {$_ =~ /site\./} keys(%ENV);
my %envLogs = $ENV{@loglist};
my %logs;
while(my($k, $v) = each %envLogs) { @logs{substr($k, 5)} = decode_json($v); }
###########
if(defined($ARGV[0])) {
if ($ARGV[0] eq 'autoconf') {
print "yes\n";
exit(0);
} elsif ($ARGV[0] eq 'config') {
print "graph_title $server in/out bandwidth byprojects\n";
print "graph_args --base 1000\n";
print "graph_vlabel bits per \${graph_period} in (-) / out (+)\n";
print "graph_category webserver\n";
print "graph_info This graph show $server in/out bandwidth used by various" .
" projects.\n";
while ((my $project, my @files) = each(%logs)) {
print "i".$project.".label $project\n";
print "i".$project.".type GAUGE\n";
print "i".$project.".graph no\n";
print "i".$project.".cdef i".$project.",8,*\n";
print "o".$project.".label $project\n";
print "o".$project.".type GAUGE\n";
print "o".$project.".negative i".$project."\n";
print "o".$project.".cdef o".$project.",8,*\n";
}
exit(0);
}
}
foreach my $project ( keys %logs ) {
my $i = 0;
my $o = 0;
my $x = 0;
foreach my $log ( @{$logs{$project}} ) {
my @paths = glob $log->{'path'};
foreach my $path (@paths) {
my $state = $statepath.'/'.$project.$x.'_inoutbandwidth.state';
open(LT, "$logtail -f ".$log->{'path'}." -o $state |") or
die "Can't open $logtail : $!";
while (<LT>) {
my $buf = $_;
if($buf eq '') { next }
if(!defined($log->{'regex'}) || $buf =~ m/$log->{'regex'}/) {
if($buf =~ m/(\d+) (\d+)$/) {
$i += $1;
$o += $2;
}
}
}
close(LT);
$x++;
}
}
print "i".$project.".value $i\n";
print "o".$project.".value $o\n";
}