GetCQLDAPMap

説明

LDAP ユーザー レコードと Rational® ClearQuest® ユーザー レコードとの相関に使用される Rational ClearQuest ユーザー プロファイル フィールドを戻します。

CQLDAPMap 定数に対応する Long を戻します。 マッピングが構成されていない場合は、0 を戻します。スキーマ リポジトリ (つまり、マスター データベース) への接続でエラーがある場合は、例外が戻されることがあります。

CQLDAPMap 定数は次のいずれかの Rational ClearQuest ユーザー プロファイル フィールドです。名前フルネーム電話番号電子メール各種情報CQLDAPMap フィールドは、installutil setcqldapmap サブコマンドで指定されます。

MultiSite 環境では、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(); 
識別子
説明
adminSession
AdminSession オブジェクトは、現在のスキーマ リポジトリのアクセス セッションを表します。
戻り値
スキーマ リポジトリの 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);
		

フィードバック