diff options
| author | W. Kosior <koszko@koszko.org> | 2025-02-17 12:27:08 +0100 |
|---|---|---|
| committer | W. Kosior <koszko@koszko.org> | 2025-05-26 14:07:29 +0200 |
| commit | aa5224cb3e7265cfb42bf739ebec7f9aa6f72d1c (patch) | |
| tree | 154e69ece9206224351f37d68b0cf3962eece2df | |
| parent | 25bef3d8ca0cfd03f2c4f7846162ca42956831ec (diff) | |
| download | guix-aa5224cb3e7265cfb42bf739ebec7f9aa6f72d1c.tar.gz guix-aa5224cb3e7265cfb42bf739ebec7f9aa6f72d1c.zip | |
services: openvpn: Allow putting arbitrary text server's ccd config.
* gnu/services/vpn.scm (verbatim-text?): New variable.
(serialize-verbatim-text): New variable.
(openvpn-ccd-configuration)[opaque-configuration]: New field.
Change-Id: I1becf66bb2e41237595e45cd23c20800d3ffe239
| -rw-r--r-- | gnu/services/vpn.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/services/vpn.scm b/gnu/services/vpn.scm index 4d9a12608a..27644ca970 100644 --- a/gnu/services/vpn.scm +++ b/gnu/services/vpn.scm @@ -284,6 +284,10 @@ (and val (format #t "push \"redirect-gateway\"\n"))) +(define verbatim-text? string?) +(define (serialize-verbatim-text field-name value) + (format #t "~@[~a~%~]" value)) + (define-configuration openvpn-remote-configuration (name @@ -302,7 +306,10 @@ "Client own network") (ifconfig-push (ip-mask #f) - "Client VPN IP.")) + "Client VPN IP.") + (opaque-configuration + (verbatim-text #f) + "Text to be included verbatim in the configuration file.")) (define (openvpn-remote-list? val) (and (list? val) |