#!/usr/bin/perl
+# $Id$
+
# small script to show in an intuitive way who signed which of your user ids
#
# Copyright (c) 2004 Uli Martens <uli@youam.net>
use strict;
use warnings;
+use English;
my $key=shift @ARGV;
-if ( $key eq "" ) {
- die
+unless (defined $key) {
+ die "Usage: $PROGRAM_NAME <keyid>\n";
}
open SIGS, "gpg --fixed-list-mode --with-colons --list-sigs $key 2>/dev/null |"
}
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)