ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: block-facebook-hosts: Use proper unroutable addresses.

Browse source 
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
This commit is contained in:
Ludovic Courtès 2024-01-28 23:05:43 +01:00
parent f8f0a5954a
commit c1d37d0653
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/services/networking.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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 © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2018, 2020 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 John Darrington <jmd@gnu.org> ;;; Copyright © 2016 John Darrington <jmd@gnu.org>
@ -270,6 +270,14 @@ (define-module (gnu services networking)
;;; ;;;
;;; Code: ;;; 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 (define facebook-host-aliases
;; This is the list of known Facebook hosts to be added to /etc/hosts if you ;; This is the list of known Facebook hosts to be added to /etc/hosts if you
;; are to block it. ;; are to block it.
@ -282,7 +290,8 @@ (define facebook-host-aliases
(append-map (lambda (name) (append-map (lambda (name)
(map (lambda (addr) (map (lambda (addr)
(host addr name)) (host addr name))
(list "127.0.0.1" "::1"))) domains))) (list %unroutable-ipv4 %unroutable-ipv6)))
domains)))
(define-deprecated %facebook-host-aliases (define-deprecated %facebook-host-aliases
block-facebook-hosts-service-type block-facebook-hosts-service-type