{
my $text = <<END_TEXT;

# Manipulates the URL to automatically switch on safe searching.

# Google - remove 'safe=...' and add 'safe=active'
"(^http://[^/]*\\.google\\.[^?]*\\?)(.+&)?(safe=[^&]*)"->"\\1\\2"
"(^http://[^/]*\\.google\\.[^?]*\\?)"->"\\1safe=active&"

# Yahoo - remove 'vm=...' and add 'vm=r'
"(^http://[^/]*\\.yahoo\\.[^?]*\\?)(.+&)?(vm=[^&]*)"->"\\1\\2"
"(^http://[^/]*\\.yahoo\\.[^?]*\\?)"->"\\1vm=r&"

# Metacrawler - remove 'familyfilter=...' and add 'familyfilter=1'
"(^http://[^/]*\\.metacrawler\\.[^?]*\\?)(.+&)?(familyfilter=[^&]*)"->"\\1\\2"
"(^http://[^/]*\\.metacrawler\\.[^?]*\\?)"->"\\1familyfilter=1&"

# Singingfish - remove 'ff=...' and add 'ff=1'
"(^http://search\\.singingfish\\.[^?]*\\?)(.+&)?(ff=[^&]*)"->"\\1\\2"
"(^http://search\\.singingfish\\.[^?]*\\?)"->"\\1ff=1&"

# Lycos.com - family filter only available in advanced mode.
# Remove 'adv=...' and 'adf=...' and add 'adv=1&adf=on'
"(^http://[^/]*search[^/]*\\.lycos\\.[^?]*\\?)(.+&)?(adv=[^&]*)"->"\\1\\2"
"(^http://[^/]*search[^/]*\\.lycos\\.[^?]*\\?)(.+&)?(adf=[^&]*)"->"\\1\\2"
"(^http://[^/]*search[^/]*\\.lycos\\.[^?]*\\?)"->"\\1adv=1&adf=on&"
END_TEXT

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

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

    my $regexpsearch  = db_get_prop(\%dungog, 'dansguardianf2', "regexpsearch") || 'off';

    if ($regexpsearch eq 'on')
    {
      $OUT .= "$text\n";
    }
}
