########################################################################## # $Id: bfd,v 1.1 2007/04/15 19:48:23 bjorn Exp $ ########################################################################## # $Log: bfd,v $ # Revision 1.1 2007/04/15 19:48:23 bjorn # New bfd (Brute Force Detection) service, by Andy Bolstridge. # ########################################################################## $Debug = $ENV{'LOGWATCH_DEBUG'} || 0; if ( $Debug >= 5 ) { print STDERR "\n\nDEBUG: Inside BFD Filter \n\n"; $DebugCounter = 1; } while (defined($ThisLine = <STDIN>)) { if ( $Debug >= 5 ) { print STDERR "DEBUG($DebugCounter): $ThisLine"; $DebugCounter++; } $ThisLine =~ s/^[^ ]* [^ ]* //; if ( $ThisLine =~ s/.*apf \-d ([^ ]+).*\{([^\}]+).*/$1 : \($2\)/ ) { $Banned{$ThisLine}++; } else { # Report any unmatched entries... push @OtherList,$ThisLine; } } if (keys %Banned) { print "\nBanned:\n"; foreach $ThisOne (keys %Banned) { print " ". $ThisOne; } } if ($#OtherList >= 0) { print "\n**Unmatched Entries**\n"; print @OtherList; } exit(0); # vi: shiftwidth=3 tabstop=3 et