stdin

stdin.scm

(define (rsync-shepherd-service config)
  "Return a <shepherd-service> for rsync with CONFIG."

  (define pid-file
    (rsync-configuration-pid-file config))

  (define rsync-command
    #~(list (string-append #$(rsync-configuration-package config) "/bin/rsync")
            "--daemon" "--config" #$(rsync-config-file config)))
  
  (define port-number
    (rsync-configuration-port-number config))

  (define user
    (if (> port-number 1024)
        "rsyncd"
        "root"))
  
  (list (shepherd-service
         (provision '(rsync))
         (documentation "Run rsync daemon.")
         (start #~(make-forkexec-constructor #$rsync-command 
                                             #:pid-file #$pid-file
                                             #:user #$user
                                             #:group #$user))
         (stop #~(make-kill-destructor)))))