On Tue, 11 Jun 2019, Jack Hill wrote:
Here's where I define a service that extends mcron-service-type
I copied the code for this service from my channel into an arbitrary
service file in the guix repository, hoping for a different message that
would provide more insight. To my surprise, it build sucessfully, and I as
able to sucessfully search for my service using `./pre-inst-env guix
system search`.
Ideas?
Here's the patch that I added to guix:
From c91455049a4bd5eca9f3128135c000d6d881a23a Mon Sep 17 00:00:00 2001
From: Jack Hill <jackh...@jackhill.us>
Date: Wed, 12 Jun 2019 20:38:13 -0400
Subject: [PATCH] test commit
---
gnu/services/certbot.scm | 32 +++++++++++++++++++++++++++++++-
1 file changed, 31 insertions(+), 1 deletion(-)
diff --git a/gnu/services/certbot.scm b/gnu/services/certbot.scm
index ae34ad17bb..ecca5f360b 100644
--- a/gnu/services/certbot.scm
+++ b/gnu/services/certbot.scm
@@ -27,6 +27,7 @@
#:use-module (gnu services web)
#:use-module (gnu system shadow)
#:use-module (gnu packages tls)
+ #:use-module (gnu packages certs)
#:use-module (guix i18n)
#:use-module (guix records)
#:use-module (guix gexp)
@@ -35,7 +36,10 @@
#:export (certbot-service-type
certbot-configuration
certbot-configuration?
- certificate-configuration))
+ certificate-configuration
+ planisphere-report-configuration
+ planisphere-report-configuration?
+ planisphere-report-service-type))
;;; Commentary:
;;;
@@ -190,3 +194,29 @@
"Automatically renew @url{https://letsencrypt.org, Let's
Encrypt} HTTPS certificates by adjusting the nginx web server configuration
and periodically invoking @command{certbot}.")))
+
+(define-record-type* <planisphere-report-configuration>
+ planisphere-report-configuration make-planisphere-report-configuration
+ planisphere-report-configuration?
+ (certs planisphere-report-certs
+ (default nss-certs))
+ (package planisphere-report-package
+ (default nss-certs))
+ (schedule planisphere-report-schedule
+ (default '(quote (next-minute-from (next-hour '(0 12)) (list
(random 60)))))))
+
+(define (planisphere-report-jobs config)
+ (let ((sched-spec (planisphere-report-schedule config))
+ (certs (file-append (planisphere-report-certs config) "/etc/ssl/certs"))
+ (cmd (file-append (planisphere-report-package config)
"/bin/planisphere-report")))
+ (list
+ #~(append-environment-mods "SSL_CERT_DIR" #$certs)
+ #~(job #$sched-spec #$cmd))))
+
+(define planisphere-report-service-type
+ (service-type
+ (name 'planisphere-report)
+ (extensions
+ (list (service-extension mcron-service-type planisphere-report-jobs)))
+ (default-value (planisphere-report-configuration))
+ (description "Periodically run @command{planisphere-report} to update the OIT
endpoint database.")))
--
2.21.0
compared to the service in my channel
(define-module (guix-at-duke services endpoint-management)
#:use-module (gnu services)
#:use-module (gnu services mcron)
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (guix-at-duke packages endpoint-management)
#:export (planisphere-report-configuration
planisphere-report-configuration?
planisphere-report-service-type))
(define-record-type* <planisphere-report-configuration>
planisphere-report-configuration make-planisphere-report-configuration
planisphere-report-configuration?
(package planisphere-report-package
(default planisphere-report))
(schedule planisphere-report-schedule
(default '(quote (next-minute-from (next-hour '(0 12)) (list
(random 60)))))))
(define (planisphere-report-jobs config)
(let ((sched-spec (planisphere-report-schedule config))
(cmd (file-append (planisphere-report-package config)
"/bin/planisphere-report")))
(list
#~(job #$sched-spec #$cmd))))
(define planisphere-report-service-type
(service-type
(name 'planisphere-report)
(extensions
(list (service-extension mcron-service-type planisphere-report-jobs)))
(default-value (planisphere-report-configuration))
(description "Periodically run @command{planisphere-report} to update the OIT
endpoint database.")))
