一个字符串,用于指定模式存储库的 Rational ClearQuest 逻辑数据库名称。在大多数情况下,该值为 MASTR。
一个字符串,用于指定用户的登录名。 如果对该自变量使用空字符串,那么该函数将返回与此模式存储库关联的所有数据库的列表,而不仅仅是特定用户可访问的数据库。
一个字符串,用于指定要在其中查找可访问数据库的数据集。缺省情况下,该自变量应该包括空字符串。这会导致函数使用产品缺省的数据库集名称(即产品版本号)。
require CQPerlExt;
#Start a Rational ClearQuest session
$sessionObj = CQSession::Build();
#Get a list of accessible databases
$databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", "");
$count = $databases->Count();
#For each accessible database, get database name
for($x=0;$x<$count;$x++)
{
$db = $databases->Item($x);
$dbName = $db->GetDatabaseName();
#...
}
CQSession::Unbuild($sessionObj);