From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:40797) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fdzYG-0004x2-PI for guix-patches@gnu.org; Fri, 13 Jul 2018 11:00:10 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fdzYC-00012B-Po for guix-patches@gnu.org; Fri, 13 Jul 2018 11:00:08 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:51186) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fdzYC-000127-M7 for guix-patches@gnu.org; Fri, 13 Jul 2018 11:00:04 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fdzYC-0006QY-EP for guix-patches@gnu.org; Fri, 13 Jul 2018 11:00:04 -0400 Subject: [bug#32141] [PATCH] services: Add ddclient service. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:40713) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fdzXO-0004iG-LI for guix-patches@gnu.org; Fri, 13 Jul 2018 10:59:16 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fdzXK-0000c1-KC for guix-patches@gnu.org; Fri, 13 Jul 2018 10:59:14 -0400 Received: from mail-lj1-x233.google.com ([2a00:1450:4864:20::233]:34372) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fdzXK-0000bl-7H for guix-patches@gnu.org; Fri, 13 Jul 2018 10:59:10 -0400 Received: by mail-lj1-x233.google.com with SMTP id f8-v6so7047208ljk.1 for ; Fri, 13 Jul 2018 07:59:10 -0700 (PDT) From: Oleg Pykhalov Date: Fri, 13 Jul 2018 17:58:54 +0300 Message-Id: <20180713145854.12250-1-go.wigust@gmail.com> MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 32141@debbugs.gnu.org * gnu/services/dns.scm (ddclient-configuration, opaque-ddclient-configuration, ddclient-service-type): New variables. (uglify-field-name, serialize-field, serialize-boolean, serialize-integer, serialize-string, serialize-list, serialize-extra-options, ddclient-activation, ddclient-shepherd-service, generate-ddclient-documentation, generate-opaque-ddclient-documentation): New procedures. * doc/guix.texi (DNS Services): Document it. --- doc/guix.texi | 107 +++++++++++++++++++++++++++++++++ gnu/services/dns.scm | 137 ++++++++++++++++++++++++++++++++++++++++++- 2 files changed, 243 insertions(+), 1 deletion(-) diff --git a/doc/guix.texi b/doc/guix.texi index eaec4c422..fcc7c0037 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -17123,6 +17123,113 @@ When false, disable negative caching. @end table @end deftp +@subsubheading ddclient Service + +@cindex ddclient +@uref{https://sourceforge.net/projects/ddclient/, ddclient} is an address +updating utility for dynamic DNS services. + +The following example will configure the service with values from +@file{ddclient.conf} file. You could get a @file{ddclient.conf} sample from +@code{ddclient} package. + +@example +(use-modules (ice-9 textual-ports)) + +(service ddclient-service-type + (opaque-ddclient-configuration + (ddclient-conf + (call-with-input-file "ddclient.conf" + get-string-all)))) +@end example + +@c %start of fragment + +Available @code{opaque-ddclient-configuration} fields are: + +@deftypevr {@code{opaque-ddclient-configuration} parameter} package ddclient +The ddclient package. + +@end deftypevr + +@deftypevr {@code{opaque-ddclient-configuration} parameter} string ddclient-conf +The contents of the @file{ddclient.conf} to use. + +@end deftypevr + +@deftypevr {@code{opaque-ddclient-configuration} parameter} string pid +The ddclient PID file. + +Defaults to @samp{"/var/run/ddclient.pid"}. + +@end deftypevr + + +@c %end of fragment + + +@c %start of fragment + +Available @code{ddclient-configuration} fields are: + +@deftypevr {@code{ddclient-configuration} parameter} package ddclient +The ddclient package. + +@end deftypevr + +@deftypevr {@code{ddclient-configuration} parameter} integer daemon +The period after which ddclient will retry to check IP and domain name. + +Defaults to @samp{300}. + +@end deftypevr + +@deftypevr {@code{ddclient-configuration} parameter} boolean syslog +Use syslog for the output. + +Defaults to @samp{#t}. + +@end deftypevr + +@deftypevr {@code{ddclient-configuration} parameter} string mail +Mail to user. + +Defaults to @samp{"root"}. + +@end deftypevr + +@deftypevr {@code{ddclient-configuration} parameter} string mail-failure +Mail failed update to user. + +Defaults to @samp{"root"}. + +@end deftypevr + +@deftypevr {@code{ddclient-configuration} parameter} string pid +The ddclient PID file. + +Defaults to @samp{"/var/run/ddclient.pid"}. + +@end deftypevr + +@deftypevr {@code{ddclient-configuration} parameter} boolean ssl +Enable SSL support. + +Defaults to @samp{#t}. + +@end deftypevr + +@deftypevr {@code{ddclient-configuration} parameter} list extra-options +Extra options will be appended to ddclient configuration file. + +Defaults to @samp{()}. + +@end deftypevr + + +@c %end of fragment + + @node VPN Services @subsubsection VPN Services @cindex VPN (virtual private network) diff --git a/gnu/services/dns.scm b/gnu/services/dns.scm index 2c57a36b8..7a3184b42 100644 --- a/gnu/services/dns.scm +++ b/gnu/services/dns.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Julien Lepiller +;;; Copyright © 2018 Oleg Pykhalov ;;; ;;; This file is part of GNU Guix. ;;; @@ -45,7 +46,11 @@ zone-entry dnsmasq-service-type - dnsmasq-configuration)) + dnsmasq-configuration + + ddclient-service-type + ddclient-configuration + opaque-ddclient-configuration)) ;;; ;;; Knot DNS. @@ -670,3 +675,133 @@ (compose list dnsmasq-shepherd-service)))) (default-value (dnsmasq-configuration)) (description "Run the dnsmasq DNS server."))) + + +;;; +;;; ddclient +;;; + +(define (uglify-field-name field-name) + (string-delete #\? (symbol->string field-name))) + +(define (serialize-field field-name val) + (format #t "~a=~a\n" (uglify-field-name field-name) val)) + +(define (serialize-boolean field-name val) + (serialize-field field-name (if val "yes" "no"))) + +(define (serialize-integer field-name val) + (serialize-field field-name (number->string val))) + +(define (serialize-string field-name val) + (if (and (string? val) (string=? val "")) + "" + (serialize-field field-name val))) + +(define (serialize-list field-name val) + (if (null? val) "" (serialize-field field-name (string-join val)))) + +(define (serialize-extra-options extra-options) + (string-join extra-options "\n" 'suffix)) + +(define-configuration ddclient-configuration + (ddclient + (package ddclient) + "The ddclient package.") + (daemon + (integer 300) + "The period after which ddclient will retry to check IP and domain name.") + (syslog + (boolean #t) + "Use syslog for the output.") + (mail + (string "root") + "Mail to user.") + (mail-failure + (string "root") + "Mail failed update to user.") + (pid + (string "/var/run/ddclient.pid") + "The ddclient PID file.") + (ssl + (boolean #t) + "Enable SSL support.") + (extra-options + (list '()) + "Extra options will be appended to ddclient configuration file.")) + +(define-configuration opaque-ddclient-configuration + (ddclient + (package ddclient) + "The ddclient package.") + (ddclient-conf + (string (configuration-missing-field 'opaque-ddclient-configuration + 'ddclient-conf)) + "The contents of the @file{ddclient.conf} to use.") + (pid + (string "/var/run/ddclient.pid") + "The ddclient PID file.")) + +(define (ddclient-activation config) + "Return the activation GEXP for CONFIG." + (let ((config-str + (if (opaque-ddclient-configuration? config) + (opaque-ddclient-configuration-ddclient-conf config) + (with-output-to-string + (lambda () + (serialize-configuration config + ddclient-configuration-fields)))))) + (with-imported-modules '((guix build utils)) + #~(begin + (use-modules (guix build utils)) + (mkdir-p "/var/cache/ddclient") + ;; 'ddclient' complains about ddclient.conf file permissions, which + ;; rules out /gnu/store. Thus we copy the ddclient.conf to /etc. + (mkdir-p "/etc/ddclient") + (let ((file "/etc/ddclient/ddclient.conf")) + (copy-file #$(plain-file "ddclient.conf" config-str) file) + (chmod file #o600)))))) + +(define (ddclient-shepherd-service config) + "Return a for ddclient with CONFIG." + (let* ((opaque-config? (opaque-ddclient-configuration? config)) + (pid (if opaque-config? + (opaque-ddclient-configuration-pid config) + (ddclient-configuration-pid config))) + (ddclient (if opaque-config? + (opaque-ddclient-configuration-ddclient config) + (ddclient-configuration-ddclient config)))) + (list (shepherd-service + (provision '(ddclient)) + (documentation "Run ddclient daemon.") + (start #~(make-forkexec-constructor + (list #$(file-append ddclient "/bin/ddclient") + "-foreground" "-file" "/etc/ddclient/ddclient.conf" + "-debug" "-verbose") + #:pid-file #$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"))) + (stop #~(make-kill-destructor)))))) + +(define ddclient-service-type + (service-type + (name 'ddclient) + (extensions + (list (service-extension shepherd-root-service-type ddclient-shepherd-service) + (service-extension activation-service-type ddclient-activation))) + (default-value (ddclient-configuration)) + (description "Configure address updating utility for dynamic DNS services, +ddclient."))) + +(define (generate-ddclient-documentation) + (generate-documentation + `((ddclient-configuration ,ddclient-configuration-fields)) + 'ddclient-configuration)) + +(define (generate-opaque-ddclient-documentation) + (generate-documentation + `((opaque-ddclient-configuration ,opaque-ddclient-configuration-fields)) + 'opaque-ddclient-configuration)) -- 2.18.0