{
    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/$_/urls");
    }

    $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, $_, "blackf3") || '';
        if ($on eq 'on')
        {
          $OUT .= "\.Include</etc/dansguardian/blacklists/$_/urls>\n";
        }
      }
    }
}