futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

services: vpn: Deprecate 'openvpn-client-service' & 'openvpn-server-service' procedures.

Browse Source 
* doc/guix.texi (VPN Services): Replace 'openvpn-client-service' & 'openvpn-server-service' procedures
with their service-type counterparts.
* gnu/services/vpn.scm (openvpn-client-service, openvpn-server-service): Deprecate procedure.
(openvpn-server-service-type, openvpn-client-service-type): Set default value.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2023-02-25 18:58:09 +00:00 committed by Ludovic Courtès
parent c6cbce9ad8
commit eddd9b1240
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
2 changed files with 25 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
doc/guix.texi
View File

@ -31859,20 +31859,22 @@ desktop-environment or should be run manually.
It provides a @emph{client} service for your machine to connect to a
VPN, and a @emph{server} service for your machine to host a VPN@.
Both @code{openvpn-client-service-type} and
@code{openvpn-server-service-type} can be run simultaneously.
@deffn {Scheme Procedure} openvpn-client-service @
[#:config (openvpn-client-configuration)]
@defvar openvpn-client-service-type
Type of the service that runs @command{openvpn}, a VPN daemon, as a client.
Return a service that runs @command{openvpn}, a VPN daemon, as a client.
@end deffn
The value for this service is a @code{<openvpn-client-configuration>}
object.
@end defvar
@deffn {Scheme Procedure} openvpn-server-service @
[#:config (openvpn-server-configuration)]
@defvar openvpn-server-service-type
Type of the service that runs @command{openvpn}, a VPN daemon, as a server.
Return a service that runs @command{openvpn}, a VPN daemon, as a server.
Both can be run simultaneously.
@end deffn
The value for this service is a @code{<openvpn-server-configuration>}
object.
@end defvar
@c %automatically generated documentation

19
gnu/services/vpn.scm
View File

@ -39,11 +39,12 @@
#:use-module (guix records)
#:use-module (guix gexp)
#:use-module (guix i18n)
#:use-module (guix deprecation)
#:use-module (srfi srfi-1)
#:use-module (ice-9 match)
#:use-module (ice-9 regex)
#:export (openvpn-client-service
openvpn-server-service
#:export (openvpn-client-service ; deprecated
openvpn-server-service ; deprecated
openvpn-client-service-type
openvpn-server-service-type
openvpn-client-configuration
@ -531,7 +532,8 @@ is truncated and rewritten every minute.")
(service-extension activation-service-type
(const %openvpn-activation))))
(description "Run the OpenVPN server, which allows you to
@emph{host} a @acronym{VPN, virtual private network}.")))
@emph{host} a @acronym{VPN, virtual private network}.")
(default-value (openvpn-server-configuration))))
(define openvpn-client-service-type
(service-type (name 'openvpn-client)
@ -544,12 +546,17 @@ is truncated and rewritten every minute.")
(const %openvpn-activation))))
(description
"Run the OpenVPN client service, which allows you to connect
to an existing @acronym{VPN, virtual private network}.")))
to an existing @acronym{VPN, virtual private network}.")
(default-value (openvpn-client-configuration))))
(define* (openvpn-client-service #:key (config (openvpn-client-configuration)))
(define-deprecated
(openvpn-client-service #:key (config (openvpn-client-configuration)))
openvpn-client-service-type
(service openvpn-client-service-type config))
(define* (openvpn-server-service #:key (config (openvpn-server-configuration)))
(define-deprecated
(openvpn-server-service #:key (config (openvpn-server-configuration)))
openvpn-server-service-type
(service openvpn-server-service-type config))
(define (generate-openvpn-server-documentation)