f
/
clojurecup2014-luduverse
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Some deployment adjustments

This commit is contained in:
Aaron Mueller 2014-09-28 17:54:44 +02:00
parent 06b298c376
commit a5f8ef702f
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
deploy.sh
View File

@ -1,4 +1,4 @@
#!/usr/bin/env bash
rsync -uva --delete --exclude=.git --exclude=target . clojurecup@luduverse.clojurecup.com:/home/clojurecup/luduverse
rsync -uva --delete --exclude=.git --exclude=target --exclude=resources/ld-images . clojurecup@luduverse.clojurecup.com:/home/clojurecup/luduverse
ssh clojurecup@luduverse.clojurecup.com 'cd /home/clojurecup/luduverse && /home/clojurecup/bin/lein immutant deploy'

15
src/luduverse/images.clj
View File

@ -13,7 +13,7 @@
(defn base-path
;([] (str (noir-io/resource-path) "img"))
([] "resources/img")
([] "resources/ld-images")
([competition-id] (str (base-path) "/ld" competition-id "/")))
(defn create-file-structure [competition-id]
@ -58,7 +58,12 @@
number (last (first (re-seq #"shot([0-9]+)" image-url)))
raw-image-path (image-name competition-id "raw" id number)]
(if-not (fs/exists? raw-image-path)
(do
(save-image-from-url image-url raw-image-path)
(sourceimage->fullscreen raw-image-path (image-name competition-id "fullscreen" id number))
(sourceimage->thumb raw-image-path (image-name competition-id "thumbs" id number)))))))
(try
(do
(save-image-from-url image-url raw-image-path)
(sourceimage->fullscreen raw-image-path (image-name competition-id "fullscreen" id number))
(sourceimage->thumb raw-image-path (image-name competition-id "thumbs" id number)))
(catch Exception e
(do
(print (str competition-id ": " id))
(print (.getMessage e)))))))))