services: smartdns-service-type: Add option to specify log file.

* rosenthal/services/dns.scm (smartdns-configuration): Add log-file option.
(smartdns-shepherd-service): Honor it.
remotes/origin/cloudflared-unbundle
Hilton Chain 2 years ago
parent 93fa311070
commit 37d9e02d76
No known key found for this signature in database
GPG Key ID: 5E5AA665614917F7
  1. 10
      rosenthal/services/dns.scm

@ -23,18 +23,22 @@
"The Smartdns package.") "The Smartdns package.")
(config (config
(file-like (plain-file "empty" "")) (file-like (plain-file "empty" ""))
"Configuration file for Smartdns.")) "Configuration file for Smartdns.")
(log-file
(string "/var/log/smartdns.log")
"Where the logs go."))
(define smartdns-shepherd-service (define smartdns-shepherd-service
(match-lambda (match-lambda
(($ <smartdns-configuration> smartdns config) (($ <smartdns-configuration> smartdns config log-file)
(list (shepherd-service (list (shepherd-service
(documentation "Run smartdns.") (documentation "Run smartdns.")
(provision '(smartdns dns)) (provision '(smartdns dns))
(requirement '(loopback networking)) (requirement '(loopback networking))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list #$(file-append smartdns "/sbin/smartdns") (list #$(file-append smartdns "/sbin/smartdns")
"-f" "-x" "-c" #$(file-append config)))) "-f" "-x" "-c" #$(file-append config))
#:log-file #$log-file))
(stop #~(make-kill-destructor))))))) (stop #~(make-kill-destructor)))))))
(define smartdns-service-type (define smartdns-service-type

Loading…
Cancel
Save