(ns mulk.benki.webutil
  (:refer-clojure)
  (:use [hiccup      core page]
        [clojure.core.match :only [match]]
        noir.core
        [mulk.benki  db util])
  (:require [noir.session  :as session]
            [noir.request  :as request]
            [noir.response :as response]
            [clojure.java.jdbc :as sql])
  (:import [java.text DateFormat]
           [java.math BigDecimal]))



;;;; * Login/authentication
(defn authlink [uri]
  (with-dbt
    (let [user *user*
          dkey (sql/with-query-results results
                   ["SELECT * FROM page_keys WHERE \"user\" = ? AND page = ?"
                    user uri]
                 (if-let [rec (first results)]
                   (:key rec)
                   (let [key (BigDecimal. (genkey))]
                     (sql/with-query-results results
                         ["INSERT INTO page_keys(\"user\", page, \"key\")
                                VALUES (?, ?, ?)
                             RETURNING \"key\""
                          user uri key]
                       (:key (first results))))))
          key  (.toBigIntegerExact dkey)]
      (fmt nil "~A?auth=~A" uri (.toString key 36)))))


(defpartial login-message []
  (let [user    (and *user*
                     (with-dbt (sql/with-query-results results
                                 ["SELECT * FROM users WHERE id = ?" *user*]
                                 (first results))))]
    (if *user*
      [:div {:class "logged-in-as"}
       (:first_name user) " " (:last_name user)]
      [:div {:class "not-logged-in"}
       "Browser ID "
       [:a#browserid {:href "#"}
        [:img {:src (resolve-uri "/3rdparty/browserid/sign_in_orange.png")
               :alt "Sign in"}]]
       [:div "or:"]
       [:a {:href (link :login)} "Sign in normally"]])))


;;;; * Environment/request stuff
(defn referrer []
  (get-in (request/ring-request) [:headers "referer"]))