Also block IPv6 address lookups
This commit is contained in:
parent
6784ea96c0
commit
3e3e0d48f2
|
@ -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;
|
||||
|
|
Loading…
Reference in New Issue