{

use esmith::DomainsDB;
my $d = esmith::DomainsDB->open() or die "Couldn't open DomainsDB\n";

foreach my $domain ($d->domains){
    my $llng = $domain->prop('LemonLDAP') || '';
    next unless $llng eq 'enabled';
    $domain->set_prop('Authentication', 'LemonLDAP');
    $domain->delete_prop('LemonLDAP');
}

}