]>
git.sthu.org Git - pgp-tools.git/blob - keyanalyze/willy/cosign
5 ($name = $_) =~ s
#.*/##;
11 while ($line = <KEY
>) {
12 if ($line =~ "^Signatures to") {
14 } elsif ($line =~ "^Total:") {
16 } elsif ($line =~ "^Signatures from") {
18 } elsif ($state == 1) {
20 } elsif ($state == 2) {
21 $from[++$#from] = $line;
29 TO
: foreach $sigto (@to) {
30 foreach $index (0 .. @from) {
31 if ($sigto eq $from[$index]) {
32 splice(@from, $index, 1);
36 $onlyto[++$#onlyto] = $sigto;
39 $signed = $#onlyto + 1;
40 $signedby = $#from + 1;
42 print "The following $signedby keys have not signed key $name:\n";
44 print " \nKey $name has not signed $signed keys:\n";