Blame scripts/services/syslogd

Packit 57988d
Packit 57988d
##########################################################################
Packit 57988d
# $Id$
Packit 57988d
##########################################################################
Packit 57988d
Packit 57988d
#######################################################
Packit 57988d
## Copyright (c) 2008 Kirk Bauer
Packit 57988d
## Covered under the included MIT/X-Consortium License:
Packit 57988d
##    http://www.opensource.org/licenses/mit-license.php
Packit 57988d
## All modifications and contributions by other persons to
Packit 57988d
## this script are assumed to have been donated to the
Packit 57988d
## Logwatch project and thus assume the above copyright
Packit 57988d
## and licensing terms.  If you want to make contributions
Packit 57988d
## under your own copyright or a different license this
Packit 57988d
## must be explicitly stated in the contribution an the
Packit 57988d
## Logwatch project reserves the right to not accept such
Packit 57988d
## contributions.  If you have made significant
Packit 57988d
## contributions to this script and want to claim
Packit 57988d
## copyright please contact logwatch-devel@lists.sourceforge.net.
Packit 57988d
#########################################################
Packit 57988d
Packit 57988d
my $Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
Packit 57988d
Packit 57988d
while (defined($ThisLine = <STDIN>)) {
Packit 57988d
   chomp($ThisLine);
Packit 57988d
   if ( $ThisLine =~ /^(exiting|going down) on signal 15$/ ) {
Packit 57988d
      #$Kills++;
Packit 57988d
   }
Packit 57988d
   elsif ($ThisLine =~ /^syslogd .* restart\.$/) {
Packit 57988d
      $Starts++;
Packit 57988d
   }
Packit 57988d
   elsif ($ThisLine =~ /^restart( \(remote reception\))?\.?$/) {
Packit 57988d
      $Starts++;
Packit 57988d
   }
Packit 57988d
   elsif ($ThisLine =~ /^Cannot glue message parts together$/) {
Packit 57988d
      $Errors++;
Packit 57988d
   }
Packit 57988d
   else {
Packit 57988d
      # Report any unmatched entries...
Packit 57988d
      $OtherList{$ThisLine}++;
Packit 57988d
   }
Packit 57988d
}
Packit 57988d
Packit 57988d
if ($Errors) {
Packit 57988d
    print "\nCould not glue message parts together " . $Errors . " Time(s)\n";
Packit 57988d
}
Packit 57988d
Packit 57988d
if ($Starts and ($Detail >=10) ) {
Packit 57988d
    print "\nSyslogd started " . $Starts . " Time(s)\n";
Packit 57988d
}
Packit 57988d
Packit 57988d
if (keys %OtherList) {
Packit 57988d
   print "\n**** Unmatched entries ****\n";
Packit 57988d
   foreach $Error (keys %OtherList) {
Packit 57988d
      print "    $Error : $OtherList{$Error} Times\n";
Packit 57988d
   }
Packit 57988d
}
Packit 57988d
Packit 57988d
exit(0);
Packit 57988d
Packit 57988d
# vi: shiftwidth=3 tabstop=3 syntax=perl et
Packit 57988d
# Local Variables:
Packit 57988d
# mode: perl
Packit 57988d
# perl-indent-level: 3
Packit 57988d
# indent-tabs-mode: nil
Packit 57988d
# End: