##########################################################################
# $Id: expandrepeats,v 1.9 2005/04/28 15:58:00 bjorn Exp $
##########################################################################

########################################################
# This was written and is maintained by:
#    Kirk Bauer <kirk@kaybee.org>
#
# Please send all comments, suggestions, bug reports,
#    etc, to kirk@kaybee.org.
#
########################################################

# This used to expand "Last Message Repeated n Times" messages in 
# standard syslog files.  Now, I have decided it is much better to
# just ignore the repeats, as otherwise our temporary logfiles will
# be too huge.

$LastLine = "";

while (defined($ThisLine = <STDIN>)) {
   if ($ThisLine =~ m/last message repeated \d+ times?$/) {
      # Just ignore these lines
      #for ($i=0;$i<$1;$i++) {
      #   print $LastLine;
      #}
   }
   else {
      print $ThisLine;
      $LastLine = $ThisLine;
   }
}

# vi: shiftwidth=3 syntax=perl tabstop=3 et