{
    $qpsmtpd = $DB->get('qpsmtpd');
    return unless $qpsmtpd;
    return unless $qpsmtpd->prop('SBLList');

    my %obsolete = map { $_ => 1} qw(
       blackhole.securitysage.com
       bulk.rhs.mailpolice.com
       fraud.rhs.mailpolice.com
       porn.rhs.mailpolice.com
       adult.rhs.mailpolice.com
       bogusmx.rfc-ignorant.org
       ex.dnsbl.org
    );

    @sbl = grep { !$obsolete{$_} } split /[,:]/, $qpsmtpd->prop('SBLList');
    $qpsmtpd->set_prop('SBLList', join ':', @sbl);
}
