Add a service to rotate the nginx log file

1 files changed, 25 insertions, 0 deletions

diff --git a/guix/vkraus/modules/web.scm b/guix/vkraus/modules/web.scm
new file mode 100644
index 0000000..37650a5
--- /dev/null
+++ b/guix/vkraus/modules/web.scm
@@ -0,0 +1,25 @@
+(define-module (vkraus modules web)
+  #:use-module (gnu services)
+  #:use-module (gnu services admin)
+  #:use-module (gnu services web)
+  #:use-module (guix gexp)
+  #:use-module (guix modules)
+  #:use-module (guix records)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 optargs))
+
+(define-public nginx-rotate-log-service-type
+  (service-type
+   (name 'nginx-rotate-log)
+   (extensions
+    (list
+     (service-extension
+      rottlog-service-type
+      (const
+       (list
+        (log-rotation
+         (frequency 'daily)
+         (files "/var/log/nginx/*")
+         (post-rotate
+          #~(let ((pid (call-with-input-file "/var/run/nginx/pid" read)))
+	      (kill pid SIGUSR1)))))))))))