From 3e3e0d48f2ec1f8163bcb89f9b717f4538f44f38 Mon Sep 17 00:00:00 2001 From: Dan Church Date: Sun, 9 Oct 2022 13:28:57 -0500 Subject: [PATCH] Also block IPv6 address lookups --- make-block.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/make-block.pl b/make-block.pl index 47ff838..502627d 100755 --- a/make-block.pl +++ b/make-block.pl @@ -54,7 +54,7 @@ sub add_host_file { MAIN: { my $out; - my $block_ip = '0.0.0.0'; + my $block_ip = '0.0.0.0 ::1'; my $workdir = &dirname($0); unless (&GetOptions( @@ -82,9 +82,13 @@ MAIN: { open $fho, '>', $out or die "Failed to open file $out for writing: $!"; } + my @block_ip = sort split /\s+/, $block_ip; print $fho map { ++$written; - "$block_ip $_\n" + my $domain = $_; + map { + "$_ $domain\n" + } @block_ip; } sort keys %domains; printf STDERR "%d domains written to %s from\n", $written, $out;