Devuelve el campo de perfil de usuario de ClearQuest que se ha utilizado 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);