reset list of certifiers for each User ID (addresses MS #2567)

diff --git a/Changelog b/Changelog
index 425ea2e64179b79a9716eadb7fb8e96436097f28..455cb7c62aa1376cb1340eed67dc1060c702ac50 100644 (file)
--- a/Changelog
+++ b/Changelog
@@ -8,9 +8,11 @@ msva-perl (0.6~pre) upstream;
   * If we have Gtk2, Linux::Inotify2, and AnyEvent, we should monitor for
     updates and prompt the user when we notice one. (closes MS #2540)
   * Added tests/basic, as a simple test of a few functions (closes MS #2537)
+  * fixed double-prompting on sites that have more than one User ID
+    (closes MS #2567)
+
+ -- Daniel Kahn Gillmor <dkg@fifthhorseman.net>  Thu, 28 Oct 2010 17:14:35 -0400
 
- -- Daniel Kahn Gillmor <dkg@fifthhorseman.net>  Wed, 27 Oct 2010 01:47:50 -0400
-  
 msva-perl (0.5) upstream;
 
   * If ${MSVA_KEYSERVER} is unset or blank, default to using keyserver

diff --git a/Crypt/Monkeysphere/MSVA/MarginalUI.pm b/Crypt/Monkeysphere/MSVA/MarginalUI.pm
index 7f69003fc520c2f6ee2a8f2505c72c0bcf1d8892..6136341c48e4993a6ad7b9c6c77b17b89d45ea84 100755 (executable)
--- a/Crypt/Monkeysphere/MSVA/MarginalUI.pm
+++ b/Crypt/Monkeysphere/MSVA/MarginalUI.pm
@@ -51,10 +51,6 @@
       $logger->log('debug', "checking on %s\n", $fprx);
       foreach my $gpgkey ($gnupg->get_public_keys_with_sigs($fprx)) {
         $logger->log('debug', "found key %.40s\n", $gpgkey->fingerprint->as_hex_string);
-        # we're going to prompt the user here if we have any
-        # relevant certifiers:
-        my @valid_certifiers;
-        my @marginal_certifiers;
 
         # FIXME: if there are multiple keys in the OpenPGP WoT
         # with the same key material and the same User ID
@@ -64,6 +60,8 @@
         # to do is.
         foreach my $user_id ($gpgkey->user_ids) {
           $logger->log('debug', "found EE User ID %s\n", $user_id->as_string);
+          my @valid_certifiers = ();
+          my @marginal_certifiers = ();
           if ($user_id->as_string eq $uid) {
             # get a list of the certifiers of the relevant User ID for the key
             foreach my $cert (@{$user_id->signatures}) {