GetCQLDAPMap

Descripción

Devuelve el campo de perfil de usuario de Rational ClearQuest que se utiliza para correlacionar registros de usuario de LDAP con registros de usuario de Rational ClearQuest.

Devuelve un valor Long correspondiente a una constante de CQLDAPMap. Devuelve 0 si la correlación no se ha configurado. Puede devolver una excepción si se produce un error al conectar al repositorio de esquemas (es decir, la base de datos maestra).

La constante de CQLDAPMap puede ser uno de los campos de perfil de usuario de Rational ClearQuest: Name, FullName, Phone, Email y MiscInfo. El campo CQLDAPMap se especifica con el submandato installutil setcqldapmap.

En un entorno MultiSite, Rational ClearQuest impone que se utilice el mismo campo CQLDAPMap para todos los sitios (es decir, el mismo campo de perfil de usuario de Rational ClearQuest), pero permite que el atributo LDAP que se correlaciona pueda ser específico del sitio. De este modo, se permite disponer de varios esquemas LDAP diferentes en sitios distintos y, además, se permite que Rational ClearQuest imponga la exclusividad de los valores de campo de correlación de Rational ClearQuest a través de un conjunto de bases de datos completo.

GetCQLDAPMap devuelve 0 si el conjunto de bases de datos no se ha configurado para la correlación de Rational ClearQuest con LDAP utilizando el mandato installutil setcqldapmap.

Nota: Este método estuvo disponible en la versión 2003.06.15.

Sintaxis

VBScript

adminSession.GetCQLDAPMap() 

Perl

$adminSession->GetCQLDAPMap(); 
Identificador
Descripción
adminSession
Objeto AdminSession que representa la sesión de acceso al repositorio de esquemas actual.
Valor de retorno
Devuelve un Long que contiene el valor CQLDAPMap del repositorio de esquemas. Devuelve 0 si la correlación no se ha configurado

Ejemplos

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

Feedback