From: weasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Mon, 25 Jul 2005 23:27:03 +0000 (+0000)
Subject: Ignore revoked UIDs
X-Git-Url: https://git.sthu.org/?p=pgp-tools.git;a=commitdiff_plain;h=6ccbae4ff2c95dae85e91d50aea1ccc1c240fafb

Ignore revoked UIDs

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@142 b513b33f-fedd-0310-b452-c3deb5f4c849
---

diff --git a/gpglist/gpglist b/gpglist/gpglist
index 58d5c1e..8ed2ca8 100755
--- a/gpglist/gpglist
+++ b/gpglist/gpglist
@@ -78,6 +78,10 @@ while (<SIGS>) {
 }
 close SIGS;
 
+# XXX: Add an option for this
+my $c = 0;
+@uids = grep { ! defined $rev{$uids[$c++]} } @uids;
+
 my $n = scalar @uids -1;
 for ( my $a=0; $a <= $n; $a++ ) {
 	printf "|  " x ($a)