[Pgp-tools-commit] r142 - trunk/gpglist

[Peter Palfrader]

Author: weasel
Date: 2005-07-25 23:27:03 +0000 (Mon, 25 Jul 2005)
New Revision: 142

Modified:
   trunk/gpglist/gpglist
Log:
Ignore revoked UIDs

Modified: trunk/gpglist/gpglist
===================================================================
--- trunk/gpglist/gpglist	2005-07-25 23:25:32 UTC (rev 141)
+++ trunk/gpglist/gpglist	2005-07-25 23:27:03 UTC (rev 142)
@@ -78,6 +78,10 @@
 }
 close SIGS;
 
+# XXX: Add an option for this
+my $c = 0;
+ at uids = grep { ! defined $rev{$uids[$c++]} } @uids;
+
 my $n = scalar @uids -1;
 for ( my $a=0; $a <= $n; $a++ ) {
 	printf "|  " x ($a)