$CQsession->UserLogon(nom_de_connexion, motdepasse, nom_base_de_données, nom_ensemble_bases_de_données);Tous les éléments sont des chaînes :
Nom d'utilisateur pour la connexion.
Mot de passe de l'utilisateur.
Nom d'une base de données dans un référentiel de schémas.
Nom de l'ensemble de bases de données. Si vous utilisez l'ensemble de bases de données par défaut, la chaîne ensemble_bases_de_données peut être vide ("").
$CQSession->UserLogon("admin", "", "SAMPL", "");
require CQPerlExt; $CQsession = CQSession::Build(); #Start a Rational ClearQuest session $sessionObj = CQSession::Build(); #Get a list of accessible databases $databases = $sessionObj->GetAccessibleDatabases("MASTR", "admin", ""); $count = $databases->Count(); $sessionObj->UserLogon("admin", "", "perl2", ""); #For each accessible database, # get database name and login as joe with password gh36ak3: for($x=0;$x<$count;$x++) { $db = $databases->Item($x); $dbName = $db->GetDatabaseName(); # Logon to the database $sessionObj->UserLogon( "joe", "gh36ak3", $dbName, "" ); #... } # You can also ise the GetSessionDatabase method rather than the GetAccessibleDatabases method $dbDesc = $sessionObj->GetSessionDatabase(); # The GetSessionDatabase method returns information about the database that is being accessed # in the current session. This method differs from the GetAccessibleDatabases method in that it # returns the DatabaseDescription object associated with the current session. You can only call # this method after the user has logged in to a particular database. print "DB name = ", $dbDesc->GetDatabaseName(), "\n"; print "DB set name = ", $dbDesc->GetDatabaseSetName(), "\n"; print "DB connect string = ", $dbDesc->GetDatabaseConnectString(), "\n"; print "User login name = ", $sessionObj->GetUserLoginName(), "\n"; print "User full name = ", $sessionObj->GetUserFullName(), "\n"; print "User email = ", $sessionObj->GetUserEmail(), "\n"; print "User phone = ", $sessionObj->GetUserPhone(), "\n"; print "Misc user info = ", $sessionObj->GetUserMiscInfo(), "\n"; print "User groups: \n"; $userGroups = $sessionObj->GetUserGroups(); if (!@$userGroups) { # Code to handle if no user groups exist print "This user does not belong to any groups\n"; } else { # Print out all groups foreach $groupname (@$userGroups) { print "Group $groupname\n"; } } CQSession::Unbuild($sessionObj);