##########################################################################
# $Id: sshd2,v 1.8 2005/02/24 17:08:05 kirk Exp $
##########################################################################

########################################################
# This was written and is maintained by:
#    Gerald Teschl <gerald@esi.ac.at>
#
# Please send all comments, suggestions, bug reports,
#    etc, to and kirk@kaybee.org.
########################################################

$Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;

while (defined($ThisLine = <STDIN>)) {
   if ( ($ThisLine =~ /^Daemon is running.$/) or
         ($ThisLine =~ /^Listener created on port .*$/) or
         ($ThisLine =~ /^sshd2$/) ) {
      # don't care about these
   }
   elsif ( $ThisLine =~ /^Starting sshd2: $/ ) {
      $Started++;
   }
   else {
      # Report any unmatched entries...
      chomp($ThisLine);
      $OtherList{$ThisLine}++;
   }
}

if ( ($Detail >= 10) and ($Started) ) {
   print "\nStatistics:\n";
   print "   Sshd2 started: $Started Time(s)\n";
}

if (keys %OtherList) {
   print "\n**Unmatched Entries**\n";
   foreach $ThisOne (keys %OtherList) {
      print "$ThisOne: $OtherList{$ThisOne} Time(s)\n";
   }
}                                                                                       
    
exit(0);

# vi: shiftwidth=3 tabstop=3 syntax=perl et