From 6cb7060a6d492eabd5d70fb2f32d698d78ed94ce Mon Sep 17 00:00:00 2001
From: Scott Ostler <sostler@deathmachine.local>
Date: Thu, 18 Mar 2010 09:51:15 -0400
Subject: Added directory page titles; start of account reset

---
 src/site.clj | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index e5107e5..e68d2ad 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -437,6 +437,8 @@
     (cond (= offset 0) (.setAttribute st "prev" false)
           (= offset 1) (.setAttribute st "prev" "")
           :else (.setAttribute st "prev" (str "/" (dec offset))))
+    (if (> offset 0)
+      (.setAttribute st "cur" offset))
     (.setAttribute st "next" (str "/" (inc offset)))
     (if (zero? (count @*directory-listing*))
       (.setAttribute st "notloaded" true))
@@ -658,6 +660,17 @@
     (log session (@rooms room-key) offset params)
     (resp-error "UNKNOWN_ROOM")))
 
+;; Account resets
+
+(defn reset-page [session]
+  )
+
+(defn reset-account-request! [session params]
+  )
+
+(defn reset-account! [session key]
+  )
+
 ;; Upload
 
 (def *max-image-height* 2000)
@@ -724,10 +737,6 @@
           (not (validate-room-access room-key session)) [200 "UNKNOWN_ROOM"]
           :else (do-upload session image (@rooms room-key)))))
 
-(defn copy-and-resize [image dest]
-  ; TODO: resize
-  (copy image dest))
-
 ;; N.B. -- Upload responses aren't JSON-evaluated
 (defn do-upload-avatar [session image]
   (let [filename (format-filename (:filename image) (session :nick))
@@ -735,7 +744,7 @@
         dest (open-file [*avatar-directory* date] filename)
         url (image-url-from-file "avatars" date dest)]
     (do
-      (copy-and-resize (:tempfile image) dest)
+      (copy (:tempfile image) dest)
       (update-user-db (session :user_id) "avatar" url)
       [(session-assoc :avatar url)
        [200 url]])))
@@ -794,7 +803,7 @@
                                            (-> request :route-params :room)
                                            (-> request :route-params :offset)
                                            params))
-  ;; TODO: validate POST Referrer headers for POSTs
+  ;; TODO: add form tokens for all destructive actions
   (POST "/msg" (validated-msg session params))
   (POST "/submit-registration" (register session params))
   (POST "/update-profile" (update-profile session params))
@@ -804,6 +813,9 @@
   (GET "/directory" (directory session 0))
   (GET "/directory/:offset"
        (directory session (maybe-parse-int (-> request :route-params :offset) 0)))
+  (GET "/reset" (reset-page session)) 
+  (POST "/reset-request" (reset-account-request! session params))
+  (POST "/reset/:key" (reset-account! session (-> request :route-params :key)))
   (GET "/about_us" (serve-template "about_us" session))
   (GET "/goodies" (serve-template "goodies" session))
   (GET "/help" (serve-template "help" session))
-- 
cgit v1.2.3-70-g09d2