########################################################################## # $Id: modprobe,v 1.14 2005/02/24 17:08:04 kirk Exp $ ########################################################################## # $Log: modprobe,v $ # Revision 1.14 2005/02/24 17:08:04 kirk # Applying consolidated patches from Mike Tremaine # # Revision 1.5 2005/02/16 00:43:28 mgt # Added #vi tag to everything, updated ignore.conf with comments, added emerge and netopia to the tree from Laurent -mgt # # Revision 1.4 2004/07/29 19:33:29 mgt # Chmod and removed perl call -mgt # # Revision 1.3 2004/07/10 01:54:34 mgt # sync with kirk -mgt # # Revision 1.11 2004/02/03 03:36:39 kirk # Patches from Anssi Kolehmainen <kolean-5.listat@pp.inet.fi> # # Revision 1.10 2004/02/03 02:45:26 kirk # Tons of patches, and new 'oidentd' and 'shaperd' filters from # Pawe? Go?aszewski" <blues@ds.pg.gda.pl> # ########################################################################## ######################################################## # 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>)) { chomp($ThisLine); if ( $ThisLine =~ s/^modprobe: Can\'t locate module ([\w-]+)\s*$/$1/ ) { $Modules{$ThisLine}++; } elsif ( $ThisLine =~ s/^FATAL: Module (.*) not found./$1/) { $Modules{$ThisLine}++; } elsif ( (undef,$Module,$Reason) = ( $ThisLine =~ /(WARNING|FATAL): Error inserting ([^ ]* \([^ ]*\)): (.*)$/ ) ) { $ErrorInsert{$Module}{$Reason}++; } elsif ( (undef,$Module) = ( $ThisLine =~ /(WARNING|FATAL): Error running install command for (.*)$/ ) ) { $ErrorInstall{$Module}++; } elsif ( (undef,$Module) = ( $ThisLine =~ /(WARNING|FATAL): Module ([^ ]*) already in kernel./ ) ) { $AlreadyLoaded{$Module}++; } else { $OtherList{$ThisLine}++; } } if (keys %Modules) { print "\nCan't locate these modules:\n"; foreach my $ThisOne (sort keys %Modules) { print " " . $ThisOne . ": " . $Modules{$ThisOne} . " Time(s)\n"; } } if (keys %ErrorInsert) { print "\nErrors inserting modules:\n"; foreach $Module (sort {$a cmp $b} keys %ErrorInsert) { print " $Module :\n"; foreach $Reason (sort {$a cmp $b} keys %{$ErrorInsert{$Module}}) { print " $Reason : $ErrorInsert{$Module}{$Reason} Time(s)\n"; } } } if (keys %ErrorInstall) { print "\nErrors running install command:\n"; foreach $Module (sort {$a cmp $b} keys %ErrorInstall) { print " $Module : $ErrorInstall{$Module} Time(s)\n"; } } if (keys %AlreadyLoaded) { print "\nModules already in kernel:\n"; foreach $Module (sort {$a cmp $b} keys %AlreadyLoaded) { print " $Module : $AlreadyLoaded{$Module} Time(s)\n"; } } if (keys %OtherList) { print "\n**Unmatched Entries**\n"; foreach $line (sort {$a cmp $b} keys %OtherList) { print "$line: $OtherList{$line} Time(s)\n"; } } exit(0); # vi: shiftwidth=3 tabstop=3 syntax=perl et