view release on metacpan or  search on metacpan

scripts/adblock.pl  view on Meta::CPAN

#!/usr/bin/env perl

use lib "../lib";
use strict;
use warnings;

use App::DNS::Adblock;
use Try::Tiny;

my $timeout = 1;  # 1 day timeout
$timeout *= 86400;

my $adfilter =  App::DNS::Adblock->new(
					adblock_stack => [
							  { url => 'http://pgl.yoyo.org/adservers/serverlist.php?hostformat=adblockplus&showintro=0&startdate[day]=&startdate[month]=&startdate[year]=&mimetype=plaintext',
							    path => '/var/named/pgl-adblock.txt',
							    refresh => 7,
							    },