--- sig2dot.pl.old	2003-07-11 16:32:49.000000000 -0400
+++ sig2dot.pl	2003-07-11 17:32:24.000000000 -0400
@@ -1,15 +1,15 @@
 #!/usr/bin/perl
 
-# sig2dot v0.27 (c) Darxus@ChaosReigns.com, released under the GPL
+# sig2dot v0.27p1 (c) Darxus@ChaosReigns.com, released under the GPL
 # Download from: http://www.chaosreigns.com/code/sig2dot/
 #
-# Parses output of "gpg --list-sigs" into a format
+# Parses output of "gpg --check-sigs" into a format
 # suitable for rendering into a graph by graphviz 
 # (http://www.research.att.com/sw/tools/graphviz/) like so:
 #
-# $ gpg --list-sigs --keyring ./phillylinux.gpg | ./sig2dot.pl > phillylinux.dot
-# $ neato -Tps phillylinux.dot > phillylinux.ps
-# $ convert phillylinux.ps phillylinux.jpg
+# $ gpg --with-colons --check-sigs --no-default-keyring --keyring ./trilug.gpg | ./sig2dot.pl > trilug.dot
+# $ neato -Tps trilug.dot > trilug.ps
+# $ convert trilug.ps trilug.jpg
 #
 # Commandline options:
 #
@@ -38,6 +38,7 @@
 # v0.25 May  3 19:06 cleaned up anti- devision by zero code a little
 # v0.26 May  4 00:08 strip all non-digit characters from $renderdate
 # v0.27 May 10 00:23:49 2002 use {}'s to write 1 line per public key instead of one line per signature (much shorter)
+# v0.27p1 Jul 11 16:38 2003 patch from Jeremy Portzer <jeremy@trilug.org> to use --with-colons and --check-sigs input
 
 $chartchar = "*";
 
@@ -62,13 +63,17 @@
 while ($line = <STDIN>)
 {
   chomp $line;
-  if ($line =~ m#([^ ]+) +([^ ]+) +([^ ]+) +([^<]+)#)
+  if ($line =~ /^(pub|sig:\!)/)		#types we can process
   {
-    $type = $1;
-    $id = $2;
-    $date = $3;
-    $name = $4;
-    
+    @fields = split(/:/,$line);
+    $type = $fields[0];
+    $id = $fields[4];
+    $name = $fields[9];
+    $date = $fields[5];
+
+    #strip off leading 8 bytes of key ID that we don't need
+    $id = substr($id,8);
+
     $date =~ tr/-//d;
     if ($type eq "pub" or $renderdate eq "" or $date <= $renderdate)
     {
@@ -78,7 +83,6 @@
   
       if ($type eq "pub")
       {
-        $id = (split('/',$id))[1];
         $owner = $id; 
       }