h3xx/you-dont-need-pihole
1
0
Fork 0
mirror of https://codeberg.org/h3xx/you-dont-need-pihole.git synced 2024-08-14 20:27:01 +00:00
Code Issues Projects Releases Packages Wiki Activity

Make make-block.pl's output more flexible

Browse source
This commit is contained in:
Dan Church 2021-07-23 16:09:38 -05:00
parent 2000a11c71
commit 2496f5c5a9
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
make-block.pl
View file

@ -53,7 +53,7 @@ sub add_host_file {
} }
MAIN: { MAIN: {
my $out = 'block.list'; my $out;
my $block_ip = '0.0.0.0'; my $block_ip = '0.0.0.0';
my $workdir = &dirname($0); my $workdir = &dirname($0);
@ -77,8 +77,11 @@ MAIN: {
} }
my $written = 0; my $written = 0;
open my $fho, '>', $out my $fho = \*STDOUT;
if (defined $out && length $out) {
open $fho, '>', $out
or die "Failed to open file $out for writing: $!"; or die "Failed to open file $out for writing: $!";
}
print $fho map { print $fho map {
++$written; ++$written;
"$block_ip $_\n" "$block_ip $_\n"