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

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

    $OUT = '';

    my $pics = db_get_prop(\%dungog, 'dansguardianf5', "pics") || '';
    if ($pics eq 'strict')
    {
      $OUT .= "#strict\n";
      $OUT .= "enablePICS = on \n";
      $OUT .= "\n";
      $OUT .= "# ICRA is a new version of RSAC\n";
      $OUT .= "# 0 = none  1 = some\n";
      $OUT .= "ICRAchat = 0\n";
      $OUT .= "ICRAmoderatedchat = 1\n";
      $OUT .= "ICRAlanguagesexual = 0\n";
      $OUT .= "ICRAlanguageprofanity = 0\n";
      $OUT .= "ICRAlanguagemildexpletives = 1\n";
      $OUT .= "ICRAnuditygraphic = 0\n";
      $OUT .= "ICRAnuditymalegraphic = 0\n";
      $OUT .= "ICRAnudityfemalegraphic = 0\n";
      $OUT .= "ICRAnuditytopless = 0\n";
      $OUT .= "ICRAnuditybottoms = 0\n";
      $OUT .= "ICRAnuditysexualacts = 0\n";
      $OUT .= "ICRAnudityobscuredsexualacts = 0\n";
      $OUT .= "ICRAnuditysexualtouching = 0\n";
      $OUT .= "ICRAnuditykissing = 0\n";
      $OUT .= "ICRAnudityartistic = 1\n";
      $OUT .= "ICRAnudityeducational = 1\n";
      $OUT .= "ICRAnuditymedical = 1\n";
      $OUT .= "ICRAdrugstobacco = 0\n";
      $OUT .= "ICRAdrugsalcohol = 0\n";
      $OUT .= "ICRAdrugsuse = 0\n";
      $OUT .= "ICRAgambling = 0\n";
      $OUT .= "ICRAweaponuse = 0\n";
      $OUT .= "ICRAintolerance = 0\n";
      $OUT .= "ICRAbadexample = 0\n";
      $OUT .= "ICRApgmaterial = 0\n";
      $OUT .= "ICRAviolencerape = 0\n";
      $OUT .= "ICRAviolencetohumans = 0\n";
      $OUT .= "ICRAviolencetoanimals = 0\n";
      $OUT .= "ICRAviolencetofantasy = 0\n";
      $OUT .= "ICRAviolencekillinghumans = 0\n";
      $OUT .= "ICRAviolencekillinganimals = 0\n";
      $OUT .= "ICRAviolencekillingfantasy = 0\n";
      $OUT .= "ICRAviolenceinjuryhumans = 0\n";
      $OUT .= "ICRAviolenceinjuryanimals = 0\n";
      $OUT .= "ICRAviolenceinjuryfantasy = 0\n";
      $OUT .= "ICRAviolenceartisitic = 0\n";
      $OUT .= "ICRAviolenceeducational = 0\n";
      $OUT .= "ICRAviolencemedical = 0\n";
      $OUT .= "ICRAviolencesports = 0\n";
      $OUT .= "\n";
      $OUT .= "# RSAC\n";
      $OUT .= "# 0 = none  2 = default  4 = wanton and gratuitous\n";
      $OUT .= "RSACviolence = 2\n";
      $OUT .= "RSACsex = 2\n";
      $OUT .= "RSACnudity = 2\n";
      $OUT .= "RSAClanguage = 2\n";
      $OUT .= "\n";
      $OUT .= "# evaluWEB\n";
      $OUT .= "# 0 = U  1 = PG  2 = 18\n";
      $OUT .= "evaluWEBrating = 1\n";
      $OUT .= "\n";
      $OUT .= "# CyberNOT\n";
      $OUT .= "# 0 = none  8 = lots\n";
      $OUT .= "CyberNOTsex = 3\n";
      $OUT .= "CyberNOTother = 3\n";
      $OUT .= "\n";
      $OUT .= "# SafeSurf\n";
      $OUT .= "# 0 = full filtering  9 = wanton and gratuitous\n";
      $OUT .= "SafeSurfprofanity = 3\n";
      $OUT .= "SafeSurfheterosexualthemes = 3\n";
      $OUT .= "SafeSurfhomosexualthemes = 3\n";
      $OUT .= "SafeSurfnudity = 3\n";
      $OUT .= "SafeSurfviolence = 3\n";
      $OUT .= "SafeSurfsexviolenceandprofanity = 3\n";
      $OUT .= "SafeSurfintolerance = 3\n";
      $OUT .= "SafeSurfdruguse = 3\n";
      $OUT .= "SafeSurfotheradultthemes = 3\n";
      $OUT .= "SafeSurfgambling = 3\n";
      $OUT .= "# 1 = All ages  3 = early teens  9 = explicitly for adults\n";
      $OUT .= "SafeSurfagerange = 3\n";
      $OUT .= "\n";
      $OUT .= "# Weburbia\n";
      $OUT .= "# 0 = U  1 = PG  2 = 18\n";
      $OUT .= "Weburbiarating = 1\n";
      $OUT .= "\n";
      $OUT .= "#Vancouver Webpages - low is good high is bad\n";
      $OUT .= "Vancouvermulticulturalism = 0\n";
      $OUT .= "Vancouvereducationalcontent = 0\n";
      $OUT .= "Vancouverenvironmentalawareness = 0\n";
      $OUT .= "Vancouvertolerance = 0\n";
      $OUT .= "Vancouverviolence = 0\n";
      $OUT .= "Vancouversex = 0\n";
      $OUT .= "Vancouverprofanity = 0\n";
      $OUT .= "Vancouversafety = 0\n";
      $OUT .= "Vancouvercanadiancontent = 0\n";
      $OUT .= "Vancouvercommercialcontent = 0\n";
      $OUT .= "Vancouvergambling = 0\n";
      $OUT .= " \n";
      $OUT .= "# Korean PICS services\n";
      $OUT .= "# Thanks to Richard Lee for outlining tag formats\n";
      $OUT .= " \n";
      $OUT .= "# ICEC - service.icec.or.kr\n";
      $OUT .= "ICECrating = 0 # 0 to 1\n";
      $OUT .= " \n";
      $OUT .= "# SafeNet - www.safenet.ne.kr\n";
      $OUT .= "SafeNetnudity = 0  # 0 to 4\n";
      $OUT .= "SafeNetsex = 0  # 0 to 4\n";
      $OUT .= "SafeNetviolence = 0  # 0 to 4\n";
      $OUT .= "SafeNetlanguage = 0  # 0 to 4\n";
      $OUT .= "SafeNetgambling = 0  # 0 to 1\n";
      $OUT .= "SafeNetalcoholtobacco = 0 # 0 to 1\n";
    }
    elsif ($pics eq 'some')
    {
      $OUT .= "#young adult 16?\n";
      $OUT .= "enablePICS = on \n";
      $OUT .= "\n";
      $OUT .= "# ICRA is a new version of RSAC\n";
      $OUT .= "# 0 = none  1 = some\n";
      $OUT .= "ICRAchat = 1\n";
      $OUT .= "ICRAmoderatedchat = 1\n";
      $OUT .= "ICRAlanguagesexual = 1\n";
      $OUT .= "ICRAlanguageprofanity = 1\n";
      $OUT .= "ICRAlanguagemildexpletives = 1\n";
      $OUT .= "ICRAnuditygraphic = 0\n";
      $OUT .= "ICRAnuditymalegraphic = 0\n";
      $OUT .= "ICRAnudityfemalegraphic = 0\n";
      $OUT .= "ICRAnuditytopless = 1\n";
      $OUT .= "ICRAnuditybottoms = 1\n";
      $OUT .= "ICRAnuditysexualacts = 0\n";
      $OUT .= "ICRAnudityobscuredsexualacts = 1\n";
      $OUT .= "ICRAnuditysexualtouching = 0\n";
      $OUT .= "ICRAnuditykissing = 1\n";
      $OUT .= "ICRAnudityartistic = 1\n";
      $OUT .= "ICRAnudityeducational = 1\n";
      $OUT .= "ICRAnuditymedical = 1\n";
      $OUT .= "ICRAdrugstobacco = 1\n";
      $OUT .= "ICRAdrugsalcohol = 1\n";
      $OUT .= "ICRAdrugsuse = 1\n";
      $OUT .= "ICRAgambling = 0\n";
      $OUT .= "ICRAweaponuse = 1\n";
      $OUT .= "ICRAintolerance = 1\n";
      $OUT .= "ICRAbadexample = 1\n";
      $OUT .= "ICRApgmaterial = 1\n";
      $OUT .= "ICRAviolencerape = 0\n";
      $OUT .= "ICRAviolencetohumans = 1\n";
      $OUT .= "ICRAviolencetoanimals = 1\n";
      $OUT .= "ICRAviolencetofantasy = 1\n";
      $OUT .= "ICRAviolencekillinghumans = 1\n";
      $OUT .= "ICRAviolencekillinganimals = 1\n";
      $OUT .= "ICRAviolencekillingfantasy = 1\n";
      $OUT .= "ICRAviolenceinjuryhumans = 1\n";
      $OUT .= "ICRAviolenceinjuryanimals = 1\n";
      $OUT .= "ICRAviolenceinjuryfantasy = 1\n";
      $OUT .= "ICRAviolenceartisitic = 1\n";
      $OUT .= "ICRAviolenceeducational = 1\n";
      $OUT .= "ICRAviolencemedical = 1\n";
      $OUT .= "ICRAviolencesports = 1\n";
      $OUT .= "\n";
      $OUT .= "# RSAC\n";
      $OUT .= "# 0 = none  2 = default  4 = wanton and gratuitous\n";
      $OUT .= "RSACviolence = 3\n";
      $OUT .= "RSACsex = 3\n";
      $OUT .= "RSACnudity = 3\n";
      $OUT .= "RSAClanguage = 3\n";
      $OUT .= "\n";
      $OUT .= "# evaluWEB\n";
      $OUT .= "# 0 = U  1 = PG  2 = 18\n";
      $OUT .= "evaluWEBrating = 2\n";
      $OUT .= "\n";
      $OUT .= "# CyberNOT\n";
      $OUT .= "# 0 = none  8 = lots\n";
      $OUT .= "CyberNOTsex = 3\n";
      $OUT .= "CyberNOTother = 6\n";
      $OUT .= "\n";
      $OUT .= "# SafeSurf\n";
      $OUT .= "# 0 = full filtering  9 = wanton and gratuitous\n";
      $OUT .= "SafeSurfprofanity = 6\n";
      $OUT .= "SafeSurfheterosexualthemes = 6\n";
      $OUT .= "SafeSurfhomosexualthemes = 6\n";
      $OUT .= "SafeSurfnudity = 6\n";
      $OUT .= "SafeSurfviolence = 6\n";
      $OUT .= "SafeSurfsexviolenceandprofanity = 6\n";
      $OUT .= "SafeSurfintolerance = 6\n";
      $OUT .= "SafeSurfdruguse = 6\n";
      $OUT .= "SafeSurfotheradultthemes = 6\n";
      $OUT .= "SafeSurfgambling = 6\n";
      $OUT .= "# 1 = All ages  3 = early teens  9 = explicitly for adults\n";
      $OUT .= "SafeSurfagerange = 6\n";
      $OUT .= "\n";
      $OUT .= "# Weburbia\n";
      $OUT .= "# 0 = U  1 = PG  2 = 18\n";
      $OUT .= "Weburbiarating = 2\n";
      $OUT .= "\n";
      $OUT .= "#Vancouver Webpages - low is good high is bad\n";
      $OUT .= "Vancouvermulticulturalism = 0\n";
      $OUT .= "Vancouvereducationalcontent = 0\n";
      $OUT .= "Vancouverenvironmentalawareness = 0\n";
      $OUT .= "Vancouvertolerance = 0\n";
      $OUT .= "Vancouverviolence = 0\n";
      $OUT .= "Vancouversex = 0\n";
      $OUT .= "Vancouverprofanity = 0\n";
      $OUT .= "Vancouversafety = 0\n";
      $OUT .= "Vancouvercanadiancontent = 0\n";
      $OUT .= "Vancouvercommercialcontent = 0\n";
      $OUT .= "Vancouvergambling = 0\n";
      $OUT .= "# Korean PICS services\n";
      $OUT .= "# Thanks to Richard Lee for outlining tag formats\n";
      $OUT .= " \n";
      $OUT .= "# ICEC - service.icec.or.kr\n";
      $OUT .= "ICECrating = 1 # 0 to 1\n";
      $OUT .= " \n";
      $OUT .= "# SafeNet - www.safenet.ne.kr\n";
      $OUT .= "SafeNetnudity = 2  # 0 to 4\n";
      $OUT .= "SafeNetsex = 2  # 0 to 4\n";
      $OUT .= "SafeNetviolence = 2  # 0 to 4\n";
      $OUT .= "SafeNetlanguage = 2  # 0 to 4\n";
      $OUT .= "SafeNetgambling = 1  # 0 to 1\n";
      $OUT .= "SafeNetalcoholtobacco = 1 # 0 to 1\n";
    }
    else
    {
      $OUT .= "#no blocking \n";
      $OUT .= "enablePICS = off \n";
    }
}