my @keys_to_check = @ARGV;
+my %got_uid_already;
sub _get_unknown_keys($$){
my ($config,$key_id) = @_;
$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";
}
}