Initial version

plugins/other/vnstat_month

@@ -0,0 +1,96 @@
+#!/usr/bin/env perl
+use 5.010;
+use strict;
+use warnings;
+use autodie;
+use List::Util 'sum';
+
+=head1 NAME
+
+vnstat_month - Run C<vnstat --dumpdb> and report usage this month
+
+=head1 SYNOPSIS
+
+Optionally, in In F</etc/munin/plugin-conf.d/munin-node>:
+
+    # Set the max bandwidth to 800 GB per month
+    [vnstat_month]
+    env.limittt 800000
+
+=head1 AUTHOR
+
+E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@cpan.org>
+
+=head1 LICENSE
+
+This program is in the public domain.
+
+=head1 MAGIC MARKERS
+
+  #%# family=auto
+
+=cut
+
+my $limittt = $ENV{limittt};
+
+given ($ARGV[0]) {
+    when ("config") {
+        print <<END;
+graph_title Total traffic this month
+graph_args --base 1000 --lower-limit 0
+graph_vlabel Monthly traffic
+graph_category network
+graph_info Total network traffic in bytes.
+totaltx.label Sent
+totaltx.info Total data sent.
+totaltx.cdef totaltx,1000000,*
+totalrx.label Received
+totalrx.info Total data received.
+totalrx.cdef totalrx,1000000,*
+totaltt.label Total
+totaltt.info Total data sent & received.
+totaltt.cdef totaltt,1000000,*
+END
+        if ($limittt) {
+            print <<END;
+limittt.label Limit
+limittt.info The data transfer limit for this month
+limittt.cdef limittt,1000000,*
+END
+        }
+    }
+    default {
+        my @days = get_daylines();
+        my @relevant = grep {
+            my ($this_month) = localtime =~ /^\S+ (\S+)\b/;
+            localtime($_->{time}) =~ /^\S+ $this_month\b/;
+        } @days;
+
+        my $rx = sum( map { $_->{rx_mib} } @relevant );
+        my $tx = sum( map { $_->{tx_mib} } @relevant );
+        my $tt = $rx + $tx;
+
+        print <<"END";
+totalrx.value $rx
+totaltx.value $tx
+totaltt.value $tt
+END
+        if ($limittt) {
+            print <<"END";
+limittt.value $limittt
+END
+        }
+    }
+}
+
+sub get_daylines {
+    open my $vnstat, "vnstat --dumpdb |";
+    my @lines;
+    while (my $line = <$vnstat>) {
+        chomp $line;
+        my $ns = qr/[^:]+/;
+        next unless $line =~ /^d;(?<day>$ns);(?<time>$ns);(?<rx_mib>$ns);(?<tx_mib>$ns);(?<rx_kib>$ns);(?<tx_kib>$ns);(?<in_use>$ns)$/;
+        push @lines => { %+ };
+    }
+    return @lines;
+}