log_entry (version 1.0)

You can also look at:

The description page for this routine
The list of all subroutines

#! /usr/bin/perl

##############################################################################
#
# SYNTAX: log_entry "message"
#
# DESCRIPTION: This utility makes an entry in the processing log.
#
# VERSION: 1.0
#
# HISTORY: 0.0 -> 1.0 1999-05-07
# HISTORY: Converted from ksh to perl
#
# CALLS: $UTIL/generate_filename
#
##############################################################################

$message = $ARGV[0];

$UTIL = $ENV{"UTIL"};

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

open JOBLOG, ">>$joblog";
print JOBLOG "<STRONG>-> $message</STRONG><BR>\n";

exit 0;