From 39e1d5c231e32f378e7ac837ec78f35dd7248b46 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Thu, 1 Apr 2010 18:30:21 -0500
Subject: [PATCH] Conveniance function to get self signatures

---
 lib/openpgp.php | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/lib/openpgp.php b/lib/openpgp.php
index d3a6bd3..7a5ec52 100644
--- a/lib/openpgp.php
+++ b/lib/openpgp.php
@@ -783,6 +783,27 @@ class OpenPGP_PublicKeyPacket extends OpenPGP_Packet {
   public $version, $timestamp, $algorithm;
   public $key, $key_id, $fingerprint;
 
+  // Find self signatures in a message, these often contain metadata about the key
+  function self_signatures($message) {
+    $sigs = array();
+    $keyid16 = strtoupper(substr($this->fingerprint, -16));
+    foreach($message as $p) {
+      if($p instanceof OpenPGP_SignaturePacket) {
+        if(strtoupper($p->issuer()) == $keyid16) {
+          $sigs[] = $p;
+        } else {
+          foreach(array_merge($p->hashed_subpackets, $p->unhashed_subpackets) as $s) {
+            if($s instanceof OpenPGP_SignaturePacket_EmbeddedSignaturePacket && strtoupper($s->issuer()) == $keyid16) {
+              $sigs[] = $p;
+              break;
+            }
+          }
+        }
+      } else if(count($sigs)) break; // After we've seen a self sig, the next non-sig stop all self-sigs
+    }
+    return $sigs;
+  }
+
   /**
    * @see http://tools.ietf.org/html/rfc4880#section-5.5.2
    */