1 files changed, 69 insertions, 0 deletions
diff --git a/lib/nickserver/hkp/key_info.rb b/lib/nickserver/hkp/key_info.rb
new file mode 100644
index 0000000..adb75d8
--- /dev/null
+++ b/lib/nickserver/hkp/key_info.rb
@@ -0,0 +1,69 @@
+require 'cgi'
+
+#
+# Class to represent the key information result from a query to a key server
+# (but not the key itself).
+#
+# The initialize method parses the hkp 'machine readable' output.
+#
+# format definition of machine readable index output is here:
+# http://tools.ietf.org/html/draft-shaw-openpgp-hkp-00#section-5.2
+#
+module Nickserver; module HKP
+  class KeyInfo
+    attr_accessor :uids, :keyid, :algo, :keylen, :creationdate, :expirationdate, :flags
+
+    def initialize(hkp_record)
+      uid_lines = hkp_record.split("\n")
+      pub_line  = uid_lines.shift
+      @keyid, @algo, @keylen_s, @creationdate_s, @expirationdate_s, @flags = pub_line.split(':')[1..-1]
+      @uids = []
+      uid_lines.each do |uid_line|
+        uid, creationdate, expirationdate, flags = uid_line.split(':')[1..-1]
+        # for now, ignore the expirationdate and flags of uids. sks does return them anyway
+        @uids << CGI.unescape(uid.sub(/.*<(.+)>.*/, '\1'))
+      end
+    end
+
+    def keylen
+      @keylen ||= @keylen_s.to_i
+    end
+
+    def creationdate
+      @creationdate ||= begin
+        if @creationdate_s
+          Time.at(@creationdate_s.to_i)
+        end
+      end
+    end
+
+    def expirationdate
+      @expirationdate ||= begin
+        if @expirationdate_s
+          Time.at(@expirationdate_s.to_i)
+        end
+      end
+    end
+
+    def rsa?
+      @algo == "1"
+    end
+
+    def dsa?
+      @algo == "17"
+    end
+
+    def revoked?
+      @flags =~ /r/
+    end
+
+    def disabled?
+      @flags =~ /d/
+    end
+
+    def expired?
+      @flags =~ /e/
+    end
+  end
+
+end; end