my $ldap_host = TeamSite::TSCommon::get_iw_config('authentication','ldap_server');my $ldap_port = TeamSite::TSCommon::get_iw_config('authentication','ldap_port');my $searchbaseDN = TeamSite::TSCommon::get_iw_config('authentication','ldap_dnbase');my $ldap_dnbase = TeamSite::TSCommon::get_iw_config('authentication','ldap_dnbase');my $ldap_pwd = TeamSite::TSCommon::get_iw_config('authentication','ldap_pwd');my $domain_name = TeamSite::TSCommon::get_iw_config('iwcgi','domain_list');
$ldap = Net::LDAP->new($ldap_host);$mesg = $ldap->bind ( dn => 'cn=ebfdev,cn=users,DC=ebflab,DC=test,DC=arl,DC=ABC,DC=net', password => $ldap_pwd);
$mesg = $ldap->search ( base => "$searchbaseDN", scope => "sub", filter => "(&(objectclass=group)(cn=$groupName))", attrs => $attrs );