#!/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>
}
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)