dest black \{
    log deny.log
    domainlist blacklists/black/domains
    urllist blacklists/black/urls
\}
dest white \{
    log white.log
    domainlist blacklists/white/domains
    urllist blacklists/white/urls
\}

{
my @hide = split (/[;,]/, ($squidguard{'DisabledCategories'} || ''));

opendir BL, '/var/squidGuard/blacklists/' || die "Couldn't open blacklists dir\n";

while (my $cat = readdir(BL)){
    next if (!-d "/var/squidGuard/blacklists/$cat" ||
             $cat =~ /^\./ ||
             $cat eq 'black' ||
             $cat eq 'white' ||
             grep { $_ eq $cat } @hide );
    $OUT .= "dest $cat {\n\tlog deny.log\n";
    $OUT .= "\tdomainlist blacklists/$cat/domains\n"
        if (-e "/var/squidGuard/blacklists/$cat/domains");
    $OUT .= "\turllist blacklists/$cat/urls\n"
        if (-e "/var/squidGuard/blacklists/$cat/urls");
    $OUT .= "\texpressionlist blacklists/$cat/expressions\n"
        if (-e "/var/squidGuard/blacklists/$cat/expressions");
    $OUT .= "}\n";
}
closedir BL;
}
