Report expiry whitelist size

InCommon · Dec 6, 2018 · 4619daa · 4619daa
1 parent d8fcd5a
commit 4619daa
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/utilities/check_embedded.pl b/utilities/check_embedded.pl
@@ -418,12 +418,16 @@ sub comment {
         print "Distinct RSA moduli: $distinct_moduli\n";
     }
 
+    if (%expiry_whitelist) {
+        print "\n";
+        my $nwhite = scalar(keys(%expiry_whitelist));
+        print "Expiry whitelist size: $nwhite\n";
+    }
     my $first = 1;
     foreach $fingerprint (sort keys %expiry_whitelist) {
         if ($expiry_whitelist{$fingerprint} eq 'unused') {
             if ($first) {
                 $first = 0;
-                print "\n";
                 print "Unused expiry whitelist fingerprints:\n";
             }
             print "   $fingerprint\n";