1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
| | ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gnu services rsync)
#:use-module (gnu services)
#:use-module (gnu services base)
#:use-module (gnu services shepherd)
#:use-module (gnu system shadow)
#:use-module (gnu packages rsync)
#:use-module (gnu packages admin)
#:use-module (guix records)
#:use-module (guix gexp)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
#:use-module (ice-9 match)
#:export (rsync-configuration
rsync-configuration?
rsync-service-type))
;;;; Commentary:
;;;
;;; This module implements a service that to run instance of Rsync,
;;; files synchronization tool.
;;;
;;;; Code:
(define-record-type* <rsync-configuration>
rsync-configuration make-rsync-configuration
rsync-configuration?
(package rsync-configuration-package ;package
(default rsync))
(port-number rsync-configuration-port-number ;integer
(default 873))
(pid-file rsync-configuration-pid-file ;string
(default "/var/run/rsyncd.pid"))
(lock-file rsync-configuration-lock-file ;string
(default "/var/run/rsyncd.lock"))
(log-file rsync-configuration-log-file ;string
(default "/var/log/rsyncd.log"))
(use-chroot? rsync-configuration-use-chroot? ;boolean
(default #f))
(share-path rsync-configuration-share-path ;string
(default "/srv/rsync"))
(share-comment rsync-configuration-share-comment ;string
(default "Rsync share"))
(read-only? rsync-configuration-read-only? ;boolean
(default #f))
(timeout rsync-configuration-timeout ;integer
(default 300))
(user rsync-configuration-user ;string
(default "rsyncd"))
(group rsync-configuration-group ;string
(default "rsyncd")))
(define (rsync-account config)
"Return the user accounts and user groups for CONFIG."
(let ((rsync-user (rsync-configuration-user config)))
(list (user-group (name "rsyncd") (system? #t))
(user-account
(name rsync-user)
(system? #t)
(group rsync-user)
(comment "rsyncd privilege separation user")
(home-directory "/var/run/rsyncd")
(shell #~(string-append #$shadow "/sbin/nologin"))))))
(define (rsync-activation config)
"Return the activation GEXP for CONFIG."
#~(begin
(use-modules (guix build utils))
(let ((share-directory #$(rsync-configuration-share-path config))
(user (getpw #$(rsync-configuration-user config))))
(and=> share-directory mkdir-p)
(chown share-directory
(passwd:uid user)
(group:gid user)))))
(define (rsync-config-file config)
"Return the rsync configuration file corresponding to CONFIG."
(match config
(($ <rsync-configuration> package port-number pid-file
lock-file log-file use-chroot? share-path
share-comment read-only? timeout user group)
(mixed-text-file "rsync.conf"
"# Generated by 'rsync-service'.\n"
"pid file = " pid-file "\n"
"lock file = " lock-file "\n"
"log file = " log-file "\n"
"port = " (number->string port-number) "\n"
"use chroot = " (if use-chroot? "true" "false") "\n"
"gid = " group "\n"
"[files]\n"
"path = " share-path "\n"
"comment = " share-comment "\n"
"read only = " (if read-only? "true" "false") "\n"
"timeout = " (number->string timeout) "\n"))))
(define (rsync-shepherd-service config)
"Return a <shepherd-service> for rsync with CONFIG."
(let* ((rsync (rsync-configuration-package config))
(pid-file (rsync-configuration-pid-file config))
(port (rsync-configuration-port-number config))
(user (if (> port 1024) (rsync-configuration-user config) "root")))
(list (shepherd-service
(provision '(rsync))
(documentation "Run rsync daemon.")
(start #~(make-forkexec-constructor
(list (string-append #$rsync "/bin/rsync")
"--config" #$(rsync-config-file config)
"--daemon")
#:pid-file #$pid-file
#:user #$user
#:group #$user))
(stop #~(make-kill-destructor))))))
(define rsync-service-type
(service-type
(name 'rsync)
(extensions
(list (service-extension shepherd-root-service-type rsync-shepherd-service)
(service-extension account-service-type rsync-account)
(service-extension activation-service-type rsync-activation)))
(default-value (rsync-configuration))))
|