keyanalyze/willy/non-recip

   1 #!/usr/bin/perl
   2
   3 $cmd = "gpg --option $ARGV[0]/options --list-keys";
   4
   5 print "<html><head><title>Non-reciprocating signers</title></head>\n";
   6 print "<body>\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";
   9
  10 while (<STDIN>) {
  11         s/Key //;
  12         ($key,$number) = split(/ has not signed /, $_, 2);
  13         $name = `$cmd $key |head -1`;
  14         chomp $name;
  15         $name =~ s#.*-[0-9][0-9] ##;
  16         $name =~ s/&/&amp;/;
  17         $name =~ s/</&lt;/;
  18         $name =~ s/>/&gt;/;
  19         $name =~ s/\([^)]*\)//;
  20
  21         $number =~ s/://;
  22         chomp $number;
  23
  24         $excuse = `grep -s $key $ARGV[0]/excuses`;
  25         chomp $excuse;
  26         $excuse =~ s/$key //;
  27
  28         print "<tr><td>$name</td><td>$key</td><td>$number</td><td>$excuse</td></tr>\n";
  29 }
  30
  31 print "</table></body></html>";