X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=checksigs;h=528d4b40ad82485ef2881c7f33ed6309f13f9b46;hb=dcce90e77c92202b5fadca48de6fd1cefc41ff79;hp=d0467f3f8d971ca0dcddd45f4f2584e577ed4be1;hpb=7be10d24b200a2b83669c132f25badf75e2fd8fb;p=bin.git

diff --git a/checksigs b/checksigs
index d0467f3..528d4b4 100755
--- a/checksigs
+++ b/checksigs
@@ -19,6 +19,7 @@ $config->{gpg_command} = qq($config->{gpg});
 my @keys_to_check = @ARGV;
 
 
+my %got_uid_already;
 sub _get_unknown_keys($$){
      my ($config,$key_id) = @_;
 
@@ -30,8 +31,10 @@ sub _get_unknown_keys($$){
 	      $owner_trust,$user_id,$signature_class,$key_capabilities,
 	      $smime_fingerprint,$flag_field,
 	     ) = split(/\:/,$key_record);
-	  next unless defined $user_id and $user_id eq '[User id not found]';
+	  next unless defined $user_id and lc($user_id) eq lc('[User ID not found]');
+	  next if exists $got_uid_already{$full_key_id};
 	  qx($config->{gpg_command} --recv-keys $full_key_id 2>/dev/null);
+	  $got_uid_already{$full_key_id} = 1;
 	  print "Retreveved key: 0x".(substr $full_key_id, -8)."\n";
      }
 }