You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
315 B
15 lines
315 B
12 years ago
|
{
|
||
|
|
|
||
|
|
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');
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|
||
|
|
|