{
    use esmith::config;
    use esmith::db;

    my %dungog;
    tie %dungog, 'esmith::config', '/home/e-smith/db/dungog';

    my %blacklist;
    tie %blacklist, 'esmith::config', '/home/e-smith/db/blacklist';

    my @lists = ();
    foreach (keys %blacklist)
    {
        push (@lists, $_)
            if (db_get_type(\%blacklist, $_) eq "list");
    }

    #domains for site
    #urls for url
    my @installed = ();
    foreach (@lists)
    {
        push (@installed, $_)
            if (-e "/etc/dansguardian/blacklists/$_/domains");
    }

    $OUT = '';

    #skip if you have nothing
    my $installed = @installed || 'no lists';
    unless ($installed eq 'no lists')
    {
      $OUT .= "# blacklist includes\n";
      $OUT .= "# --------------------\n";
  
      foreach (@installed)
      {
        my $on = db_get_prop(\%blacklist, $_, "greyf4") || '';
        if ($on eq 'on')
        {     
          $OUT .= "\.Include</etc/dansguardian/blacklists/$_/domains>\n";
        }  
      }  
    }
}