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 マッピングするようにデータベース セットが構成されていない場合、GetCQLDAPMap は 0 を戻します。
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);