2 ################################################################################
4 # File: $RCSfile: TriggerUtils.pm,v $
5 # Revision: $Revision: 1.3 $
6 # Description: Perl module for Trigger Utilities.
7 # Author: Andrew@ClearSCM.com
8 # Created: Fri Mar 12 10:17:44 PST 2004
9 # Modified: $Date: 2011/01/09 01:04:33 $
12 # (c) Copyright 2005, ClearSCM, Inc. all rights reserved
14 ################################################################################
27 my ($abs_path, $me, $log_path, $logfile, $user);
30 # Extract relative path and basename from script name.
31 $0 =~ /(.*)[\/\\](.*)/;
33 $abs_path = (!defined $1) ? "." : File::Spec->rel2abs ($1);
34 $me = (!defined $2) ? $0 : $2;
37 $log_path = "$abs_path$SEPARATOR..${SEPARATOR}triggers";
40 $logfile = "$log_path${SEPARATOR}trigger.log";
42 # Get username to use to tag messages
43 $user = $ENV {CLEARCASE_USER};
47 # Display a message to the user using clearprompt
50 `clearprompt proceed -newline -type error -prompt "$message" -mask abort -default abort`;
54 # Log a message to the log file
57 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
60 $hour = "0" . $hour if $hour < 10;
61 $min = "0" . $min if $min < 10;
62 my $date = "$mon/$mday/$year\@$hour:$min";
64 my $status = open (LOGFILE, ">>$logfile");
66 if (!defined $status) {
67 clearmsg "Catostrophic error:\n\n
68 Unable to open logfile ($logfile) to log the following message:\n\n
73 print LOGFILE "$me: $date: $user: $message\n";
79 # Log message to log file then display it to user