diff options
| author | EuAndreh <eu@euandre.org> | 2020-11-30 16:23:39 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2020-11-30 16:24:29 -0300 |
| commit | 0487b4804c8503358445de5d45d9ac32cb8039f1 (patch) | |
| tree | fea81dab7ac51151379902c10904d6471c5eb2a0 /sync | |
| parent | vps.scm: Remove (restore-logfiles) and serve them from cgit directly (diff) | |
| download | server-0487b4804c8503358445de5d45d9ac32cb8039f1.tar.gz server-0487b4804c8503358445de5d45d9ac32cb8039f1.tar.xz | |
vps.scm: s/generate-ci-index-html/generate-logs-html/
Diffstat (limited to 'sync')
| -rw-r--r-- | sync/vps.scm | 10 |
1 files changed, 5 insertions, 5 deletions
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)))) "</ul>")) -(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)) |