X-Git-Url: http://git.sthu.org/?a=blobdiff_plain;f=keyanalyze%2Fwilly%2Fnon-recip;fp=keyanalyze%2Fwilly%2Fnon-recip;h=b53590acc91b33dda1fecca5308c3287452d5c58;hb=e69aea6f5797cb54f3748b983ffc977958f347cc;hp=0000000000000000000000000000000000000000;hpb=6b7cb7ca3a817c2e0510957115a2d1f1bed5c549;p=pgp-tools.git
diff --git a/keyanalyze/willy/non-recip b/keyanalyze/willy/non-recip
new file mode 100644
index 0000000..b53590a
--- /dev/null
+++ b/keyanalyze/willy/non-recip
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+$cmd = "gpg --option $ARGV[0]/options --list-keys";
+
+print "Non-reciprocating signers\n";
+print "\n";
+print `cat $ARGV[0]/non-recip.in`;
+print "| Name | Key ID | Slackness | Excuse |
\n";
+
+while () {
+ s/Key //;
+ ($key,$number) = split(/ has not signed /, $_, 2);
+ $name = `$cmd $key |head -1`;
+ chomp $name;
+ $name =~ s#.*-[0-9][0-9] ##;
+ $name =~ s/&/&/;
+ $name =~ s//>/;
+ $name =~ s/\([^)]*\)//;
+
+ $number =~ s/://;
+ chomp $number;
+
+ $excuse = `grep -s $key $ARGV[0]/excuses`;
+ chomp $excuse;
+ $excuse =~ s/$key //;
+
+ print "| $name | $key | $number | $excuse |
\n";
+}
+
+print "
";