# # CHECK_MAGIC_PATH.pl # # Make sure the MAGIC_PATH env. variable is set to the # company standard. If not then do not allow new element # to be created. # # Author: Charles W. Clarke III (ABS) # email: charles@abs-consulting.com # URL: http://www.abs-consulting.com # Date: Jan. 13, 2003 ############################################################ # History: 01/13/03 : Created for A Better Solution, Inc. ############################################################ ############################# ######## PROCEDURES ######## ############################# # NONE # ################# ###### MAIN #####----------------------- ################# $OS="$ENV{'OS'}"; ########################################################### # Change data in conditional below to suite company needs # ########################################################### if ($OS =~ /[Ww]indows*/ ) { $COMPANY_MAGIC_PATH = "\\\\machine\\share\\magic"; } else { $COMPANY_MAGIC_PATH = "/net/machine/magic"; } ########################################################### $MAGIC_PATH = "$ENV{'MAGIC_PATH'}"; if ($MAGIC_PATH eq $COMPANY_MAGIC_PATH) { exit 0; } $gripe_prompt="\"Company standards do not allow you to make elements when your MAGIC_PATH variable is not set to ($COMPANY_MAGIC_PATH).\""; `clearprompt yes_no -mask abort -default abort -pre -prompt $gripe_prompt`; exit 1;