From eeba024c1ff3ce8a57fba9b8fb40e6ac371ae560 Mon Sep 17 00:00:00 2001 From: Saku Laesvuori Date: Thu, 28 Sep 2023 14:48:37 +0300 Subject: [PATCH] Periodically GC expired emails --- .guix/modules/datarekisteri-service.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/.guix/modules/datarekisteri-service.scm b/.guix/modules/datarekisteri-service.scm index 0e0b5ec..1a594e9 100644 --- a/.guix/modules/datarekisteri-service.scm +++ b/.guix/modules/datarekisteri-service.scm @@ -7,6 +7,7 @@ #:use-module (gnu services certbot) #:use-module (gnu services configuration) #:use-module (gnu services databases) + #:use-module (gnu services mcron) #:use-module (gnu services shepherd) #:use-module (gnu services web) #:use-module (gnu system shadow) @@ -131,11 +132,20 @@ (datarekisteri-backend) (list datarekisteri-backend))) +(define (backend-mcron-jobs config) + (match-record config + (datarekisteri-backend) + (list + #~(job '(next-minute '(0)) + (string-append #$datarekisteri-backend "/bin/datarekisteri-cli gc-expired-emails") + #:user "datarekisteri-backend")))) + (define plain-datarekisteri-backend-service-type (service-type (name 'plain-datarekisteri-backend) (extensions (list (service-extension account-service-type backend-accounts) + (service-extension mcron-service-type backend-mcron-jobs) (service-extension postgresql-role-service-type backend-postgresql-roles) (service-extension profile-service-type backend-profile) (service-extension shepherd-root-service-type backend-shepherd-service)))