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.
30 lines
878 B
30 lines
878 B
{
|
|
use esmith::ConfigDB;
|
|
use esmith::DomainsDB;
|
|
use esmith::NetworksDB;
|
|
use esmith::util;
|
|
use Lemonldap::NG::Common::Conf;
|
|
|
|
$c = esmith::ConfigDB->open_ro or die "Error opening ConfigDB\n";
|
|
$d = esmith::DomainsDB->open_ro or die "Error opening DomainsDB\n";
|
|
$n = esmith::NetworksDB->open_ro or die "Error opening NetworksDB\n";
|
|
$domain = $c->get('DomainName')->value;
|
|
$base = esmith::util::ldapBase ($domain);
|
|
$ldap = $c->get('ldap') || die "Error reading ldap service entry\n";
|
|
$port = $ldap->prop('TCPPort') || '389';
|
|
$llng = $c->get('lemonldap');
|
|
|
|
$manual = $llng->prop('ManualConf') || 'disabled';
|
|
|
|
$confAccess = new Lemonldap::NG::Common::Conf(
|
|
{
|
|
type=>'File',
|
|
dirName=>"/var/lib/lemonldap-ng/conf",
|
|
},
|
|
) or die "Unable to build Lemonldap::NG::Common::Conf, see Apache logs\n";
|
|
|
|
$conf = $confAccess->getConf();
|
|
|
|
$OUT = '';
|
|
|
|
}
|
|
|