sigtrace.pl

[Adrian 'Dagurashibanipal' von Bidder]

--=-XOa/ri9ENAdYqUOmMYxk
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable


> --- sigtrace.pl.orig	2002-08-20 11:26:15.000000000 +0200
> +++ sigtrace.pl	2002-08-20 11:32:59.000000000 +0200

Ooops, this is it:

diff -u sigtrace.pl.orig sigtrace.pl
--- sigtrace.pl.orig	2002-08-20 11:26:15.000000000 +0200
+++ sigtrace.pl	2002-08-20 11:46:43.000000000 +0200
@@ -85,10 +85,11 @@
=20
 while ($line =3D <STDIN>)
 {
-  ($type,$id) =3D split(' ',$line);
+  ($type, $dummy, $dummy, $dummy, $id) =3D split(':',$line);
+  $id =3D substr($id, 8, 15);
   if ($type eq "pub")
   {
-    $pub =3D (split('/',$id))[1];
+    $pub =3D $id;
   } elsif ($type eq "sig")
   {
     next if ($id eq $pub);

cheers
-- vbi

--=20
secure email with gpg                         http://fortytwo.ch/gpg

--=-XOa/ri9ENAdYqUOmMYxk
Content-Type: application/pgp-signature; name=signature.asc
Content-Description: This is a digitally signed message part

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)

iD8DBQA9YhBPwj49sl5Lcx8RAjILAJ98FwrXUpJxrflqL8VgQOnvW6+MfQCcDabw
KmKuS56eQSM+cqh8ptSM3Gc=
=k8lB
-----END PGP SIGNATURE-----

--=-XOa/ri9ENAdYqUOmMYxk--