LDAP 사용자 레코드를 Rational® ClearQuest® 사용자 레코드에 상관시키는 데 사용되는 Rational ClearQuest 사용자 프로파일 필드를 리턴합니다.
CQLDAPMap 상수에 해당하는 Long 값을 리턴합니다. 맵핑이 구성되지 않은 경우 0을 리턴합니다. 스키마 저장소(즉, 마스터 데이터베이스)에 연결할 때 오류가 발생하면 예외가 리턴될 수 있습니다.
CQLDAPMap 상수는 다음 Rational ClearQuest 사용자 프로파일 필드(Name, FullName, Phone, Email 및 MiscInfo) 중 하나일 수 있습니다. CQLDAPMap 필드는 installutil setcqldapmap 하위 명령을 사용하여 지정됩니다.
멀티사이트 환경에서 Rational ClearQuest는 일률적으로 모든 사이트에 동일한 CQLDAPMap 필드(즉, 동일한 Rational ClearQuest 사용자 프로파일 필드)를 사용하나 각 사이트마다 맵핑된 LDAP 속성은 다를 수 있습니다. 즉, 사이트마다 LDAP 스키마는 다를 수는 있으나 Rational ClearQuest는 강제로 전체 데이터베이스 세트에 고유한 Rational ClearQuest 맵핑 필드 값을 적용합니다.
installutil setcqldapmap 명령을 사용하여 데이터베이스 세트를 Rational ClearQuest에서 LDAP로 맵핑하도록 구성하지 않은 경우 GetCQLDAPMap은 0을 리턴합니다.
VBScript
adminSession.GetCQLDAPMap()
Perl
$adminSession->GetCQLDAPMap();
VBScript
' Build a CQ AdminSession object...
Set CQAdminSession = CreateObject("CLEARQUEST.ADMINSESSION")
' Log on...
CQAdminSession.Logon CQADMINUSER, CQADMINPASSWORD, DBSET
' Test adminSession.GetCQLDAPMap
map = CQAdminSession.GetCQLDAPMap
if map = 0 then
msgbox "CQ to LDAP mapping not configured.
Run installutil setcqldapmap command" & vbcrlf
elseif map = AD_CQ_LOGIN_NAME then
msgbox "Map to CQ_LOGIN_NAME" & vbcrlf
elseif map = AD_CQ_FULLNAME then
msgbox "Map to CQ_FULLNAME" & vbcrlf
elseif map = AD_CQ_EMAIL then
msgbox "Map to CQ_EMAIL" & vbcrlf
elseif map = AD_CQ_PHONE then
msgbox "Map to CQ_PHONE" & vbcrlf
elseif map = AD_CQ_MISC_INFO then
msgbox "Map to CQ_MISC_INFO" & vbcrlf
else
msgbox "Undefined map value" & vbcrlf
end if
' Destroy the AdminSession (to log out of the database)
Set CQAdminSession = Nothing
Perl
use CQPerlExt; my $admin_user = shift;
my $admin_pwd = shift;
my $dbset = shift;
my $AdminSession = CQAdminSession::Build();
eval{$AdminSession->Logon($admin_user, $admin_pwd, $dbset);};
if ($@){print "Error: $@\n";}
my $map;
eval{$map = $AdminSession->GetCQLDAPMap();};
if ($@){print "Error: $@\n";}
if ($map == 0){ print "CQ to LDAP mapping not configured.
Run installutil setcqldapmap command\nn";
}
elseif ($map == $CQPerlExt::CQ_CQ_LOGIN_NAME){
print "Map to CQ_LOGIN_NAME\nn";
}
elsif ($map == $CQPerlExt::CQ_CQ_FULLNAME){
print "CQ Authmode for CQ_CQ_FULLNAME\n";
}
elsif ($map == $CQPerlExt::CQ_CQ_EMAIL){
print "CQ Authmode for CQ_CQ_EMAIL\n";
}
elsif ($map == $CQPerlExt::CQ_CQ_PHONE){
print "CQ Authmode for CQ_CQ_PHONE\n";
}
elsif ($map == $CQPerlExt::CQ_CQ_MISC_INFO){
print "CQ Authmode for CQ_CQ_MISC_INFO\n";
}
else{
print "Undefined map value - val was $map\n";
}
CQPerlExt::CQAdminSession_Unbuild($AdminSession);