From c416d211c261292d77d45ab12f10ce44b6ac036b Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 18 Jun 2012 23:29:40 +0200
Subject: Publish FOAF+SSL key data on profile pages.

---
 src/mulk/benki/id.clj   | 35 +++++++++++++++++++++++++++--------
 src/mulk/benki/util.clj | 13 +++++++++++--
 2 files changed, 38 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/mulk/benki/id.clj b/src/mulk/benki/id.clj
index d1f8263..20925e7 100644
--- a/src/mulk/benki/id.clj
+++ b/src/mulk/benki/id.clj
@@ -22,12 +22,12 @@
 
 (def profile-base-uri (str (:base-uri @benki-config) "/id/"))
 
-(defn user-owns-nickname? [user nickname]
+(defn nickname-user [nickname]
   (with-dbt
-    (sql/with-query-results results
-      ["SELECT 't' FROM user_nicknames WHERE nickname = ? AND \"user\" = ?"
-       nickname *user*]
-      (doall (seq results)))))
+    (:user (query1 "SELECT \"user\" FROM user_nicknames WHERE nickname = ?" nickname))))
+
+(defn user-owns-nickname? [user nickname]
+  (= (nickname-user nickname) user))
 
 (defn fail-authentication []
   {:status 403, :type "text/plain", :body "Not authorized."})
@@ -80,9 +80,28 @@
 
 (def profile-page {})
 
-(defn show-profile-page []
+(defn show-profile-page [user]
   (layout profile-page "A Profile Page"
-    [:p "This is a profile page."]))
+    [:div {:typeof "foaf:Person"}
+     [:h2 "Public Keys"]
+     [:div {:rel "cert:key"}
+      [:div {:typeof "cert:RSAPublicKey"}
+       [:dl
+        (with-dbt
+          (sql/with-query-results keys ["SELECT * FROM user_rsa_keys WHERE \"user\" = ?" user]
+            (doall
+             (for [{modulus  :modulus,
+                    exponent :exponent}
+                   keys]
+               (list
+                [:dt "Modulus (hex)"]
+                [:dd {:property "cert:modulus"
+                      :datatype "xsd:hexBinary"}
+                 (fmt nil "~X" modulus)]
+                [:dt "Exponent"]
+                [:dd {:property "cert:exponent"
+                      :datatype "xsd:integer"}
+                 (fmt nil "~D" exponent)])))))]]]]))
 
 (defn render-xrds [nickname]
   {:status 200
@@ -111,7 +130,7 @@
   (if (re-find #"application/xrds\+xml"
                (get-in (request/ring-request) [:headers "accept"]))
     (render-xrds nickname)
-    (show-profile-page)))
+    (show-profile-page (nickname-user nickname))))
 
 (defpage [:get  "/~:nickname"] {nickname :nickname}
   (redirect (link :profile nickname)))
diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index 7f85ead..4c8a141 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -36,7 +36,14 @@
 
 ;; defpartial is just defn + html.
 (defpartial layout [kind title & content]
-  (html5 {:xml? true}
+  (xml-declaration "UTF-8")
+  (doctype :html5)
+  [:html {:xmlns       "http://www.w3.org/1999/xhtml"
+          "xml:lang"   "en"
+          :lang        "en"
+          "xmlns:cert" "http://www.w3.org/ns/auth/cert#"
+          "xmlns:foaf" "http://xmlns.com/foaf/0.1/"
+          "xmlns:xsd"  "http://www.w3.org/2001/XMLSchema#"}
    [:head {:data-logged-in      (if *user* "true" "false"),
            :data-websocket-base (:websocket-base @benki-config)}
     [:title title]
@@ -50,12 +57,14 @@
     [:link {:type "text/css"
             :rel  "stylesheet"
             :href (resolve-uri "/style/benki.css")}]
+    [:link {:rel  "profile"
+            :href "http://www.w3.org/1999/xhtml/vocab"}]
     [:meta {:content "initial-scale=1.0, width=device-width"
             :name    "viewport"}]
     (:head kind)]
    [:body [:h1 title]
     content
-    (:bottom kind)]))
+    (:bottom kind)]])
 
 (defmulti user-nickname type)
 (defmethod user-nickname java.lang.String [x]
-- 
cgit v1.2.3