GetCQLDAPMap

Descrizione

Restituisce il campo del profilo utente Rational ClearQuest utilizzato per il collegamento dei record utente LDAP ai record utente Rational ClearQuest.

Restituisce un valore Long che corrisponde ad una costante CQLDAPMap. Restituisce il valore 0 se l'associazione non è configurata. Può restituire un'eccezione se si è verificato un errore di collegamento con il repository schema (ovvero, il database principale).

La costante CQLDAPMap può essere una dei seguenti campi del profilo utente Rational ClearQuest: Name, FullName, Phone, Email e MiscInfo. Il campo CQLDAPMap viene specificato con il comando secondario installutil setcqldapmap.

In un ambiente MultiSite, Rational ClearQuest impone che lo stesso campo CQLDAPMap venga utilizzato per tutti i siti, (ovvero, lo stesso campo del profilo utente Rational ClearQuest) mentre consente che l'attributo LDAP associato possa essere specifico del sito. Questo consente di disporre di schemi LDAP differenti in diversi siti, mentre consente a Rational ClearQuest di rafforzare l'univocità dei valori del campo di associazione Rational ClearQuest attraverso un'intero gruppo di database.

GetCQLDAPMap restituisce il valore 0 se il gruppo di database non è stato configurato per Rational ClearQuest in un'associazione LDAP utilizzando il comando installutil setcqldapmap.

Nota: questo metodo è disponibile nella versione 2003.06.15.

Sintassi

VBScript

adminSession.GetCQLDAPMap() 

Perl

$adminSession->GetCQLDAPMap(); 
Identificativo
Descrizione
adminSession
L'oggetto AdminSession rappresenta la sessione di accesso corrente del repository schema.
Valore di ritorno
Restituisce un valore Long contenente il valore CQLDAPMap del repository schema. Restituisce il valore 0 se l'associazione non è configurata

Esempi

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