Calculate total size of duplicated certificates.

internet2 · Jan 20, 2014 · 7d52087 · 7d52087
1 parent ab65a30
commit 7d52087
Showing 1 changed file with 8 additions and 0 deletions.
diff --git 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";
 }