|
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: init,v 1.13 2005/02/24 17:08:04 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.
########################################################
$Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
while (defined($ThisLine = <STDIN>)) {
if ( $ThisLine =~ s/Switching to runlevel: (.)\s*$/$1/ ) {
# Which runlevel did we change to?
chomp ($ThisLine);
$RunLevel{$ThisLine}++;
}
elsif ( $ThisLine =~ s/^Entering runlevel: (.)\s*$/$1/ ) {
# Which runlevel did we enter?
chomp ($ThisLine);
$RunLevel{$ThisLine}++;
}
elsif ( $ThisLine =~ s/^Trying to re-exec init// ) {
# Look for telinit executions
chomp ($ThisLine);
$ReExecInit++;
}
else {
# report any unmatched entries
push @OtherList,$ThisLine;
}
}
if ((keys %RunLevel) and ($Detail >= 10)) {
foreach $Level (sort keys %RunLevel) {
print " Entered or switched to runlevel " . $Level . ": " . $RunLevel{$Level} . " Time(s)\n";
}
}
if ($ReExecInit) {
print "\n\nRe-execs of init: $ReExecInit times\n";
}
if ($#OtherList >= 0) {
print "\n**Unmatched Entries**\n";
print @OtherList;
}
exit(0);
# vi: shiftwidth=3 tabstop=3 syntax=perl et