diff options
author | hubertf <hubertf> | 2004-04-04 22:16:58 +0000 |
---|---|---|
committer | hubertf <hubertf> | 2004-04-04 22:16:58 +0000 |
commit | 2b7bce233b55d8022c11813b959d5f69a608b416 (patch) | |
tree | 38102b91c1bfc04f48d22095be5377fa031095ec /security/gpg2dot/files | |
parent | dbab38b4fbd6d50b1e32bc3e511cf42c0f043431 (diff) | |
download | pkgsrc-2b7bce233b55d8022c11813b959d5f69a608b416.tar.gz |
Update to 1.3: Contributed by Stefan Schumacher (stefan net-tex de) in
private mail, ok'd by lukem. Changes:
> Use the URL node and {head,tail}URL edge-attribute and link
> to "Web of trust statistics and pathfinder"-Site.
>
> This site provides a statistical analysis of the key (linked behind
> each node) and a path between to keys (linked behind tail and
> head of a edge).
>
> Those URL statements take only affect if one generates IMAP or CMAP
> output and uses this on a HTML-Site as imagemap.
Diffstat (limited to 'security/gpg2dot/files')
-rw-r--r-- | security/gpg2dot/files/gpg2dot.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/security/gpg2dot/files/gpg2dot.pl b/security/gpg2dot/files/gpg2dot.pl index 174cb8581e0..213e23907f1 100644 --- a/security/gpg2dot/files/gpg2dot.pl +++ b/security/gpg2dot/files/gpg2dot.pl @@ -1,6 +1,6 @@ #!@PREFIX@/bin/perl # -# $NetBSD: gpg2dot.pl,v 1.2 2004/01/21 04:14:45 lukem Exp $ +# $NetBSD: gpg2dot.pl,v 1.3 2004/04/04 22:16:59 hubertf Exp $ # ---------------------------------------------------------------------------- # "THE BEER-WARE LICENSE" (Revision 42): @@ -67,8 +67,8 @@ foreach (@isigs) { } 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, + push(@sigs, sprintf("\"%s\" -> \"%s\"[tailURL=\"http://webware.lysator.liu.se/jc/wotsap/?top=0x%s&bottom=0x%s\",headURL=\"http://webware.lysator.liu.se/jc/wotsap/?top=0x%s&bottom=0x%s\",color=\"%s\"%s];\t// %s -> %s\n", + $skeyid, $keyid, $keyid, $skeyid, $skeyid, $keyid, $color, $attrs, $kuid{$skeyid}, $kuid{$keyid})); $signer{$skeyid} = "yes"; $signed{$keyid} = "yes"; @@ -76,8 +76,8 @@ foreach (@isigs) { foreach (keys %label) { next if (!$signer{$_} && !$signed{$_}); - push(@keys, sprintf("\"%s\" [label=\"%s\"];\n", - $_, $label{$_})); + push(@keys, sprintf("\"%s\" [URL=\"http://webware.lysator.liu.se/jc/wotsap/?top=0x%s\",label=\"%s\",shape=\"box\"];\n", + $_, $_, $label{$_})); } @sigs = uniq(sort(@sigs)); |