#
#
# INHIBIT.pl
#
# For file/actions where this trigger is attached, inhibit
# this action to list members only.
#
# Author: Charles W. Clarke III (ABS)
# email:  charles@abs-consulting.com
# URL:    http://www.abs-consulting.com
# Date:   Aug. 16, 1996
############################################################
# History: 08/16/96 : Created for A Better Solution, Inc.
############################################################

########################################
# Users allowed to perform the action. #
########################################

$ALLOWED_USERS = " user1 user2 ";              # IDs must be space surrounded...
                                               # so that "jan" is not confused with "janet"
########################################

$VOB_PN = "$ENV{'CLEARCASE_VOB_PN'}";
$OP = "$ENV{'CLEARCASE_OP_KIND'}";
$TEST_USER = " $ENV{'CLEARCASE_USER'} ";

if ($ALLOWED_USERS !~ /$TEST_USER/)
{
   $prompt="\"Only members of the user-list ($ALLOWED_USERS) are allowed to perform this";
   $prompt="$prompt controlled action ($OP) in the VOB ($VOB_PN).\"";
   `clearprompt yes_no -mask abort -default abort -pre -prompt $prompt`;
   
   exit 1;
}

exit 0;