kpriv/pkgsrc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

"Collapse" mutual trust into a single line of a different color.

Browse source 
If an optional "mykeyid" is given on the command line, use different
colors for lines to & from that node.  The colors are:
	green		mutual trust, includes mykey
	blue		mutual trust, not mykey
	orange		someone trusts mykey (one way)
	red		mykey trusts someone (one way)
	black		one way trust, not mykey
This commit is contained in:
lukem 2004-01-21 04:14:45 +00:00
parent 39ecc311a5
commit 6d77a64959
1 changed files with 37 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

47
security/gpg2dot/files/gpg2dot.pl
View file

@ -1,15 +1,24 @@
#!@PREFIX@/bin/perl
#
# $NetBSD: gpg2dot.pl,v 1.2 2004/01/21 04:14:45 lukem Exp $
# ----------------------------------------------------------------------------
# "THE BEER-WARE LICENSE" (Revision 42):
# <atatat@NetBSD.ORG> wrote this file. As long as you retain this notice you
# can do whatever you want with this stuff. If we meet some day, and you think
# this stuff is worth it, you can buy me a beer in return.
#
# Andrew Brown
# Andrew Brown <atatat@NetBSD.org> and Luke Mewburn <lukem@NetBSD.org>
# wrote this file. As long as you retain this notice you can do whatever
# you want with this stuff. If we meet some day, and you think this stuff
# is worth it, you can buy us a beer in return.
# ----------------------------------------------------------------------------
#
# gpg2dot [mykey] --
# generate input for dot(1) from gpg(1) --list-sigs
# gpg http://www.gnupg.org
# dot http://www.graphviz.org/
#
$date = localtime();
$mykeyid = shift;
$sg = "";
open(GPG, "gpg --list-keys --verbose 2>/dev/null |");
@ -25,24 +34,42 @@ while (<GPG>) {
}
$kuid =~ s/\"/\\\"/g;
($keyid = $lkeyid) =~ s:.*/::;
next if ($kuid !~ /netbsd.org/i);
$kuid{$keyid} = $kuid;
next if ($label{$keyid} != "");
$label{$keyid} = "$lkeyid - $date\\n$kuid";
}
elsif (/^sig (.{7}) (\S+)\s+(\S+)\s+(.+\S)/) {
($skeyid, $date, $suid) = ($2, $3, $4);
next if ($kuid !~ /netbsd.org/i ||
$suid =~ /id not found/ ||
next if ($suid =~ /id not found/ ||
$skeyid eq $keyid);
push(@isigs, "$keyid $skeyid $date $suid");
$sigmap{"$keyid-$skeyid"} = 1;
}
}
foreach (@isigs) {
($keyid, $skeyid, $date, $suid) = split(/ /, $_, 4);
next if (!$kuid{$keyid} || !$kuid{$skeyid});
push(@sigs, sprintf("\"%s\" -> \"%s\";\t// %s -> %s\n",
$skeyid, $keyid, $kuid{$skeyid}, $kuid{$keyid}));
next if ($sigmap{"$skeyid-$keyid"} == -1);
$color = "black";
$attrs = "";
if ($sigmap{"$skeyid-$keyid"}) {
if ($keyid eq $mykeyid ||
$skeyid eq $mykeyid) { # two way trust, includes me
$color = "green";
} else { # two way trust, me unevolved
$color = "blue";
}
$attrs = ",dir=\"both\"";
$sigmap{"$keyid-$skeyid"} = -1;
} elsif ($keyid eq $mykeyid) { # you trust me (one way)
$color = "orange";
} elsif ($skeyid eq $mykeyid) { # i trust you (one way)
$color = "red";
}
push(@sigs, sprintf("\"%s\" -> \"%s\" [color=\"%s\"%s];\t// %s -> %s\n",
$skeyid, $keyid, $color, $attrs,
$kuid{$skeyid}, $kuid{$keyid}));
$signer{$skeyid} = "yes";
$signed{$keyid} = "yes";
}