diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2020-12-27 15:21:58 +0100 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2020-12-27 15:21:58 +0100 |
| commit | a752443975ce2b3c1ca83551b2063bcf72af3206 (patch) | |
| tree | 2989f37ae593385f02a19f118d2f3a0c2a90ef6c | |
Add the service to add a static IPv6 to the system
| -rw-r--r-- | .guix-channel | 6 | ||||
| -rw-r--r-- | guix/vkraus/services/static-ipv6.scm | 62 |
2 files changed, 68 insertions, 0 deletions
diff --git a/.guix-channel b/.guix-channel new file mode 100644 index 0000000..8e7197b --- /dev/null +++ b/.guix-channel @@ -0,0 +1,6 @@ +(channel + (version 0) + (directory "guix")) +;; Local Variables: +;; mode: scheme +;; End: diff --git a/guix/vkraus/services/static-ipv6.scm b/guix/vkraus/services/static-ipv6.scm new file mode 100644 index 0000000..a0f3a45 --- /dev/null +++ b/guix/vkraus/services/static-ipv6.scm @@ -0,0 +1,62 @@ +(define-module (vkraus services static-ipv6) + #:use-module (gnu services) + #:use-module (gnu services shepherd) + #:use-module (guix gexp) + #:use-module (guix modules) + #:use-module (guix records) + #:use-module (gnu packages linux) + #:use-module (ice-9 match) + #:use-module (ice-9 optargs)) + +(define-record-type* <static-ipv6-configuration> + static-ipv6-configuration + make-static-ipv6-configuration + static-ipv6-configuration? + (iproute static-ipv6-configuration-iproute (default iproute)) + (address static-ipv6-configuration-address) + (interface static-ipv6-configuration-interface)) + +(export <static-ipv6-configuration> + static-ipv6-configuration + make-static-ipv6-configuration + static-ipv6-configuration? + static-ipv6-configuration-iproute + static-ipv6-configuration-address + static-ipv6-configuration-interface) + +(define static-ipv6-shepherd-service + (match-lambda + (($ <static-ipv6-configuration> + iproute address interface) + (list + (shepherd-service + (provision '(static-ipv6)) + (documentation (format #f "Add ~a/128 to interface ~a" + address interface)) + (requirement '(user-processes loopback syslogd)) + (start + #~(lambda _ + (system* + (string-append #$iproute "/sbin/ip") + "address" + "add" + "dev" + #$interface + (string-append #$address "/128")))) + (stop + #~(lambda _ + (system* + (string-append #$iproute "/sbin/ip") + "address" + "delete" + "dev" + #$interface + (string-append #$address "/128"))))))))) + +(define-public static-ipv6-service-type + (service-type (name 'static-ipv6) + (extensions + (list + (service-extension + shepherd-root-service-type + static-ipv6-service))))) |