Fixed directory order

1 files changed, 5 insertions, 5 deletions

diff --git a/src/site.clj b/src/site.clj
index 34896e1..9ef4cdf 100755
--- a/src/site.clj
+++ b/src/site.clj
@@ -410,7 +410,8 @@
                            WHERE user_id = u.user_id
                            AND room_id = 1
                            AND is_image = true
-                           ORDER BY created_on LIMIT 1)")]
+                           ORDER BY created_on DESC LIMIT 1)")]
+    (println qry)
     (when (> (count user-ids) 0)
       (let [res (do-select [qry])
             keys (map :user_id res)           
@@ -829,13 +830,11 @@
   (with-mimetypes {:mimetypes mimetypes}))
 
 (decorate pichat
-  (with-origin-check)
   (with-mimetypes {:mimetypes mimetypes})
   (with-cookie-login (comp not logged-in?) make-login-token read-login-token)
   (with-session {:type :memory, :expires (* 60 60)}))
 
 (decorate multipart
-  (with-origin-check)
   (with-mimetypes {:mimetypes mimetypes})
   (with-session {:type :memory, :expires (* 60 60)})
   (with-multipart))
@@ -859,9 +858,10 @@
   "Parses command-line arguments. First arg is script name,
   second arg is port number (defaults to 8080)."
   ([script] {:port 8080})
-  ([script port] {:port (maybe-parse-int port)}))
+  ([script port] {:port (Integer/parseInt port)}))
 
-(def options (apply parse-command-args *command-line-args*))
+(def options 
+     (apply parse-command-args *command-line-args*))
 
 (start-server (options :port))
 (start-user-flusher!)