crappyrules/notehub
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

dry-run option added to gc

Browse Source
This commit is contained in:
Christian Mueller
2014-05-03 15:31:24 +02:00
parent 17ebe7e302
commit f0f5345101
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/notehub/storage.clj
+3 -3
View File
@@ -132,7 +132,7 @@
(redis :sadd (str noteID :urls) url) (redis :sadd (str noteID :urls) url)
url)))) url))))
(defn gc [password] (defn gc [password dry]
(when (= password (get-setting :admin-pw)) (when (= password (get-setting :admin-pw))
(let [N 30 (let [N 30
timestamp (- (get-current-date) (* N 24 60 60 1000)) timestamp (- (get-current-date) (* N 24 60 60 1000))
@@ -142,6 +142,6 @@
(catch Exception a 0)) N) old-notes)] (catch Exception a 0)) N) old-notes)]
(println "timestamp:" (str (java.util.Date. timestamp))) (println "timestamp:" (str (java.util.Date. timestamp)))
(doseq [note-id unpopular-notes] (doseq [note-id unpopular-notes]
(do (println "deleting" note-id) (do (println (if dry "to be deleted" "deleting") note-id)
(delete-note note-id))) (when-not dry (delete-note note-id))))
(println (count unpopular-notes) "deleted")))) (println (count unpopular-notes) "deleted"))))