projects
/
pgp-tools.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Ignore revoked UIDs
[pgp-tools.git]
/
gpglist
/
gpglist
diff --git
a/gpglist/gpglist
b/gpglist/gpglist
index 58d5c1e691e0565b2d31c7bd28a0b91cf1a6f638..8ed2ca82a4c3378b3d72f7826873164b7cb8dd2a 100755
(executable)
--- a/
gpglist/gpglist
+++ b/
gpglist/gpglist
@@
-78,6
+78,10
@@
while (<SIGS>) {
}
close 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)
my $n = scalar @uids -1;
for ( my $a=0; $a <= $n; $a++ ) {
printf "| " x ($a)