From 7d5208777c9fc60b57a733815feff43ca3a92d94 Mon Sep 17 00:00:00 2001
From: Ian Young <ian@iay.org.uk>
Date: Mon, 20 Jan 2014 09:28:25 +0000
Subject: [PATCH] Calculate total size of duplicated certificates.

---
 charting/keynames_inner.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/charting/keynames_inner.pl b/charting/keynames_inner.pl
index 36d3fcc3..bed6059f 100755
--- a/charting/keynames_inner.pl
+++ b/charting/keynames_inner.pl
@@ -122,6 +122,11 @@ sub comment {
 my $nowYearMonth = time2str('%Y-%m-01T00:00:00', time());
 my $validStart = str2time($nowYearMonth);
 
+#
+# Total size of deduplicated blobs.
+#
+my $dedupTotal = 0;
+
 while (<>) {
 
 	#
@@ -196,6 +201,7 @@ sub comment {
 		#
 		$total_certs++;
 		if (defined($blobs{$blob})) {
+			$dedupTotal += (length($blob) - length($_) - 1);
 			# print "skipping a blob\n";
 			close $fh;
 			next;
@@ -338,4 +344,6 @@ sub numerically {
 	print "Total: $total\n";
 
 	print "\n";
+
+	print "Deduplication saves: $dedupTotal\n";
 }