From f58ba7296c88ca1c217f0482c18660f701e4a026 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sat, 16 Jun 2012 17:01:38 +0200
Subject: Permit certificate-based login.

---
 src/mulk/benki/util.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/mulk/benki/util.clj b/src/mulk/benki/util.clj
index d3df4af..0bfe5e9 100644
--- a/src/mulk/benki/util.clj
+++ b/src/mulk/benki/util.clj
@@ -59,7 +59,7 @@
 
 (defn linkrel [& args]
   (match [(vec args)]
-    [[:login]]           (fmt nil "/login")
+    [[:login]]           (str (:cert-req-base @benki-config) "/login")
     [[:home]]            (fmt nil "/")
     [[:marx]]            (fmt nil "/marx")
     [[:marx :submit]]    (fmt nil "/marx/submit")
-- 
cgit v1.2.3