89b524ab58
This patch moves Guile modules shipped as a Guix channel under the modules directory. The rationale behind this is that we are probably adding unwanted files into Guile's load path, such as the news file and possible scripts that could be added to the channel repository in the future. * guix-channel (channel): Set directory field. * nongnu/*: Move under modules/nongnu. * nonguix/*: Move under modules/nonguix.
59 lines
2.2 KiB
Scheme
59 lines
2.2 KiB
Scheme
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
;;; Copyright © 2020 Alexey Abramov <levenson@mmer.org>
|
|
|
|
(define-module (nongnu services vpn)
|
|
#:use-module (guix gexp)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu services)
|
|
#:use-module (gnu services shepherd)
|
|
#:use-module (nongnu packages vpn)
|
|
#:export (zerotier-one-service))
|
|
|
|
(define %zerotier-action-join
|
|
(shepherd-action
|
|
(name 'join)
|
|
(documentation "Join a network")
|
|
(procedure #~(lambda (running network)
|
|
(let* ((zerotier-cli (string-append #$zerotier "/sbin/zerotier-cli"))
|
|
(cmd (string-join (list zerotier-cli "join" network)))
|
|
(port (open-input-pipe cmd))
|
|
(str (get-string-all port)))
|
|
(display str)
|
|
(status:exit-val (close-pipe port)))))))
|
|
|
|
(define %zerotier-action-leave
|
|
(shepherd-action
|
|
(name 'leave)
|
|
(documentation "Leave a network")
|
|
(procedure #~(lambda (running network)
|
|
(let* ((zerotier-cli (string-append #$zerotier "/sbin/zerotier-cli"))
|
|
(cmd (string-join (list zerotier-cli "leave" network)))
|
|
(port (open-input-pipe cmd))
|
|
(str (get-string-all port)))
|
|
(display str)
|
|
(status:exit-val (close-pipe port)))))))
|
|
|
|
|
|
|
|
(define zerotier-one-shepherd-service
|
|
(lambda (config)
|
|
(list (shepherd-service
|
|
(documentation "ZeroTier One daemon.")
|
|
(provision '(zerotier-one))
|
|
(requirement '(networking))
|
|
(actions (list %zerotier-action-join
|
|
%zerotier-action-leave))
|
|
(start #~(make-forkexec-constructor
|
|
(list (string-append #$zerotier "/sbin/zerotier-one"))))
|
|
(stop #~(make-kill-destructor))))))
|
|
|
|
(define zerotier-one-service-type
|
|
(service-type (name 'zerotier-one)
|
|
(description "ZeroTier One daemon.")
|
|
(extensions
|
|
(list (service-extension shepherd-root-service-type
|
|
zerotier-one-shepherd-service)))))
|
|
|
|
(define* (zerotier-one-service #:key (config (list)))
|
|
(service zerotier-one-service-type config))
|