From 169bd1f29b239d314475bdbe05f0a7a9aa332864 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 17 Jun 2012 15:08:25 +0200
Subject: Implement client certificate generation and signing.

---
 src/mulk/benki/util.clj | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'src/mulk/benki/util.clj')

diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index 0bfe5e9..ce9803d 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -69,6 +69,8 @@
     [[:lafargue :feed]]  (fmt nil "/lafargue/feed")
     [[:lafargue :post]]  (fmt nil "/lafargue/post")
     [[:wiki title & xs]] (fmt nil "/wiki/~a~@[~a~]" title (first xs))
+    [[:keys]]            "/keys"
+    [[:keys :register]]  "/keys/register"
     ))
 
 (defn link [& args]
@@ -116,3 +118,18 @@
 
 (defn sanitize-html [html]
   (Jsoup/clean html (Whitelist/basic)))
+
+
+;;;; * Debugging
+(defonce logger
+  (org.apache.log4j.Logger/getLogger "eu.mulk.benki"))
+
+(defn info [s]
+  (.info logger s))
+
+(defn log [s]
+  (.info logger s))
+
+(defn debug [s]
+  (.debug logger s))
+
-- 
cgit v1.2.3