close_logs (version 2.0)

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

#! /usr/bin/perl

##############################################################################
#
# SYNTAX: close_logs
#
# DESCRIPTION: This utility puts the final HTML tags into the processing log
# DESCRIPTION: and its indices.
#
# VERSION: 2.0
#
# HISTORY: 0.0 -> 1.0 8/19/96 Supplied missing </ol> tags to
# HISTORY: milestones and error log.
# HISTORY: 
# HISTORY: 1.0 -> 2.0 1999-05-07
# HISTORY: Converted from ksh to perl
#
# CALLS: $UTIL/generate_filename
# CALLS: $UTIL/milestone
#
##############################################################################

$UTIL = $ENV{"UTIL"};

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

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

`$UTIL/milestone "Processing complete"`;

###############
# Closing tags
###############
if ( -w $joblog ) {
    open JOBLOG, ">>$joblog";
    print JOBLOG "</BODY>\n";
    print JOBLOG "</HTML>\n";
}

if ( -w $errlog ) {
    open ERRLOG, ">>$errlog";
    print ERRLOG "</OL>\n";
    print ERRLOG "</BODY>\n";
    print ERRLOG "</HTML>\n";
}

if ( -w $milestones ) {
    open MILESTONES, ">>$milestones";
    print MILESTONES "</OL>\n";
    print MILESTONES "</BODY>\n";
    print MILESTONES "</HTML>\n";
}

exit 0