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 Wiki Activity

Remove Perl 4 sigils (PBP)

Browse source
This commit is contained in:
Dan Church 2023-09-04 10:08:00 -05:00
parent dc38b1a376
commit 41ba29d218
Signed by: h3xx
GPG key ID: EA2BF379CD2CDBD0
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
make-block.pl
View file

@ -25,7 +25,7 @@ my $skip = 0;
my $removed_allowed = 0;
sub add_domain_list {
my $file = shift;
foreach my $line (&read_stripped($file)) {
foreach my $line (read_stripped($file)) {
my $domain = lc $line;
++$dupes if defined $domains{$domain};
$domains{$domain} = 1;
@ -34,7 +34,7 @@ sub add_domain_list {
sub add_host_file {
my $file = shift;
foreach my $line (&read_stripped($file)) {
foreach my $line (read_stripped($file)) {
my @parts = split /\s+/, $line;
die "Malformed line in $file: $line; @parts"
unless @parts > 1;
@ -71,7 +71,7 @@ MAIN: {
my $block_ip = '0.0.0.0 ::';
my $workdir = $FindBin::RealBin;
unless (&GetOptions(
unless (GetOptions(
'out=s' => \$out,
'O=s' => \$out,
'i=s' => \$block_ip,
@ -85,16 +85,16 @@ MAIN: {
my @allow_lists = glob "$workdir/allowlists/*.domains";
foreach my $listfile (@domain_lists) {
&add_domain_list($listfile);
add_domain_list($listfile);
}
foreach my $hostfile (@hosts_lists) {
&add_host_file($hostfile);
add_host_file($hostfile);
}
# Apply allowlists
my @allow_domains;
foreach my $allowlist (@allow_lists) {
push @allow_domains, &read_stripped($allowlist);
push @allow_domains, read_stripped($allowlist);
}
my $before = %domains;
delete %domains{@allow_domains};