From 53772f312235b0a8743c94287b2a7417e8fd42a0 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Sun, 12 Sep 2010 02:44:27 -0400 Subject: imgreplace adds timestamp to replaced files --- src/imgreplacer.clj | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/imgreplacer.clj b/src/imgreplacer.clj index 4963e02..fe316c7 100644 --- a/src/imgreplacer.clj +++ b/src/imgreplacer.clj @@ -32,11 +32,14 @@ (reduce (fn [s [k v]] (.replaceAll s k v)) string replacements)) +(defn image-name [url] + (format "%s-%s" (System/currentTimeMillis) (last (.split url "/")))) + (defn mirror-image [url] (println "fetching" url) (let [bytes (to-byte-array (.openStream (URL. url))) date (today) - fname (last (.split url "/")) + fname (image-name url) file (File. (file-path date fname)) img (ImageIO/read (ByteArrayInputStream. bytes))] (make-parents file) -- cgit v1.2.3-70-g09d2