1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/usr/bin/perl -w
##########################################################################
# $Id: init,v 1.10 2003/12/15 18:09:23 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 et
|
