summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOleg Pykhalov <go.wigust@gmail.com>2018-07-31 23:59:51 +0300
committerOleg Pykhalov <go.wigust@gmail.com>2018-08-01 03:24:43 +0300
commitceec6f057e4e6ac07f832e4a862f284c415f926c (patch)
treed9bf31e0c2b0d22943962d83bacc179e264b6e0e
parentwigust: services: Add autopostgresqlbackup. (diff)
downloadguix-wigust-ceec6f057e4e6ac07f832e4a862f284c415f926c.tar.gz
wigust: services: Update ddclient.
* wigust/services/dns.scm (ddclient): Update service.
-rw-r--r--wigust/services/dns.scm17
1 files changed, 10 insertions, 7 deletions
diff --git a/wigust/services/dns.scm b/wigust/services/dns.scm
index db4584c..83f19c9 100644
--- a/wigust/services/dns.scm
+++ b/wigust/services/dns.scm
@@ -145,9 +145,12 @@ program.")
(lambda ()
(serialize-configuration config
ddclient-configuration-fields)))
- "\n\n# Appended from '" ddclient-secret-file "'.\n\n"
- (with-input-from-file ddclient-secret-file
- read-string)))))
+ (if (string-null? ddclient-secret-file)
+ ""
+ (format #f "\n\n# Appended from '~a'.\n\n~a"
+ ddclient-secret-file
+ (with-input-from-file ddclient-secret-file
+ read-string)))))))
(chmod "/etc/ddclient/ddclient.conf" #o600)
(chown "/etc/ddclient/ddclient.conf"
ddclient-user ddclient-group)))))
@@ -163,16 +166,16 @@ program.")
(documentation "Run ddclient daemon.")
(start #~(make-forkexec-constructor
(list #$(file-append ddclient "/bin/ddclient")
- "-foreground" "-file" "/etc/ddclient/ddclient.conf"
- "-debug" "-verbose")
+ "-foreground"
+ "-file" "/etc/ddclient/ddclient.conf")
#:pid-file #$ddclient-pid
#:environment-variables
(list "SSL_CERT_DIR=/run/current-system/profile\
/etc/ssl/certs"
"SSL_CERT_FILE=/run/current-system/profile\
/etc/ssl/certs/ca-certificates.crt")
- #:user ddclient-user
- #:group ddclient-group))
+ #:user #$ddclient-user
+ #:group #$ddclient-group))
(stop #~(make-kill-destructor))))))
(define ddclient-service-type