#!/usr/bin/perl -w
##########################################################################
# $Id: syslogd,v 1.6 2003/01/13 03:08:59 kirk 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.
########################################################

while (defined($ThisLine = <STDIN>)) {
   chomp($ThisLine);
   if ( $ThisLine =~ /^exiting on signal 15$/ ) {
      #$Kills++;
   }
   elsif ($ThisLine =~ /^syslogd .* restart\.$/) {
      $Starts++;
   }
   elsif ($ThisLine eq "restart") {
      $Starts++;
   }
   elsif ($ThisLine =~ /^Cannot glue message parts together$/) {
      $Errors++;
   }
   else {
      # Report any unmatched entries...
      push @OtherList,$ThisLine;
   }
}

if ($Errors) {
    print "\nCould not glue message parts together " . $Errors . " Time(s)\n";
}

if ($Starts) {
    print "\nSyslogd started " . $Starts . " Time(s)\n";
}

if ($#OtherList >= 0) {
    print "\n**Unmatched Entries**\n";
    print join "\n", @OtherList;
}

exit(0);

