diff options
| -rwxr-xr-x | src/site.clj | 10 |
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!) |