diff options
| author | hubertf <hubertf@pkgsrc.org> | 2004-04-04 22:16:58 +0000 |
|---|---|---|
| committer | hubertf <hubertf@pkgsrc.org> | 2004-04-04 22:16:58 +0000 |
| commit | 910d3479f6510e2f16b675747a168629d8f1b435 (patch) | |
| tree | 38102b91c1bfc04f48d22095be5377fa031095ec /security/gpg2dot | |
| parent | 265ae10e0d7769fd7ebbf2b19c50cade98dd0ff7 (diff) | |
| download | pkgsrc-910d3479f6510e2f16b675747a168629d8f1b435.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')
| -rw-r--r-- | security/gpg2dot/Makefile | 4 | ||||
| -rw-r--r-- | security/gpg2dot/files/gpg2dot.pl | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/security/gpg2dot/Makefile b/security/gpg2dot/Makefile index ab08142e05f..0a1839ffb53 100644 --- a/security/gpg2dot/Makefile +++ b/security/gpg2dot/Makefile @@ -1,7 +1,7 @@ -# $NetBSD: Makefile,v 1.3 2004/02/24 13:49:29 grant Exp $ +# $NetBSD: Makefile,v 1.4 2004/04/04 22:16:59 hubertf Exp $ # -DISTNAME= gpg2dot-1.2 +DISTNAME= gpg2dot-1.3 WRKSRC= ${WRKDIR} CATEGORIES= security MASTER_SITES= # empty 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)); |