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