279 lines
6.2 KiB
Bash
Executable File
279 lines
6.2 KiB
Bash
Executable File
#!/bin/ksh
|
|
#
|
|
# extract_log.ksh
|
|
#
|
|
########################################################################
|
|
#set -x
|
|
|
|
##########################################################################
|
|
#
|
|
# Script setup: THIS NEEDS TO BE FIRST
|
|
#
|
|
SCRIPTS_DIR="`dirname $0`"
|
|
if [ "" = "$SCRIPTS_DIR" ]; then
|
|
SCRIPTS_DIR=/project/dt/scripts
|
|
fi
|
|
if [ ! -f $SCRIPTS_DIR/script_setup.ksh ]; then
|
|
print -u2 "$PRG: File '$SCRIPTS_DIR/script_setup.ksh' NOT found!"
|
|
print -u2 "$PRG: Exiting ..."
|
|
exit 1
|
|
fi
|
|
. $SCRIPTS_DIR/script_setup.ksh
|
|
|
|
##########################################################################
|
|
##########################################################################
|
|
#
|
|
# Script specific global variables
|
|
#
|
|
##########################################################################
|
|
##########################################################################
|
|
COMPONENTS_FILES=""
|
|
COMPONENTS=""
|
|
DEBUG="False"
|
|
LOG_FILE=""
|
|
ERROR_FILE=""
|
|
LOG_DIRECTORY=""
|
|
PROG_NAME="`basename $0`"
|
|
|
|
usage ()
|
|
{
|
|
print -u1 "USAGE: $1"
|
|
print -u1 "\t[{-c | -components_file} <file>]"
|
|
print -u1 "\t # Specifies a file containing a list of components to"
|
|
print -u1 "\t # be extracted. Multiple -c flags can be specified."
|
|
print -u1 "\t{-e | -errorfile} <file>"
|
|
print -u1 "\t # Specifies the error file to send errors."
|
|
print -u1 "\t[-h | -? | -help]"
|
|
print -u1 "\t # Print usage and exit"
|
|
print -u1 "\t[{-ld | -logdirectory} <directory>]"
|
|
print -u1 "\t # Specifies an alternative directory to store the"
|
|
print -u1 "\t # extracted component logs. Defaults to the directory"
|
|
print -u1 "\t # containing the log file."
|
|
print -u1 "\t{-l | -logfile} <file>"
|
|
print -u1 "\t # Specifies the log file to be extracted from."
|
|
print -u1 "\t[component ...]"
|
|
print -u1 "\t # Specifies individual components to be extraced."
|
|
print -u1 "\t # Each component specification is should correspond"
|
|
print -u1 "\t # to an individual directory in the source tree."
|
|
}
|
|
|
|
#
|
|
# Do command-line processing
|
|
#
|
|
while [ $# -gt 0 ]; do
|
|
case $1 in
|
|
|
|
-debug)
|
|
DEBUG="True"
|
|
shift 1 ;;
|
|
|
|
-c | -components_file)
|
|
if [ $# -lt 2 ]; then
|
|
print -u2 "$PROG_NAME: $1 option missing value; exiting ..."
|
|
do_exit 1
|
|
fi
|
|
COMPONENTS_FILES="$2 $COMPONENTS_FILES"
|
|
shift 2 ;;
|
|
|
|
-e | -errorfile)
|
|
if [ $# -lt 2 ]; then
|
|
print -u2 "$PROG_NAME: $1 option missing value; exiting ..."
|
|
do_exit 1
|
|
fi
|
|
ERROR_FILE=$2
|
|
shift 2 ;;
|
|
|
|
-ld | -logdirectory)
|
|
if [ $# -lt 2 ]; then
|
|
print -u2 "$PROG_NAME: $1 option missing value; exiting ..."
|
|
do_exit 1
|
|
fi
|
|
LOG_DIRECTORY=$2
|
|
shift 2 ;;
|
|
|
|
-l | -logfile)
|
|
if [ $# -lt 2 ]; then
|
|
print -u2 "$PROG_NAME: $1 option missing value; exiting ..."
|
|
do_exit 1
|
|
fi
|
|
LOG_FILE=$2
|
|
shift 2 ;;
|
|
|
|
-h | -? | -help)
|
|
usage $PROG_NAME
|
|
do_exit 1 ;;
|
|
|
|
*)
|
|
COMPONENTS="$COMPONENTS $1"
|
|
shift 1;;
|
|
esac
|
|
done
|
|
|
|
if [ ! -z "$ERROR_FILE" ]
|
|
then
|
|
exec 2>> $ERROR_FILE
|
|
fi
|
|
|
|
#
|
|
# Check to make sure that the command-line parameters make sense.
|
|
#
|
|
if [ -z "$COMPONENTS_FILES" ] && [ -z "$COMPONENTS" ]
|
|
then
|
|
print -u2 "$PROG_NAME: No components or component files specified."
|
|
print -u2 "$PROG_NAME: exiting ..."
|
|
do_exit 1
|
|
fi
|
|
|
|
for f in $COMPONENTS_FILES
|
|
do
|
|
if [ ! -f $f ]
|
|
then
|
|
print -u2 "$PROG_NAME: Component file \"$f\" does not exist."
|
|
print -u2 "$PROG_NAME: exiting ..."
|
|
do_exit 1
|
|
fi
|
|
done
|
|
|
|
if [ -z "$LOG_FILE" ]
|
|
then
|
|
print -u2 "$PROG_NAME: Missing argument for log file."
|
|
print -u2 "$PROG_NAME: exiting ..."
|
|
do_exit 1
|
|
fi
|
|
|
|
if [ ! -f $LOG_FILE ]
|
|
then
|
|
print -u2 "$PROG_NAME: Log file \"$LOG_FILE\" does not exist."
|
|
print -u2 "$PROG_NAME: exiting ..."
|
|
do_exit 1
|
|
fi
|
|
|
|
if [ -n "$LOG_DIRECTORY" ] && [ ! -d $LOG_DIRECTORY ]
|
|
then
|
|
print -u2 "$PROG_NAME: Log directory \"$LOG_DIRECTORY\" does not exist."
|
|
print -u2 "$PROG_NAME: exiting ..."
|
|
do_exit 1
|
|
fi
|
|
|
|
if [ -z "$LOG_DIRECTORY" ]
|
|
then
|
|
LOG_DIRECTORY=`dirname $LOG_FILE`
|
|
#
|
|
# Just being paranoid. dirname should return '.' if there is no
|
|
# directory component.
|
|
#
|
|
if [ -z "$LOG_DIRECTORY" ]
|
|
then
|
|
LOG_DIRECTORY='.'
|
|
fi
|
|
fi
|
|
|
|
#
|
|
# Collect all the components from the components files.
|
|
#
|
|
for f in "$COMPONENTS_FILES"
|
|
do
|
|
for c in `cat $f`
|
|
do
|
|
COMPONENTS="$COMPONENTS $c"
|
|
done
|
|
done
|
|
|
|
#
|
|
# Collect all the build messages
|
|
# ignoring those that have been commented out.
|
|
#
|
|
MESSAGES="XXXXXXX"
|
|
IFS="
|
|
"
|
|
for m in `cat $BUILD_MSGS`
|
|
do
|
|
MESSAGES="$MESSAGES|$m"
|
|
done
|
|
IFS=" "
|
|
|
|
#
|
|
# Build the awk script
|
|
#
|
|
SCRIPT=/tmp/${PROG_NAME}.$$.awk
|
|
do_register_temporary_file $SCRIPT
|
|
|
|
touch $SCRIPT
|
|
chmod 775 $SCRIPT
|
|
print -n -u1 'BEGIN {
|
|
do_print = 0
|
|
}
|
|
/.*/ {
|
|
if (' >> $SCRIPT
|
|
|
|
IFS="|"
|
|
let i=0
|
|
for m in $MESSAGES
|
|
do
|
|
if [ i -gt 0 ]; then
|
|
print -n -u1 " || " >> $SCRIPT
|
|
fi
|
|
print -n -u1 "index(\$0, \"$m \")" >> $SCRIPT
|
|
let i=$i+1
|
|
done
|
|
IFS=" "
|
|
|
|
#
|
|
# NOTE on: (index($NF, PATTERN) == 1 || index($NF, PATTERN) == 3)
|
|
# This check is intended to guard against false matches on
|
|
# subcomponents: i.e. config and programs/dtlogin/config.
|
|
# The problem is that top level subdirectories show up differently
|
|
# than lower level directories. E.g.:
|
|
# /prog/cde/config => making all in ./config...
|
|
# /prog/cde/programs/dtlogin => making all in programs/dtlogin...
|
|
#
|
|
# There are 2 ways to handle this, in the components files or here.
|
|
# I've chosen here.
|
|
#
|
|
print -n -u1 ')
|
|
{
|
|
if (index($NF, PATTERN) == 1 || index($NF, PATTERN) == 3)
|
|
{
|
|
do_print = 1
|
|
print
|
|
next
|
|
}
|
|
else
|
|
{
|
|
do_print = 0
|
|
next
|
|
}
|
|
}
|
|
if (do_print) print
|
|
}' >> $SCRIPT
|
|
|
|
#
|
|
# Extract each of the specified component logs.
|
|
#
|
|
TMP_LOG_FILE=${LOG_FILE}.$$
|
|
do_register_temporary_file $TMP_LOG_FILE
|
|
|
|
sed -n -e 's/\(.\{0,254\}\).*/\1/p' $LOG_FILE > $TMP_LOG_FILE
|
|
for c in $COMPONENTS
|
|
do
|
|
COMPONENT_LOG=$LOG_DIRECTORY/`echo $c | tr "/" ","`.log
|
|
PATTERN="$c"
|
|
|
|
#
|
|
# sed protects awk from lines which are too long.
|
|
#
|
|
if [ "$DEBUG" = "True" ]
|
|
then
|
|
echo "awk -f $SCRIPT PATTERN=$PATTERN $TMP_LOG_FILE >
|
|
$COMPONENT_LOG"
|
|
else
|
|
awk -f $SCRIPT PATTERN=$PATTERN $TMP_LOG_FILE > $COMPONENT_LOG
|
|
fi
|
|
|
|
done
|
|
|
|
#
|
|
# Clean up temporary files and exit
|
|
#
|
|
do_exit 0
|