[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
139/184: services: hpcguix-web: Delete lock files during activation.
From: |
guix-commits |
Subject: |
139/184: services: hpcguix-web: Delete lock files during activation. |
Date: |
Wed, 27 Nov 2019 14:37:15 -0500 (EST) |
kkebreau pushed a commit to branch wip-gnome-updates
in repository guix.
commit dc33d5fcfc9f2d69ceb86e47312ec17cf0ca3136
Author: Ludovic Courtès <address@hidden>
Date: Sat Nov 9 15:12:30 2019 +0100
services: hpcguix-web: Delete lock files during activation.
* gnu/services/web.scm (%hpcguix-web-activation): Delete ".lock" files
from HOME-DIR.
---
gnu/services/web.scm | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/gnu/services/web.scm b/gnu/services/web.scm
index d0c9d0d..3d149a1 100644
--- a/gnu/services/web.scm
+++ b/gnu/services/web.scm
@@ -1049,13 +1049,22 @@ a webserver.")
(define %hpcguix-web-activation
(with-imported-modules '((guix build utils))
#~(begin
- (use-modules (guix build utils))
+ (use-modules (guix build utils)
+ (ice-9 ftw))
(let ((home-dir "/var/cache/guix/web")
(user (getpwnam "hpcguix-web")))
(mkdir-p home-dir)
(chown home-dir (passwd:uid user) (passwd:gid user))
- (chmod home-dir #o755)))))
+ (chmod home-dir #o755)
+
+ ;; Remove stale 'packages.json.lock' file (and other lock files, if
+ ;; any) since that would prevent 'packages.json' from being updated.
+ (for-each (lambda (lock)
+ (delete-file (string-append home-dir "/" lock)))
+ (scandir home-dir
+ (lambda (file)
+ (string-suffix? ".lock" file))))))))
(define %hpcguix-web-log-file
"/var/log/hpcguix-web.log")
- 124/184: build: Warn about etc/indent-code.el when Emacs is absent., (continued)
- 124/184: build: Warn about etc/indent-code.el when Emacs is absent., guix-commits, 2019/11/27
- 138/184: services: hpcguix-web: Explicitly import (guix build utils)., guix-commits, 2019/11/27
- 136/184: gnu: perl-class-inspector: Update to 1.36., guix-commits, 2019/11/27
- 125/184: gnu: Add homebank., guix-commits, 2019/11/27
- 135/184: gnu: parcimonie: Update to 0.11.0., guix-commits, 2019/11/27
- 133/184: gnu: fribidi: Fix CVE-2019-18397., guix-commits, 2019/11/27
- 149/184: gnu: fvwm: Don't use NAME in source URI., guix-commits, 2019/11/27
- 142/184: gnu: make-bootstrap: Memoize GCC variant., guix-commits, 2019/11/27
- 146/184: gnu: Add artyfx, guix-commits, 2019/11/27
- 140/184: tests: Update references to the now-deprecated 'guile-json' variable., guix-commits, 2019/11/27
- 139/184: services: hpcguix-web: Delete lock files during activation.,
guix-commits <=
- 152/184: gnu: gegl: Add source URIs., guix-commits, 2019/11/27
- 162/184: gnu: monero: Update to 0.15.0.0., guix-commits, 2019/11/27
- 154/184: gnu: gimp: Update to 2.10.14., guix-commits, 2019/11/27
- 157/184: gnu: faad2: Update to 2.8.6., guix-commits, 2019/11/27
- 161/184: gnu: Remove monero-miniupnpc., guix-commits, 2019/11/27
- 177/184: gnu: qemu: Add upstream patch for failing test., guix-commits, 2019/11/27
- 176/184: gnu: Move numix-theme to gnome-xyz.scm., guix-commits, 2019/11/27
- 179/184: gnu: Add boost-with-python3., guix-commits, 2019/11/27
- 175/184: gnu: limnoria: Update to 2019.11.09 [security fix]., guix-commits, 2019/11/27
- 182/184: Merge branch 'master' into wip-gnome-updates, guix-commits, 2019/11/27