* [bug#68787] [PATCH] services: block-facebook-hosts: Use proper unroutable addresses.
@ 2024-01-28 22:07 Ludovic Courtès
0 siblings, 0 replies; only message in thread
From: Ludovic Courtès @ 2024-01-28 22:07 UTC (permalink / raw)
To: 68787; +Cc: Ludovic Courtès
This is safer and more appropriate than redirecting to localhost.
* gnu/services/networking.scm (%unroutable-ipv4, %unroutable-ipv6): New
variables.
(facebook-host-aliases): Use them.
Change-Id: Idd4b1fec903c52d542d177a52fec1814eded4119
---
gnu/services/networking.scm | 13 +++++++++++--
1 file changed, 11 insertions(+), 2 deletions(-)
diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm
index 495d049728..8e64e529ab 100644
--- a/gnu/services/networking.scm
+++ b/gnu/services/networking.scm
@@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2013-2023 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2013-2024 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 John Darrington <jmd@gnu.org>
@@ -270,6 +270,14 @@ (define-module (gnu services networking)
;;;
;;; Code:
+(define %unroutable-ipv4
+ ;; Unroutable address, as per <https://www.rfc-editor.org/rfc/rfc5737>.
+ "203.0.113.1")
+
+(define %unroutable-ipv6
+ ;; Unroutable address, as per <https://www.rfc-editor.org/rfc/rfc6666>.
+ "0100::")
+
(define facebook-host-aliases
;; This is the list of known Facebook hosts to be added to /etc/hosts if you
;; are to block it.
@@ -282,7 +290,8 @@ (define facebook-host-aliases
(append-map (lambda (name)
(map (lambda (addr)
(host addr name))
- (list "127.0.0.1" "::1"))) domains)))
+ (list %unroutable-ipv4 %unroutable-ipv6)))
+ domains)))
(define-deprecated %facebook-host-aliases
block-facebook-hosts-service-type
base-commit: 65dc2d40cb113382fb98796f1d04099f28cab355
--
2.41.0
^ permalink raw reply related [flat|nested] only message in thread
only message in thread, other threads:[~2024-01-28 22:08 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2024-01-28 22:07 [bug#68787] [PATCH] services: block-facebook-hosts: Use proper unroutable addresses Ludovic Courtès
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).