From 0487b4804c8503358445de5d45d9ac32cb8039f1 Mon Sep 17 00:00:00 2001 From: EuAndreh Date: Mon, 30 Nov 2020 16:23:39 -0300 Subject: vps.scm: s/generate-ci-index-html/generate-logs-html/ --- sync/vps.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'sync') diff --git a/sync/vps.scm b/sync/vps.scm index 2110757..25aef3d 100644 --- a/sync/vps.scm +++ b/sync/vps.scm @@ -215,7 +215,7 @@ (ci-data-in-repo-notes name (string-append git-data-path "/" name)))) "")) -(define (generate-ci-index-html) +(define (generate-logs-html) (call-with-output-file (string-append ci-data-path "/index.html") (partial display (string-append ci-html-beginning @@ -276,15 +276,15 @@ pki " mail-domain " key \"" (tls-priv-for mail-domain) "\""))) (string-append prefix "." tld)) tls-prefixes))) -(define generate-ci-index-html-job +(define generate-logs-html-job #~(job "*/5 * * * *" #$(program-file - "generate-ci-index-html.scm" + "generate-logs-html.scm" (with-imported-modules (modules:source-module-closure '((guix build utils))) #~(begin (use-modules (guix build utils)) - (display 'generate-ci-index-html)))))) + (display 'generate-logs-html)))))) (operating-system (locale "fr_FR.UTF-8") @@ -314,7 +314,7 @@ pki " mail-domain " key \"" (tls-priv-for mail-domain) "\""))) `((,user ,(plain-file "id_rsa.pub" ssh-public-key)))))) (service mcron-service-type (mcron-configuration - (jobs (list generate-ci-index-html-job)))) + (jobs (list generate-logs-html-job)))) (simple-service 'automatic-certbot-renewal activation-service-type (with-imported-modules '((gnu services herd)) -- cgit v1.2.3