From 30e723826e16be78bcc16db754aaff5c6bb27f4b Mon Sep 17 00:00:00 2001
From: Scott Ostler <sostler@deathmachine.local>
Date: Thu, 18 Mar 2010 09:24:54 -0400
Subject: Fixed directory offset bug; restrict directory to images from RoomA

---
 src/site.clj | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index b3e7e70..e5107e5 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -385,7 +385,8 @@
 (defn directory-search [offset]
   (let [directory @*directory-listing* 
         users (subvec directory
-                      (* offset *per-directory-page*)
+                      (min (count directory) 
+                           (* offset *per-directory-page*))
                       (min (count directory)
                            (* (inc offset) *per-directory-page*)))
         user-ids (apply str (interpose ", " (map #(%1 :user_id) users)))
@@ -400,17 +401,19 @@
                            ORDER BY created_on DESC LIMIT 1)")]
     (when (> (count user-ids) 0)
       (let [res (do-select [qry])
-            keys (map :user_id res)           
-            dict (zipmap keys res)]
+            keys (map :user_id res)
+            res-dict (zipmap keys res)]
         (map (fn [u]
                (let [u-id (u :user_id)]
-                 (process-directory-listing (merge u (dict u-id)))))
+                 (process-directory-listing (merge u (res-dict u-id)))))
              users)))))
            
 (defn update-directory! []
   (let [qry "SELECT u.user_id, COUNT(m) as cnt
              FROM users u, messages m
              WHERE u.user_id = m.user_id
+             AND m.room_id = 1
+             AND m.is_image = true
              GROUP BY u.user_id
              ORDER BY COUNT(m) DESC"
         res (vec (do-select [qry]))]
-- 
cgit v1.2.3-70-g09d2


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 ++++++++++++++++++------
 template/directory.st |  7 +++++--
 2 files changed, 23 insertions(+), 8 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))
diff --git a/template/directory.st b/template/directory.st
index 85d6a8c..1296edf 100644
--- a/template/directory.st
+++ b/template/directory.st
@@ -1,7 +1,10 @@
 <html>
   <head>
-    
-    <title>dump.fm</title>
+    $if(cur)$
+    <title>dump.fm directory [$cur$]</title>
+    $else$
+    <title>dump.fm directory</title>
+    $endif$
     $head()$
     <link rel="stylesheet" type="text/css" href="/static/directory.css">
     <script>
-- 
cgit v1.2.3-70-g09d2


From 53db301b23b292edea9210f09ea6120196c03da4 Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Fri, 26 Mar 2010 15:42:00 -0400
Subject: Add avatar limits

---
 src/site.clj | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index a79269d..4776cc9 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -674,6 +674,8 @@
 
 (def *max-image-height* 2000)
 (def *max-image-width* 2000)
+(def *max-avatar-height* 2000)
+(def *max-avatar-width* 2000)
 (def *vip-max-file-size* (mbytes 5)) ; don't be nuts guys
 (def *max-file-size* (kbytes 750))
 (def *ignore-size-limit-for-vip* true)
-- 
cgit v1.2.3-70-g09d2


From 8831ee16e219999289975b046da7a68df251e175 Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Fri, 2 Apr 2010 13:26:28 -0400
Subject: Commit email

---
 bin/repl.bat       |   2 +-
 bin/repl.sh        |   2 +-
 lib/mail-1.4.4.jar | Bin 0 -> 482977 bytes
 src/email.clj      |  68 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 4 files changed, 70 insertions(+), 2 deletions(-)
 create mode 100644 lib/mail-1.4.4.jar
 create mode 100644 src/email.clj

(limited to 'src')

diff --git a/bin/repl.bat b/bin/repl.bat
index 79a0aaf..5ab0646 100755
--- a/bin/repl.bat
+++ b/bin/repl.bat
@@ -1,3 +1,3 @@
 REM Windows REPL script
 SHIFT
-java -Xmx256m -server -cp lib/commons-io-1.4.jar;lib/commons-fileupload-1.2.1.jar;lib/commons-codec-1.3.jar;lib/clojure.jar;lib/clojure-contrib.jar;lib/compojure-3.2v1.jar;lib/jetty-6.1.14.jar;lib/jetty-util-6.1.14.jar;lib/servlet-api-2.5-6.1.14.jar;lib/jline-0.9.94.jar;lib/postgresql-8.4-701.jdbc4.jar;lib/stringtemplate-3.2.1.jar;lib/antlr-2.7.7.jar;src/ jline.ConsoleRunner clojure.main -i %0 -r %*
+java -Xmx256m -server -cp lib/commons-io-1.4.jar;lib/commons-fileupload-1.2.1.jar;lib/commons-codec-1.3.jar;lib/clojure.jar;lib/clojure-contrib.jar;lib/compojure-3.2v1.jar;lib/jetty-6.1.14.jar;lib/jetty-util-6.1.14.jar;lib/servlet-api-2.5-6.1.14.jar;lib/jline-0.9.94.jar;lib/postgresql-8.4-701.jdbc4.jar;lib/stringtemplate-3.2.1.jar;lib/antlr-2.7.7.jar;lib/mail-1.4.4.jar;src/ jline.ConsoleRunner clojure.main -i %0 -r %*
diff --git a/bin/repl.sh b/bin/repl.sh
index d4beeda..5fc36b8 100755
--- a/bin/repl.sh
+++ b/bin/repl.sh
@@ -1,3 +1,3 @@
 #!/bin/sh
 
-java -Xmx256m -server -cp .:lib/commons-io-1.4.jar:lib/commons-fileupload-1.2.1.jar:lib/commons-codec-1.3.jar:lib/jline-0.9.94.jar:lib/clojure.jar:lib/clojure-contrib.jar:lib/compojure-3.2v1.jar:lib/jetty-6.1.14.jar:lib/jetty-util-6.1.14.jar:lib/servlet-api-2.5-6.1.14.jar:lib/postgresql-8.4-701.jdbc4.jar:lib/stringtemplate-3.2.1.jar:lib/antlr-2.7.7.jar:src/ jline.ConsoleRunner clojure.main -i $1 -r $@
+java -Xmx256m -server -cp .:lib/commons-io-1.4.jar:lib/commons-fileupload-1.2.1.jar:lib/commons-codec-1.3.jar:lib/jline-0.9.94.jar:lib/clojure.jar:lib/clojure-contrib.jar:lib/compojure-3.2v1.jar:lib/jetty-6.1.14.jar:lib/jetty-util-6.1.14.jar:lib/servlet-api-2.5-6.1.14.jar:lib/postgresql-8.4-701.jdbc4.jar:lib/stringtemplate-3.2.1.jar:lib/antlr-2.7.7.jar:lib/mail-1.4.4.jar:src/ jline.ConsoleRunner clojure.main -i $1 -r $@
diff --git a/lib/mail-1.4.4.jar b/lib/mail-1.4.4.jar
new file mode 100644
index 0000000..c4fc4c8
Binary files /dev/null and b/lib/mail-1.4.4.jar differ
diff --git a/src/email.clj b/src/email.clj
new file mode 100644
index 0000000..2a68e7b
--- /dev/null
+++ b/src/email.clj
@@ -0,0 +1,68 @@
+(ns email
+  (:import org.antlr.stringtemplate.StringTemplateGroup)
+  (:require [clojure.contrib.str-utils2 :as str-utils2]))
+
+(defn base-mail [& m]
+  (let [mail (apply hash-map m)
+        props (java.util.Properties.)]
+
+    (doto props
+      (.put "mail.smtp.host" (:host mail))
+      (.put "mail.smtp.port" (:port mail))
+      (.put "mail.smtp.user" (:user mail))
+      (.put "mail.smtp.socketFactory.port"  (:port mail))
+      (.put "mail.smtp.auth" "true"))
+
+    (if (= (:ssl mail) true)
+      (doto props
+        (.put "mail.smtp.starttls.enable" "true")
+        (.put "mail.smtp.socketFactory.class" 
+              "javax.net.ssl.SSLSocketFactory")
+        (.put "mail.smtp.socketFactory.fallback" "false")))
+
+    (let [authenticator (proxy [javax.mail.Authenticator] [] 
+                          (getPasswordAuthentication 
+                           []
+                           (javax.mail.PasswordAuthentication. 
+                            (:user mail) (:password mail))))
+          session (javax.mail.Session/getDefaultInstance props authenticator)
+          msg     (javax.mail.internet.MimeMessage. session)] 
+
+      (.setFrom msg (javax.mail.internet.InternetAddress. (:user mail)))
+      (doseq [to (:to mail)] 
+        (.setRecipients msg 
+                        (javax.mail.Message$RecipientType/TO)
+                        (javax.mail.internet.InternetAddress/parse to)))
+      (.setSubject msg (:subject mail))
+      (.setText msg (:text mail))
+      (javax.mail.Transport/send msg))))
+
+(def mail-templates (new StringTemplateGroup "dumpfm-mail" "template/mail"))
+(.setRefreshInterval mail-templates 3)
+
+(defn parse-mail-template [temp props]
+  (let [st (.getInstanceOf mail-templates temp)]
+    (doseq [[k v] props]
+      (.setAttribute st k v))
+    (let [[s b] (.split (.toString st) "\\n" 2)]
+      [(.trim (.replaceFirst s "SUBJECT: " ""))
+       (.trim b)])))
+
+(defn dump-mail [to subject text]
+  (base-mail :user "info@dump.fm"
+             :password "dumprulez7"
+             :host "smtpout.secureserver.net"
+             :port 25
+             :ssl false
+             :to to
+             :subject subject
+             :text text))
+
+(defn send-registration-email [nick email]
+  (let [[s b] (parse-mail-template "welcome" {"nick" nick})]
+    (dump-mail [email] s b)))
+
+(defn send-reset-email [nick email key]
+  (let [[s b] (parse-mail-template "reset" {"nick" nick "key" key})]
+    (dump-mail [email] s b)))
+
-- 
cgit v1.2.3-70-g09d2


From bd3925a4a19dd3b2c65abad579887b108d8f8546 Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Fri, 2 Apr 2010 13:32:42 -0400
Subject: add register email

---
 src/site.clj | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/site.clj b/src/site.clj
index 483757a..fe0ed5f 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -15,6 +15,7 @@
         clojure.contrib.sql
         clojure.contrib.str-utils
         compojure
+        email
         utils
         cookie-login
         session-sweeper
@@ -319,6 +320,7 @@
 				 [:nick :hash :email]
 				 [nick hash email])
 		  (let [db-user (fetch-nick nick)]
+                    (send-registration-email nick email)
 		    [(session-assoc-from-db db-user)
 		     (resp-success "OK")])))))
 
-- 
cgit v1.2.3-70-g09d2