Lispln/nonguix
1
0
Fork 0
mirror of https://gitlab.com/nonguix/nonguix.git synced 2024-11-22 00:18:07 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Add zerotier-one-service.

Browse source 
* nongnu/services/vpn.scm: Add new file, and implement the service.

Signed-off-by: Jonathan Brielmaier <jonathan.brielmaier@web.de>
This commit is contained in:
Alexey Abramov 2020-12-04 17:21:09 +01:00 committed by Jonathan Brielmaier
parent f7b37f45a0
commit c34fa8bfac
No known key found for this signature in database
GPG key ID: ECFC83988B4E4B9F
1 changed files with 62 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

62
nongnu/services/vpn.scm Normal file
View file

@ -0,0 +1,62 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2020 Alexey Abramov <levenson@mmer.org>
;;;
;;; This file is not 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 (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")))
(invoke zerotier-cli "join" network))))))
(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")))
(invoke zerotier-cli "leave" network))))))
(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)
(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))