X-Git-Url: http://git.sthu.org/?a=blobdiff_plain;f=keyanalyze%2Fwilly%2Fcosign;fp=keyanalyze%2Fwilly%2Fcosign;h=e5df2c8ec721d01e458fd256d3461ea7fe2acb91;hb=e69aea6f5797cb54f3748b983ffc977958f347cc;hp=0000000000000000000000000000000000000000;hpb=6b7cb7ca3a817c2e0510957115a2d1f1bed5c549;p=pgp-tools.git

diff --git a/keyanalyze/willy/cosign b/keyanalyze/willy/cosign
new file mode 100644
index 0000000..e5df2c8
--- /dev/null
+++ b/keyanalyze/willy/cosign
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+
+for (@ARGV) {
+	open(KEY, $_);
+	($name = $_) =~ s#.*/##;
+
+	$state = 0;
+	$#to = -1;
+	$#from = -1;
+	$#onlyto = -1;
+	while ($line = <KEY>) {
+		if ($line =~ "^Signatures to") {
+			$state = 1;
+		} elsif ($line =~ "^Total:") {
+			$state = 0;
+		} elsif ($line =~ "^Signatures from") {
+			$state = 2;
+		} elsif ($state == 1) {
+			$to[++$#to] = $line;
+		} elsif ($state == 2) {
+			$from[++$#from] = $line;
+		}
+	}
+	close(KEY);
+
+	@to = sort @to;
+	@from = sort @from;
+
+	TO: foreach $sigto (@to) {
+		foreach $index (0 .. @from) {
+			if ($sigto eq $from[$index]) {
+				splice(@from, $index, 1);
+				next TO;
+			}
+		}
+		$onlyto[++$#onlyto] = $sigto;
+	}
+
+	$signed = $#onlyto + 1;
+	$signedby = $#from + 1;
+
+	print "The following $signedby keys have not signed key $name:\n";
+	print @from;
+	print " \nKey $name has not signed $signed keys:\n";
+	print @onlyto;
+	print "\n";
+}