]>
git.sthu.org Git - pgp-tools.git/blob - keyanalyze/willy/non-recip
3 $cmd = "gpg --option $ARGV[0]/options --list-keys";
5 print "<html><head><title>Non-reciprocating signers</title></head>\n";
7 print `cat $ARGV[0]/non-recip.in`;
8 print "<table><tr><td>Name</td><td>Key ID</td><td>Slackness</td><td>Excuse</td></tr>\n";
12 ($key,$number) = split(/ has not signed /, $_, 2);
13 $name = `$cmd $key |head -1`;
15 $name =~ s
#.*-[0-9][0-9] ##;
19 $name =~ s/\([^)]*\)//;
24 $excuse = `grep -s $key $ARGV[0]/excuses`;
28 print "<tr><td>$name</td><td>$key</td><td>$number</td><td>$excuse</td></tr>\n";
31 print "</table></body></html>";