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

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

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

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

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

    $OUT = '';

    #skip if you have nothing
    my $installed = @installed || 'no lists';
    unless ($installed eq 'no lists')
    {
      $OUT .= "# phraselist includes\n";
      $OUT .= "# --------------------\n";

      foreach my $inst (@installed)
      {
        my $on = db_get_prop(\%phraselist, $inst, "f2") || '';
        if ($on eq 'on')
        {
          for ( qw(banned banned_general banned_news banned_danish banned_dutch banned_french banned_german banned_italian banned_portuguese banned_spanish) )
          {
	        if (-e "/etc/dansguardian/phraselists/$inst/$_")
	        {
              $OUT .= "\.Include</etc/dansguardian/phraselists/$inst/$_>\n";
            }
          }
        }
      }
    }
}