Overview
| Comment: | Fixed issue with deleting server lock |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
702e56f5a226458ce02fba6c18902b0b |
| User & Date: | jmoon18 on 2019-08-28 15:09:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-08-29
| ||
| 10:28 | Added dependency between all-rmt and all-api in tests/Makefile check-in: 769eada458 user: mrwellan tags: v1.65 | |
|
2019-08-28
| ||
| 15:09 | Fixed issue with deleting server lock check-in: 702e56f5a2 user: jmoon18 tags: v1.65 | |
| 11:25 | Fix bad call to rmt: in db, updated Makefile with dependency on mtest for unittests and commented out a db: call in all-rmt.scm check-in: b2688e2769 user: mrwellan tags: v1.65 | |
Changes
Modified common.scm from [98185b83db] to [f3d7e41a3c].
| ︙ | ︙ | |||
644 645 646 647 648 649 650 |
;; if lock is older than expire-time then remove it and try again
;; to get the lock
;;
(define (common:simple-file-lock fname #!key (expire-time 300))
(if (common:file-exists? fname)
(if (> (- (current-seconds)(file-modification-time fname)) expire-time)
(begin
| | | 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 |
;; if lock is older than expire-time then remove it and try again
;; to get the lock
;;
(define (common:simple-file-lock fname #!key (expire-time 300))
(if (common:file-exists? fname)
(if (> (- (current-seconds)(file-modification-time fname)) expire-time)
(begin
(handle-exceptions exn #f (delete-file* fname))
(common:simple-file-lock fname expire-time: expire-time))
#f)
(let ((key-string (conc (get-host-name) "-" (current-process-id))))
(with-output-to-file fname
(lambda ()
(print key-string)))
(thread-sleep! 0.25)
|
| ︙ | ︙ |