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

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

    $OUT = '';

    #banned expressions
    my $url   = db_get_prop(\%dungog, 'dansguardianf4', 'regexpurl')   || '';
    if ($url eq 'on')
    {
      # porn
      $OUT .= "(^|[-\?+=&/_])(big|cyber|hard|huge|mega|small|soft|super|tiny|bare|naked|nude|oral|topp?les|sex|phone){1,}.*(anal|babe|bharath|boob|breast|busen|busty|clit|cum|cunt|dick|fetish|fuck|girl|hooter|lez|lust|naked|nude|oral|orgy|penis|porn|porno|pupper|pussy|rotten|sex|shit|smutpump|teen|tit|topp?les|xxx)s?([-\?+=&/_]|\$)\n";
      $OUT .= "(^|[-\?+=&/_])(anal|babe|bharath|boob|breast|busen|busty|clit|cum|cunt|dick|fetish|fuck|girl|hooter|lez|lust|naked|nude|oral|orgy|penis|porn|porno|pupper|pussy|rotten|sex|shit|smutpump|teen|tit|topp?les|xxx){1,}.*(big|cyber|hard|huge|mega|small|soft|super|tiny|bare|naked|nude|anal|oral|topp?les|sex){1,}([-\?+=&/_]|\$)\n";
      # HardCore phrases
      $OUT .= "(adultsight|adultsite|adultsonly|adultweb|blowjob|bondage|centerfold|cumshot|cyberlust|cybercore|hardcore|masturbat)\n";
      $OUT .= "(bangbros|xxx|pussylip|playmate|pornstar|sexdream|showgirl|softcore|striptease)\n";
      # The following will help to block explicit media files (images and video)
      $OUT .= "(sex|fuck|boob|cunt|fetish|tits|anal|hooter|asses|shemale|submission|porn|xxx|busty|knockers|slut|nude|naked|pussy){1,}.*(\.jpg|\.wmv|\.mpg|\.mpeg|\.gif|\.mov)\n";
      $OUT .= "(girls|babes|bikini|model){1,}.*(\.jpg|\.wmv|\.mpg|\.mpeg|\.gif|\.mov)\n";
      $OUT .= "\n";
    }

    my $urlads   = db_get_prop(\%dungog, 'dansguardianf4', 'regexpurlads')   || '';
    if ($urlads eq 'on')
    {
      $OUT .= "(/ads/|/ad/|/banner/|/sponsor/|/event.ng/|/Advertisement/|adverts/)\n";
      $OUT .= "(/cgi-bin/nph-adclick\\.exe|/ads/media/images/|/smartbanner/|\\.com/ads/banners/|/apfbanners/|/realmedia/ads/|/event\\.ng/|/pics/banner/|/viewcgi?pool=|/clicktrack|/hittrack|/images\\.go2net\\.com/go2net/ads/|\\.com/banners/|\\.com/httpads/|\\.com/advertising/|/ads/adview\\.php\\?)\n";
      $OUT .= "^(pagead2\\.|ads\\.|ad\\.|adserver\\.|k5ads\\.)\n";
      $OUT .= "\n";
    }

    my $urlproxy   = db_get_prop(\%dungog, 'dansguardianf4', 'regexpurlproxy')   || '';
    if ($urlproxy eq 'on')
    {
      $OUT .= "#Block Cgiproxy, Poxy, PHProxy and other Web-based proxies\n";
      $OUT .= "(cecid.php|nph-webpr|nph-pro|/dmirror|cgiproxy|phpwebproxy)\n";
      $OUT .= "\n";
      $OUT .= "#Block websites containing proxy lists\n";
      $OUT .= "(anonymizer|proxify|megaproxy)\n";
      $OUT .= "\n";
    }

}
