{
    my @squidblock= split(',', $squidguard{Squidguard_Block} || '');
    return "# No Blocked Squidguard list defined" unless (scalar @squidblock);
    foreach my $squidblock (sort @squidblock)
       {
          if ($squidblock eq 'in-addr' or $squidblock eq 'sex')
             {
                next;
             }

          $OUT .= "# $squidblock ACL entries\n";
          $OUT .= "dest $squidblock \{\n";
          $OUT .= "        domainlist      $squidblock\/domains\n";
          $OUT .= "        urllist         $squidblock\/urls\n";
       if (-e "/var/lib/squidguard/$squidblock/expressions" )   
             {
                $OUT .= "        expressionlist  $squidblock\/expressions\n"
             }
          $OUT .= "\}\n";
          $OUT .= "\n";
       }
}
