milestone (version 2.0)

• The description page for this routine
• The list of all subroutines

#! /usr/bin/perl

##############################################################################
#
# SYNTAX: milestone "message"
#
# DESCRIPTION: This utility
# DESCRIPTION: makes an entry in the job log. This routine should be
# DESCRIPTION: reserved for major events. The time the log entry was made is
# DESCRIPTION: appended to the message and the message is enclosed in
# DESCRIPTION: < h2 > HTML tags.
#
# VERSION: 2.0
#
# HISTORY: 0.0 -> 1.0 9/23/96
# HISTORY: Got rid of extraneous /h2 HTML tag in index entry.
# HISTORY: 
# HISTORY: 1.0 -> 2.0 1999-05-07
# HISTORY: Converted from ksh to perl
#
# CALLS: $UTIL/generate_filename
#
##############################################################################

use File::Basename;

$message = $ARGV[0];

$UTIL = $ENV{"UTIL"};

$scriptname = basename($0);

chomp($joblog = `$UTIL/generate_filename joblog`);
chomp($milestones = `$UTIL/generate_filename milestones`);

#################################
# HTML anchor name for milestone
#################################
chomp($lbldat = `date '+%dE%H%M%S'`);
$label = "LO$lbldat";

###################
# Debugging output
###################
if  ( "$DEBUG" ) {
    print "${scriptname}: joblog=$joblog\n";
    print "${scriptname}: milestones=$milestones\n";
    print "${scriptname}: label=$label\n";
}

################
# Job log entry
################
open JOBLOG, ">>$joblog";
print JOBLOG "<HR>\n";
print JOBLOG "<H2><A NAME=\"${label}\">";
chomp($lbldat = `date '+%H:%M:%S'`);
print JOBLOG "$message ( $lbldat )</A></H2>\n";

##############
# Index entry
##############
open MILESTONES, ">>$milestones";
print MILESTONES "     <LI><A HREF=\"${joblog}#${label}\">\n";
print MILESTONES "$message ( $lbldat )</A>\n";

exit 0