From fa0c1d610444067001faaad204b25fa112fdc838 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 7 Oct 2014 21:33:12 +0200 Subject: services: Add '%facebook-host-aliases'. * gnu/services/networking.scm (%facebook-host-aliases): New variable. * doc/guix.texi (Networking Services): Document it. --- gnu/services/networking.scm | 37 ++++++++++++++++++++++++++++++++++++- 1 file changed, 36 insertions(+), 1 deletion(-) (limited to 'gnu/services') diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index 44e3c303de..8e682b9cfa 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -25,7 +25,8 @@ #:use-module (gnu packages messaging) #:use-module (guix gexp) #:use-module (guix monads) - #:export (static-networking-service + #:export (%facebook-host-aliases + static-networking-service dhcp-client-service tor-service bitlbee-service)) @@ -36,6 +37,40 @@ ;;; ;;; Code: +(define %facebook-host-aliases + ;; This is the list of known Facebook hosts to be added to /etc/hosts if you + ;; are to block it. + "\ +# Block Facebook IPv4. +127.0.0.1 www.facebook.com +127.0.0.1 facebook.com +127.0.0.1 login.facebook.com +127.0.0.1 www.login.facebook.com +127.0.0.1 fbcdn.net +127.0.0.1 www.fbcdn.net +127.0.0.1 fbcdn.com +127.0.0.1 www.fbcdn.com +127.0.0.1 static.ak.fbcdn.net +127.0.0.1 static.ak.connect.facebook.com +127.0.0.1 connect.facebook.net +127.0.0.1 www.connect.facebook.net +127.0.0.1 apps.facebook.com + +# Block Facebook IPv6. +fe80::1%lo0 facebook.com +fe80::1%lo0 login.facebook.com +fe80::1%lo0 www.login.facebook.com +fe80::1%lo0 fbcdn.net +fe80::1%lo0 www.fbcdn.net +fe80::1%lo0 fbcdn.com +fe80::1%lo0 www.fbcdn.com +fe80::1%lo0 static.ak.fbcdn.net +fe80::1%lo0 static.ak.connect.facebook.com +fe80::1%lo0 connect.facebook.net +fe80::1%lo0 www.connect.facebook.net +fe80::1%lo0 apps.facebook.com\n") + + (define* (static-networking-service interface ip #:key gateway -- cgit v1.2.3