From fefa87ebf2b2e001a18666e0eb160cb84282f5ba Mon Sep 17 00:00:00 2001
From: Joachim Tingvold <joachim@tingvold.com>
Date: Tue, 29 Mar 2016 23:57:35 +0200
Subject: TG16-config.

---
 examples/tg16/munin/dhcp_usage_ipv6 | 85 +++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)
 create mode 100644 examples/tg16/munin/dhcp_usage_ipv6

(limited to 'examples/tg16/munin/dhcp_usage_ipv6')

diff --git a/examples/tg16/munin/dhcp_usage_ipv6 b/examples/tg16/munin/dhcp_usage_ipv6
new file mode 100644
index 0000000..920650d
--- /dev/null
+++ b/examples/tg16/munin/dhcp_usage_ipv6
@@ -0,0 +1,85 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use POSIX;
+
+my $dhcpd_cmd="/usr/local/bin/dhcpd-pools";
+my $dhcpd_lf="/var/lib/dhcp/dhcpd6.leases";
+my $dhcpd_cf="/etc/dhcp/dhcpd6.conf";
+
+my @output = `$dhcpd_cmd -c $dhcpd_cf -l $dhcpd_lf`;
+
+my $line;
+my $subnet;
+
+for $line (@output) {
+
+#All networks        2a06:5840:65::1000                      - 2a06:5840:65::9999                      35226    25      0.071      1    26     0.074
+#All networks        2a06:5840:66::1000                      - 2a06:5840:66::9999                      35226    44      0.125      0    44     0.125
+
+
+  next if ($line =~ /^(shared net name|Ranges|name|Shared networks|Sum of all)/) or (length $line <=  1);
+
+    if ($line =~ /([a-zA-Z0-9]+\:[a-zA-Z0-9]+\:[a-zA-Z0-9]+\::[a-zA-Z0-9]+)\s+\-\s([a-zA-Z0-9]+\:[a-zA-Z0-9]+\:[a-zA-Z0-9]+\::[a-zA-Z0-9]+)\s+([\d]+)\s+([\d]+)\s+([\d]+\.[\d]+)/) {
+
+      my $first_ip=$1;
+      my $last_ip=$2;
+      my $max=$3;
+      my $current=$4;
+      my $percent=ceil($5);     
+
+      my $octet;
+      my @octets;
+
+	print "IP: $percent\n";
+	
+	my $octet_count=0;
+        for $octet (@octets=(split('\::',$first_ip))) {
+	  if ($octet_count == 2) {
+	     $octet_count=0;
+	     $subnet = $first_ip;
+	     substr($subnet,-length($octet)) = ($octet-4);     
+	     $subnet =~ s/\./_/g;
+		
+	       if (defined $ARGV[0] && $ARGV[0] eq "config") {
+        	  print_config($subnet);
+	       } else {
+		print "dhcp_pool_${subnet}.value $percent\n";
+	     }
+        
+	 }
+
+	$octet_count++;  
+       
+	}
+
+   }
+
+}
+
+sub print_config {
+
+my $graph_name;
+
+$graph_name = shift;
+
+print <<EOF;
+graph_args --upper-limit 100 -l 0
+graph_title DHCP IPv4 Pools Status
+graph_vlabel %
+graph_category DHCP
+dhcp_pool_${graph_name}.label $graph_name
+EOF
+
+}
+
+# print_config;
+
+#shared net name     first ip           last ip            max   cur    percent  touch   t+c  t+c perc
+# All networks        88.92.0.4        - 88.92.0.62          59    26     44.068      2    28    47.458
+
+#}
+
+
+
-- 
cgit v1.2.3