head     1.1;
branch   ;
access   ;
symbols  ;
locks    ; strict;
comment  @# @;


1.1
date     92.04.13.16.35.24;  author romig;  state Exp;
branches ;
next     ;


desc
@Script that gleans the most recent 31 days worth of data from Merged.
@



1.1
log
@Initial revision
@
text
@#! /bin/sh

cd Recent
rm -f *

WHEN=`perl -e 'print time - (31 * 24 * 60 * 60), "\n"'`

awk "\$4 >= $WHEN { print \$0 }" < ../Merged/run.raw > run.raw
cp ../Merged/tape.raw tape.raw

cd ../Merged
for FILE in *host-raw 
do
	awk "\$6 >= $WHEN { print \$0 }" < $FILE > ../Recent/$FILE
done

@
