cc/triggers/AddExecute.pl

   1 #!/usr/bin/perl
   2 ################################################################################
   3 #
   4 # File:         AddExecute.pl
   5 # Description:  This trigger script simply adds execute permission to an element
   6 #               when it is created in Clearcase
   7 # Trigger Type: All element
   8 # Operation:    Postop mkelem
   9 # Author:       Andrew@DeFaria.com
  10 # Created:      Fri Mar 12 10:17:44 PST 2004
  11 # Language:     Perl
  12 # Modifications:
  13 #
  14 # (c) Copyright 2004, Andrew@DeFaria.com, all rights reserved
  15 #
  16 ################################################################################
  17 use strict;
  18 use warnings;
  19
  20 my $element  = $ENV{CLEARCASE_PN};
  21
  22 system "cleartool protect -chmod +x \"$element\"";
  23
  24 exit 0;