From 26c6504c86cc6f63d9f9b02e93bc31dcbb2c9f25 Mon Sep 17 00:00:00 2001
From: hubertf <hubertf@pkgsrc.org>
Date: Sun, 4 Apr 2004 22:16:58 +0000
Subject: 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.
---
 security/gpg2dot/Makefile         |  4 ++--
 security/gpg2dot/files/gpg2dot.pl | 10 +++++-----
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'security')

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));
-- 
cgit v1.2.3