Repository : http://git.fedorahosted.org/cgit/jenkinscat-docs.git
On branch : master
commit dbaad80c75a3ff0dba303b6f5242c9fb021766e5 Author: Pavel Tisnovsky ptisnovs@redhat.com Date: Wed Feb 4 11:19:21 2015 +0100
Added function to move and rename file(s). Added new configuration option.
ChangeLog | 7 +++++++ src/jenkinscat/config.clj | 6 +++++- src/jenkinscat/fileutils.clj | 9 ++++++++- 3 files changed, 20 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog index 0ac0db8..58453dd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +2015-02-04 Pavel Tisnovsky ptisnovs@redhat.com + + * src/jenkinscat/config.clj: + Added new configuration option. + * src/jenkinscat/fileutils.clj: + Added function to move and rename file(s). + 2015-02-03 Pavel Tisnovsky ptisnovs@redhat.com
* src/jenkinscat/books.clj: diff --git a/src/jenkinscat/config.clj b/src/jenkinscat/config.clj index eced421..cf826c7 100644 --- a/src/jenkinscat/config.clj +++ b/src/jenkinscat/config.clj @@ -1,7 +1,7 @@ ;;; ;;; Jenkinscat HTTP server that handles all requests send from clients/browsers. ;;; -;;; Copyright (c) 2014 Pavel Tisnovsky, Red Hat +;;; Copyright (c) 2014, 2015 Pavel Tisnovsky, Red Hat ;;; All rights reserved. ;;; ;;; Redistribution and use in source and binary forms, with or without @@ -59,3 +59,7 @@ "Whether devel mode should be on." true)
+(def fetcher-sleep-amount + "Amount of sleep for fetcher. The sleep amount is specified in minutes." + 2) + diff --git a/src/jenkinscat/fileutils.clj b/src/jenkinscat/fileutils.clj index f3abef7..52ab7ad 100644 --- a/src/jenkinscat/fileutils.clj +++ b/src/jenkinscat/fileutils.clj @@ -1,7 +1,7 @@ ;;; ;;; Jenkinscat HTTP server that handles all requests send from clients/browsers. ;;; -;;; Copyright (c) 2014 Pavel Tisnovsky, Red Hat +;;; Copyright (c) 2014, 2015 Pavel Tisnovsky, Red Hat ;;; All rights reserved. ;;; ;;; Redistribution and use in source and binary forms, with or without @@ -84,3 +84,10 @@ temp-dir (new java.io.File basedir-name base-name)] (.getAbsolutePath temp-dir)))
+(defn mv-file + "Move or rename one file. On the same filesystem the rename should be atomic." + [filename1 filename2] + (let [file1 (new java.io.File filename1) + file2 (new java.io.File filename2)] + (.renameTo file1 file2))) +