##########################################################################

# $Id$

##########################################################################

# $Log: qmail-pop3ds,v $

# Revision 1.3  2008/06/30 23:07:51  kirk

# fixed copyright holders for files where I know who they should be

#

# Revision 1.2  2008/03/24 23:31:26  kirk

# added copyright/license notice to each script

#

# Revision 1.1  2005/09/07 00:37:59  bjorn

# New qmail multilog files written by Bob Hutchinson

#

##########################################################################

#######################################################

## Copyright (c) 2008 Bob Hutchinson

## Covered under the included MIT/X-Consortium License:

##    http://www.opensource.org/licenses/mit-license.php

## All modifications and contributions by other persons to

## this script are assumed to have been donated to the

## Logwatch project and thus assume the above copyright

## and licensing terms.  If you want to make contributions

## under your own copyright or a different license this

## must be explicitly stated in the contribution an the

## Logwatch project reserves the right to not accept such

## contributions.  If you have made significant

## contributions to this script and want to claim

## copyright please contact logwatch-devel@lists.sourceforge.net.

#########################################################

$Detail         = $ENV{'LOGWATCH_DETAIL_LEVEL'};

$QmailDetail    = $ENV{'qmail_high_detail'};

$QmailThreshold = $ENV{'threshold'};

$ToThreshold    = $ENV{'to_threshold'};

$FromThreshold  = $ENV{'from_threshold'};

while (defined($ThisLine = <STDIN>)) {

	if (

		( $ThisLine =~ /status: / ) or

		( $ThisLine =~ /end (\d+) status \d+/ ) or

		( $ThisLine =~ / LOG5/ ) or

		( $ThisLine =~ /qmail-popup/ )

		)

	{

		# We don't care about these

	}

	elsif ( ($pid1,$RemoteServer) = ( $ThisLine =~ /pid (\d+) from (.*)/ ) )

	{

		$From{$RemoteServer}++;

		$TotalFrom++;

	}

	elsif ( ($pid2,$LocalServer) = ( $ThisLine =~ /ok (\d+) \d+:(.*):995\s+.*/ ) )

	{

		$To{$LocalServer}++;

		$TotalTo++;

	}

	elsif ( ($Warning) = ( $ThisLine =~ /warning: (.*)/i ) )

	{

		$Warnings{$Warning}++;

	}

	else

	{

		# Report any unmatched entries...

		push @OtherList,$ThisLine;

	}

}

if ($QmailDetail >= 1)

{

	if ($QmailThreshold > 0)

	{

		if (($FromThreshold < 0) or ($FromThreshold eq ''))

		{

			$FromThreshold = $QmailThreshold;

	}

		if (($ToThreshold < 0) or ($ToThreshold eq ''))

		{

			$ToThreshold = $QmailThreshold;

		}

	}

	if (($FromThreshold < 0) or ($FromThreshold eq ''))

	{

		$FromThreshold = 0;

	}

	if (($ToThreshold < 0) or ($ToThreshold eq ''))

	{

		$ToThreshold = 0;

	}

	if ( (keys %From) )

	{

		print "\nConnections from (Threshold of " . $FromThreshold . "):\n";

		$threshold_reached=0;

		foreach $Line (sort {$From{$b} <=> $From{$a}} keys %From)

		{

			if ($From{$Line} >= $FromThreshold)

			{

				$threshold_reached=1;

				print "\t" . $Line . " - ". $From{$Line} . " Time(s)\n";

			}

		}

		if ($threshold_reached < 1)

		{

			print "\t" . "None found above the threshold\n";

		}

	}

	if ( (keys %To) )

	{

		print "\nConnections to (Threshold of " . $ToThreshold . "):\n";

		$threshold_reached=0;

		foreach $Line (sort {$To{$b} <=> $To{$a}} keys %To)

		{

			if ($To{$Line} >= $ToThreshold)

			{

				$threshold_reached=1;

				print "\t" . $Line . " - ". $To{$Line} . " Time(s)\n";

			}

		}

		if ($threshold_reached < 1)

		{

			print "\t" . "None found above the threshold\n";

		}

	}

}

if ($TotalFrom or $TotalTo) {

	print "\nTotals:\n";

	print "\tRemote connections $TotalFrom\n";

	print "\tLocal connections $TotalTo\n";

}

if ( (keys %Warnings) ) {

   print "\nWarnings:\n";

   foreach $Line (sort {$Warnings{$b} <=> $Warnings{$a}} keys %Warnings) {

      print "\t" . $Line . " - ". $Warnings{$Line} . " Time(s)\n";

   }

}

if (($#OtherList >= 0) and (not $IngoreUnmatched)){

	print "\n**Unmatched Entries**\n";

	print @OtherList;

}

exit(0);

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

# Local Variables:

# mode: perl

# perl-indent-level: 3

# indent-tabs-mode: nil

# End: