blob: a7eced1b680825cbf5fc01f257056faf173f286a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
(ns admin
(:import java.io.File)
(:require [clojure.contrib.str-utils2 :as s])
(:use compojure
email
utils))
;; Debug Page
(defn exception-to-string [e]
(let [sw (java.io.StringWriter.)
pw (java.io.PrintWriter. sw)]
(.printStackTrace e pw)
(.toString sw)))
(defn lookup-templates [dir selected]
(for [f (.listFiles (File. dir))
:when (and (.isFile f) (.endsWith (.getName f) ".st"))]
(let [n (s/butlast (.getName f) 3)]
{"template" n
"selected" (= selected n)})))
(defn debug-page [session flash]
(if-vip
(let [st (fetch-template "debug" session)]
(.setAttribute st "flash" (:msg flash))
(.setAttribute st "mailtemps" (lookup-templates "template/mail" "welcome"))
(.toString st))))
(defn debug-commmand! [session params]
(if-vip
(let [action (:action params)
msg (try
(cond (= action "regemail")
(do (send-registration-email (params :nick) (params :to) (params :template))
(str "Sent registration mail to " (params :to)))
:else (str "Unknown action: " action))
(catch Exception e
(str "<h2 color=\"red\">Caught Exception in " action " --"
(.getMessage e)
"</h2><br><pre>"
(exception-to-string e)
"</pre>")))]
[(flash-assoc :msg msg)
(redirect-to "/debug")])))
;; Muting
(defn mute-status [session]
(if-vip
(println session)))
(defn parse-pos-interval [time unit]
(let [t (maybe-parse-int time 0)
u (lower-case unit)]
(and (> t 0)
(#{"minute" "hour" "day"} u)
(str time " " u))))
(defn mute! [session params]
(if-vip
(let [nick (params :user)
user_id (:user_id (fetch-nick nick))
interval (parse-pos-interval (params :time) (params :unit))
reason (params :reason)
admin-user-id (session :user_id)]
(cond (not user_id) [400 "INVALID_NICK"]
(not interval) [400 "INVALID_INTERVAL"]
:else (do "OK")))))
|
