|
Server : Apache/2.2.2 (Fedora) System : Linux App1.pathumtani.go.th 2.6.20-1.2320.fc5smp #1 SMP Tue Jun 12 19:40:16 EDT 2007 i686 User : apache ( 48) PHP Version : 5.2.9 Disable Function : NONE Directory : /proc/self/root/usr/share/logwatch/scripts/services/ |
Upload File : |
##########################################################################
# $Id: syslogd,v 1.13 2006/01/04 21:18:03 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.
########################################################
my $Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
while (defined($ThisLine = <STDIN>)) {
chomp($ThisLine);
if ( $ThisLine =~ /^exiting on signal 15$/ ) {
#$Kills++;
}
elsif ($ThisLine =~ /^syslogd .* restart\.$/) {
$Starts++;
}
elsif ($ThisLine =~ /^restart\.?$/) {
$Starts++;
}
elsif ($ThisLine =~ /^Cannot glue message parts together$/) {
$Errors++;
}
else {
# Report any unmatched entries...
chomp($ThisLine);
$OtherList{$ThisLine}++;
}
}
if ($Errors) {
print "\nCould not glue message parts together " . $Errors . " Time(s)\n";
}
if ($Starts and ($Detail >=10) ) {
print "\nSyslogd started " . $Starts . " Time(s)\n";
}
if (keys %OtherList) {
print "\n**** Unmatched entries ****\n";
foreach $Error (keys %OtherList) {
print " $Error : $OtherList{$Error} Times\n";
}
}
exit(0);
# vi: shiftwidth=3 tabstop=3 syntax=perl et