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

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

    $OUT = '';

    my $blanketban  = db_get_prop(\%dungog, 'dansguardianf3', "blanketban") || '#';
    if ($blanketban eq 'on')
    {
      $OUT .= "#Blanket Block.  To block all sites except those in the exceptionsitelist file\n";
      $OUT .= "**\n";
      $OUT .= "\n";
    }

    my $ipban  = db_get_prop(\%dungog, 'dansguardianf3', "ipban") || '#';
    if ($ipban eq 'on')
    {
      $OUT .= "#Blanket IP Block.  To block all sites specified only as an IP\n";
      $OUT .= "*ip\n";
      $OUT .= "\n";
    }

    my $https  = db_get_prop(\%dungog, 'dansguardianf3', "https") || '#';
    if ($https eq 'on')
    {
      $OUT .= "#Blanket https Block.\n";
      $OUT .= "**s\n";
      $OUT .= "*ips\n";
      $OUT .= "\n";
    }
}