Para controlar el acceso a los registros eSig_Config, utilice la extensión esigCust_ConfigAccessCtrl (no utilice los mecanismos de control de accesos de Rational
ClearQuest). Esta extensión se invoca durante la
ejecución del enganche ACCESS_CONTROL para el registro
eSig_Config; los tres últimos argumentos ($actionname,
$actiontype, $username)
proceden directamente de la invocación de dicho enganche.
sub esigCust_ConfigAccessCtrl {
my ($session, $actionname, $actiontype, $username) = @_;
return 1 if $username eq "admin";
return 0;
}
Argumentos:
- $session: El objeto de sesión actual.
- $actionname: El nombre de la acción que el usuario está intentando ejecutar.
- $actiontype: El tipo de acción; puede ser una de las siguientes:
- CQPerlExt::SUBMIT
- CQPerlExt::MODIFY
- CQPerlExt::CHANGECQPerlExt::STATE
- CQPerlExt::DUPLICATE
- CQPerlExt::UNDUPLICATE
- $username: El nombre del usuario que ha iniciado la sesión. (Si se utiliza la autenticación LDAP, es el nombre de usuario de Rational
ClearQuest, no el nombre de usuario de LDAP.)
Valor de retorno: 0 para prohibir el acceso a un registro
eSig_Config; distinto de cero para permitir el acceso.