Para controlar o acesso aos registros eSig_Config, utilize a extensão esigCust_ConfigAccessCtrl (não
utilize os mecanismos de controle de acesso do Rational ClearQuest). Essa
extensão é chamada durante a execução do gancho ACCESS_CONTROL para o
registro eSig_Config; os três últimos argumentos ($actionname, $actiontype, $username)
vêm diretamente da chamada desse gancho.
sub esigCust_ConfigAccessCtrl {
my ($session, $actionname, $actiontype, $username) = @_;
return 1 if $username eq "admin";
return 0;
}
Argumentos:
- $session: o objeto de sessão atual.
- $actionname: o nome da ação que o usuário está tentando executar.
- $actiontype: O tipo da ação; um dos seguintes:
- CQPerlExt::SUBMIT
- CQPerlExt::MODIFY
- CQPerlExt::CHANGECQPerlExt::STATE
- CQPerlExt::DUPLICATE
- CQPerlExt::UNDUPLICATE
- $username: o nome do usuário com login efetuado. (Se a autenticação LDAP estiver em uso, este é o
nome do usuário do Rational ClearQuest, não o
nome do usuário LDAP.)
Valor de retorno: 0 para proibir o acesso a um registro eSig_Config; não zero
para conceder acesso.