diff options
| author | Janneke Nieuwenhuizen <janneke@gnu.org> | 2023-05-26 12:03:10 +0200 |
|---|---|---|
| committer | Josselin Poiret <dev@jpoiret.xyz> | 2023-07-13 19:00:05 +0200 |
| commit | 9c1957921a1f53973c9b4b895f6d6d5fa63fe2dd (patch) | |
| tree | 7bd17e25359a81585b01652721c759f5ea60f7ba /gnu/services | |
| parent | cefcf0fb04c475c2c016e856f2b60a7c2ecdfcf5 (diff) | |
| download | guix-9c1957921a1f53973c9b4b895f6d6d5fa63fe2dd.tar.gz | |
services: static-networking: Support netdde for the Hurd.
As suggested by Sergey Bugaev on bug-hurd
https://lists.gnu.org/archive/html/bug-hurd/2023-05//msg00455.html
* gnu/services/base.scm (static-networking->hurd-pfinet-options): Use
/DEV/ethX. Use long options for settrans.
Signed-off-by: Josselin Poiret <dev@jpoiret.xyz>
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/base.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 636d827ff9..492cf8a693 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -10,7 +10,7 @@ ;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2019 John Soo <jsoo1@asu.edu> -;;; Copyright © 2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> +;;; Copyright © 2019, 2023 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de> ;;; Copyright © 2020, 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2021 qblade <qblade@protonmail.com> @@ -2726,7 +2726,7 @@ to CONFIG." (match (static-networking-addresses config) ((and addresses (first _ ...)) `("--ipv6" "/servers/socket/26" - "--interface" ,(network-address-device first) + "--interface" ,(string-append "/dev/" (network-address-device first)) ,@(append-map (lambda (address) `(,(if (network-address-ipv6? address) "--address6" @@ -2769,7 +2769,10 @@ to CONFIG." (format #t "starting '~a~{ ~s~}'~%" #$(file-append hurd "/hurd/pfinet") options) - (apply invoke #$(file-append hurd "/bin/settrans") "-fac" + (apply invoke #$(file-append hurd "/bin/settrans") + "--active" + "--create" + "--keep-active" "/servers/socket/2" #$(file-append hurd "/hurd/pfinet") options))))))) |