#!/bin/sh
files=vg.*
logname() {
# sed -n -e 7p $1 | awk '{print $2}'
# head -7 $1 | tail -1 | awk '{print $2}'
awk '{ if (NR == 9) { print $2; exit 0; } }' $1
}
show_names() {
if test "$*" = "$files" ; then
return
fi
for f in $* ; do
echo $f : `logname $f`
done
}
discard_list="/bin/ps /bin/sh /bin/stty /usr/bin/cmp awk cat chmod cmp cp env expr find grep kill mv rev rlogin rm sed sh sleep sort tail test touch wc whoami xargs"
discard_list="$discard_list tcsh tokens"
#discard_list="$discard_list ./rtest ./dbtest"
# The t_inetd program's logs seem to always wind up incomplete for some
# reason. It's also not terribly important.
discard_list="$discard_list /path/to/.../t_inetd"
filter() {
if test "$*" = "$files" ; then
return
fi
for f in $* ; do
n=`logname $f`
for d in $discard_list; do
if test "$n" = "$d"; then
echo rm $f : $n
rm $f
break
fi
done
done
}
kill_error_free_logs() {
if test "$*" = "$files" ; then
return
fi
grep -l "ERROR SUMMARY: 0 errors" $* | while read name ; do
echo rm $name : no errors in `logname $name`
rm $name
done
}
kill_no_leak_logs() {
if test "$*" = "$files" ; then
return
fi
grep -l "ERROR SUMMARY: 0 errors" $* | \
grep -l "definitely lost: 0 bytes" $* | \
xargs grep -l "possibly lost: 0 bytes" | \
xargs grep -l "still reachable: 0 bytes in 0 blocks" | \
while read name ; do
echo rm $name : no leaks or errors in `logname $name`
rm $name
done
}
filter $files
kill_error_free_logs $files
#kill_no_leak_logs $files
echo Remaining files:
show_names $files