要控制对 eSig_Config 记录的访问,请使用 esigCust_ConfigAccessCtrl 扩展(请勿使用 Rational® ClearQuest® 访问控制机制)。针对 eSig_Config 记录执行 ACCESS_CONTROL 挂钩期间会调用该扩展;最后三个自变量($actionname、$actiontype 和 $username)直接来自于对该挂钩的调用。
sub esigCust_ConfigAccessCtrl {
my ($session, $actionname, $actiontype, $username) = @_;
return 1 if $username eq "admin";
return 0;
}