From 0ddf01817f165df71e707ba0e8679209deeeff73 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?R=C3=A9mi=20Paulmier?= <remi.paulmier@gmail.com>
Date: Fri, 7 Feb 2014 15:45:04 +0100
Subject: [PATCH] canonicalize keys with _ instead of dots

---
 plugins/bind9/bind9_rr | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/plugins/bind9/bind9_rr b/plugins/bind9/bind9_rr
index f6193177..2d028ca7 100755
--- a/plugins/bind9/bind9_rr
+++ b/plugins/bind9/bind9_rr
@@ -95,8 +95,10 @@ sub do_stats {
 
     open(Q,"> $STATEFILE") or die;
     foreach $k (@INkeys[0 .. 19]) {
-        print "rr_$k.value ",$IN{$k},"\n";
-        print Q "$k ",$IN{$k},"\n";
+        next if not defined $k;
+        my $l = $k; $k =~ tr/\./_/;
+        print "rr_$k.value ",$IN{$l},"\n";
+        print Q "$l ",$IN{$l},"\n";
     }
     close(Q);
 }
@@ -114,7 +116,9 @@ graph_vlabel Queries / \${graph_period}
     my @INkeys = sort { $IN{$b} <=> $IN{$a} } keys %IN;
 
     foreach $k (@INkeys[0 .. 19]) {
-        print "rr_$k.label $k
+        next if not defined $k;
+        my $l = $k; $k =~ tr/\./_/;
+        print "rr_$k.label $l
 rr_$k.type DERIVE
 rr_$k.min 0
 rr_$k.draw STACK