# # # STANDARDS.pl # # New label type must be fully UPPER CASE (i.e. REL1.0). # New bramch type must be fully lower case (i.e. rel1.0). # # Author: Charles W. Clarke III (ABS) # email: charles@abs-consulting.com # URL: http://www.abs-consulting.com # Date: Apr. 08, 2001 ############################################################ # History: 04/08/01 : Created for A Better Solution, Inc. # : 01/18/02 : Changed CLEARCASE_NEW_TYPE to CLEARCASE_MTYPE # : - thanx Anders Grund ############################################################ $NEWTYPE = "$ENV{'CLEARCASE_MTYPE'}"; if ($NEWTYPE eq "label type") { ################################################# # make sure new label type is fully UPPER case. # ################################################# $REAL = "$ENV{'CLEARCASE_LBTYPE'}"; $UPPER = uc ($REAL); if ( "$REAL" ne "$UPPER" ) { $prompt="\"Invalid label type ($REAL). New label types must be fully upper case like ($UPPER)!\n\""; `clearprompt yes_no -mask abort -default abort -pre -prompt $prompt`; exit 1; } } elsif ($NEWTYPE eq "branch type") { ################################################## # Make sure new branch type is fully lower case. # ################################################## $REAL = "$ENV{'CLEARCASE_BRTYPE'}"; $LOWER = lc ($REAL); if ( "$REAL" ne "$LOWER" ) { $prompt="\"Invalid branch type ($REAL). New branch types must be fully lower case like ($LOWER)!\n\""; `clearprompt yes_no -mask abort -default abort -pre -prompt $prompt`; exit 1; } } ############################################### # Not new label type or branch type - exit OK # ############################################### exit 0