#!/bin/sh
# $Id: cleanlog_v 1.2 1997/03/23 18:12:24 jhl Exp $

debug=0
while [ $# -ge "1" ]
do
   case $1 in
         -d)
		debug=1
		set -vx
		;;
	 -*)
	 	echo "cleanlog: invalid args" 1>&2
		exit 1
		;;
	 *)
	 	break
		;;
   esac
done


tmpfile=/usr/tmp/cleanlog$$

listheaders () {
${SHAK_USERPATH}/lib/shak_remsh ${SHAK_REMSH} ${SHAK_INDEXHOST}  \
"ls -c1 ${SHAK_INDEXPATH}/${shak_indexbase}${SHAK_DOMAIN}_[0-9][0-9][0-9][0-9] | \
grep -v ${SHAK_INDEXPATH}/${shak_indexbase}${SHAK_DOMAIN}_9999  | \
while read line; do cat \$line; done"
}

listlogs () {
${SHAK_USERPATH}/lib/shak_remsh ${SHAK_REMSH} ${SHAK_LOGHOST}  \
"ls -c1 ${SHAK_LOGPATH}/${SHAK_LOGBASENAME}* | \
egrep -v -e 'STDERR$' "
}


listheaders >$tmpfile

SHAK_REMSH=rsh

listlogs |

while read line

do

	if [ $debug = 1 ]; then
		echo $line
	fi
	line1="`${SHAK_USERPATH}/lib/shak_remsh -n ${SHAK_REMSH} ${SHAK_LOGHOST}  "cd $SHAK_LOGPATH; zgrep "\'__CALT__\'"  $line" | head -n 1`"

	if [ $debug = 1 ]; then
		echo MATCH:::  $line1
		echo ""
		echo ""
	fi
	file="`echo "$line1" | sed -e 's@^\([^:]*\):.*@\1@'`"
	entry="`echo "$line1" | sed -e 's@^.*\(__CALT__[0-9]*__SHAK__[^:]*:[^:]*:[^:]*\):.*@\1@'`"
	if [ $debug = 1 ]; then
		echo $file
		echo $entry
		echo ""
	fi

	grep -l $entry $tmpfile
	retval=$?
	echo $retval

	if [ $retval -eq 0  ]; then
		echo $SHAK_REMSH $SHAK_LOGHOST compress $line
		$SHAK_REMSH $SHAK_LOGHOST compress $line </dev/null
	else
		basefilename="`echo $line | sed -e 's/\.Z$//'`"
		echo $SHAK_REMSH $SHAK_LOGHOST rm -f $basefilename.STDERR
		echo $SHAK_REMSH $SHAK_LOGHOST rm -f $basefilename
		$SHAK_REMSH $SHAK_LOGHOST rm -f $basefilename.STDERR </dev/null
		$SHAK_REMSH $SHAK_LOGHOST rm -f $basefilename </dev/null
		$SHAK_REMSH $SHAK_LOGHOST rm -f $basefilename.Z </dev/null
		
		if [ $debug = 1 ]; then
			echo "$file:$entry  is OUTDATED"
			echo $SHAK_REMSH rm $basefilename.STDERR
			echo $SHAK_REMSH rm $basefilename
		fi
	
	fi
done

rm $tmpfile

