defaria.com/Computers/code/bin/clearcase/triggers/SetOwnershipTrigger.pl

   1 ################################################################################
   2 #
   3 # File:         SetOwnershipTrigger.pl
   4 # Description:  This script will set the ownership of Clearcase elements to
   5 #               ccadmin when a mkelem is performed. This way all Clearcase
   6 #               elements will be owned by ccadmin and therefore nobody but
   7 #               ccadmin will be able to do the destructive rmelem.
   8 # Author:       Andrew@DeFaria.com
   9 # Created:      Wed Nov 14 16:41:48  2001
  10 # Language:     Perl
  11 # Modifications:
  12 #
  13 # (c) Copyright 2001, Andrew@DeFaria.com, all rights reserved
  14 #
  15 ################################################################################
  16 $pname = "$ENV{CLEARCASE_PN}";
  17 $adm   = "ccadmin";
  18
  19 # Get current owner
  20 $_ = `cleartool describe $pname`;
  21 if (/User :\s+(\S*)\s*:/) {
  22   $owner = $1;
  23 } else {
  24   $owner = "";
  25 }
  26
  27 if ($owner ne "$adm") {
  28  `cleartool protect -chown $adm $ENV{CLEARCASE_PN}`;
  29 }