GetCQLDAPMap

설명

LDAP 사용자 레코드를 Rational® ClearQuest® 사용자 레코드에 상관시키는 데 사용되는 Rational ClearQuest 사용자 프로파일 필드를 리턴합니다.

CQLDAPMap 상수에 해당하는 Long 값을 리턴합니다. 맵핑이 구성되지 않은 경우 0을 리턴합니다. 스키마 저장소(즉, 마스터 데이터베이스)에 연결할 때 오류가 발생하면 예외가 리턴될 수 있습니다.

CQLDAPMap 상수는 다음 Rational ClearQuest 사용자 프로파일 필드(Name, FullName, Phone, EmailMiscInfo) 중 하나일 수 있습니다. CQLDAPMap 필드는 installutil setcqldapmap 하위 명령을 사용하여 지정됩니다.

멀티사이트 환경에서 Rational ClearQuest는 일률적으로 모든 사이트에 동일한 CQLDAPMap 필드(즉, 동일한 Rational ClearQuest 사용자 프로파일 필드)를 사용하나 각 사이트마다 맵핑된 LDAP 속성은 다를 수 있습니다. 즉, 사이트마다 LDAP 스키마는 다를 수는 있으나 Rational ClearQuest는 강제로 전체 데이터베이스 세트에 고유한 Rational ClearQuest 맵핑 필드 값을 적용합니다.

installutil setcqldapmap 명령을 사용하여 데이터베이스 세트를 Rational ClearQuest에서 LDAP로 맵핑하도록 구성하지 않은 경우 GetCQLDAPMap0을 리턴합니다.

참고: 이 메소드는 버전 2003.06.15부터 사용 가능해졌습니다.

구문

VBScript

adminSession.GetCQLDAPMap() 

Perl

$adminSession->GetCQLDAPMap(); 
ID
설명
adminSession
현재 스키마 저장소 액세스 세션을 나타내는 AdminSession 오브젝트입니다.
Return value
스키마 저장소의 CQLDAPMap 값에 해당하는 Long 값을 리턴합니다. 맵핑이 구성되어 있지 않으면 0을 리턴합니다.

예제

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);
		

피드백