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

# $Id$

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

# $Log: qmail-smtpd,v $

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

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

#

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

# added copyright/license notice to each script

#

# Revision 1.8  2007/06/18 03:58:37  bjorn

# Changed to handle any mail port, by Bob Hutchinson.

#

# Revision 1.7  2007/01/29 19:09:51  bjorn

# Handle log entries from simscan v1.2 or later, and improved output report,

# by Bob Hutchinson.

#

# Revision 1.6  2005/12/17 15:45:42  bjorn

# Fixed error in rblsmtpd lines, by Bob Hutchinson

#

# Revision 1.5  2005/10/19 05:31:29  bjorn

# Fixes to report headings, by Bob Hutchinson

#

# Revision 1.4  2005/10/06 23:37:46  mike

# Added #vi tag -mgt

#

# Revision 1.3  2005/09/27 21:20:28  bjorn

# Quarantine support, by Bob Hutchinson

#

# Revision 1.2  2005/09/07 15:20:21  bjorn

# Added badmailfrom/badmailto, by Bob Hutchinson

#

# 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'} ? $ENV{'threshold'} : 0 );

$ToThreshold = $ENV{'to_threshold'};

$FromThreshold = $ENV{'from_threshold'};

$BlockedThreshold = $ENV{'blocked_threshold'};

# simscan

$SimscanThreshold = $ENV{'simscan_threshold'};

$SimscanFromThreshold = $ENV{'simscan_from_threshold'};

$SimscanToThreshold = $ENV{'simscan_to_threshold'};

$SimscanAttachThreshold = $ENV{'simscan_attach_threshold'};

$SimscanRegexThreshold = $ENV{'simscan_regex_threshold'};

$ShowSimscanPassthru = $ENV{'show_simscan_passthru'};

$SimscanPassthruIpFromThreshold = $ENV{'simscan_passthru_ip_from_threshold'};

$SimscanPassthruFromThreshold = $ENV{'simscan_passthru_from_threshold'};

$SimscanPassthruToThreshold = $ENV{'simscan_passthru_to_threshold'};

$ShowSimscanSpamReject = $ENV{'show_simscan_spam_reject'};

$SimscanSpamRejectIpFromThreshold = $ENV{'simscan_spam_reject_ip_from_threshold'};

$SimscanSpamRejectFromThreshold = $ENV{'simscan_spam_reject_from_threshold'};

$SimscanSpamRejectToThreshold = $ENV{'simscan_spam_reject_to_threshold'};

$ShowSimscanSpamDropped = $ENV{'show_simscan_spam_dropped'};

$SimscanSpamDroppedIpFromThreshold = $ENV{'simscan_spam_dropped_ip_from_threshold'};

$SimscanSpamDroppedFromThreshold = $ENV{'simscan_spam_dropped_from_threshold'};

$SimscanSpamDroppedToThreshold = $ENV{'simscan_spam_dropped_to_threshold'};

# chkuser

$ShowChkuserRejects = $ENV{'show_chkuser_rejects'};

$ChkuserRejectsFromThreshold = $ENV{'chkuser_rejects_from_threshold'};

$ChkuserRejectsToThreshold = $ENV{'chkuser_rejects_to_threshold'};

$ChkuserRejectsRemoteThreshold = $ENV{'chkuser_rejects_remote_threshold'};

$ChkuserRejectsReasonThreshold = $ENV{'chkuser_rejects_reason_threshold'};

$ShowChkuserRejectsRelay = $ENV{'show_chkuser_rejects_relay'};

$ChkuserRejectsRelayFromThreshold = $ENV{'chkuser_rejects_relay_from_threshold'};

$ChkuserRejectsRelayToThreshold = $ENV{'chkuser_rejects_relay_to_threshold'};

$ChkuserRejectsRelayRemoteThreshold = $ENV{'chkuser_rejects_relay_remote_threshold'};

$ShowChkuserAccepts = $ENV{'show_chkuser_accepts'};

$ChkuserAcceptsFromThreshold = $ENV{'chkuser_accepts_from_threshold'};

$ChkuserAcceptsToThreshold = $ENV{'chkuser_accepts_to_threshold'};

$ShowChkuserAcceptsRelay = $ENV{'show_chkuser_accepts_relay'};

$ChkuserAcceptsRelayFromThreshold = $ENV{'chkuser_accepts_relay_from_threshold'};

$ChkuserAcceptsRelayToThreshold = $ENV{'chkuser_accepts_relay_to_threshold'};

$ShowChkuserOther = $ENV{'show_chkuser_other'};

$ChkuserNoAuthResourceThreshold = $ENV{'chkuser_noauthresource_threshold'};

$ChkuserOverquotaThreshold = $ENV{'chkuser_overquota_threshold'};

$ChkuserRejectedIntrusionThreshold = $ENV{'chkuser_rejected_intrusion_threshold'};

$ShowChkuserAcceptedSender = $ENV{'show_chkuser_accepted_sender'};

$ChkuserAcceptedSenderFromThreshold = $ENV{'chkuser_accepted_sender_from_threshold'};

$ChkuserAcceptedSenderRemoteThreshold = $ENV{'chkuser_accepted_sender_remote_threshold'};

$ChkuserAcceptedNullSenderFromThreshold = $ENV{'chkuser_accepted_null_sender_from_threshold'};

$ShowChkuserRejectedSender = $ENV{'show_chkuser_rejected_sender'};

$ChkuserRejectedSenderFromThreshold = $ENV{'chkuser_rejected_sender_from_threshold'};

$ChkuserRejectedSenderRemoteThreshold = $ENV{'chkuser_rejected_sender_remote_threshold'};

$ChkuserRejectedSenderReasonThreshold = $ENV{'chkuser_rejected_sender_reason_threshold'};

$BadMailToIpThreshold = $ENV{'badmailto_ip_threshold'};

$BadMailToEmailThreshold = $ENV{'badmailto_email_threshold'};

$BadMailFromIpThreshold = $ENV{'badmailfrom_ip_threshold'};

$BadMailFromEmailThreshold = $ENV{'badmailfrom_email_threshold'};

$IgnoreUnmatched = $ENV{'ignoreunmatched'};

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

	if ( ( $ThisLine =~ /status: / )

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

		or ( $ThisLine =~ /simscan: Putting the message in quarantine/ )

		) {

		# We don't care about these

	}

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

		$From{$RemoteServer}++;

		$TotalFrom++;

		$GrandTotalFrom++;

	}

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

		$To{$LocalServer}++;

		$TotalTo++;

		$Total++;

		if ( $rest !~ /^\:/) {

			# we have a domain

			($d, $ip ) = ($rest =~ /^(.*):(.*)::\d+$/);

			$Domains{$ip} = $d;

		}

	}

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

		$Warnings{$Warning}++;

	}

	# rblsmtpd

	elsif ( ($Blocked, $rbl) = ( $ThisLine =~ /rblsmtpd: (.*) pid \d+: 451 (.*)$/ ) ) {

		$Blockeds{$Blocked}++;

		$TotalBlocked++;

		$Rbl{$Blocked} = $rbl;

		# remove it from previous parse

		if ( defined( $From{$Blocked} ) ) {

			$From{$Blocked}--;

			$TotalFrom--;

		}

	}

	# CHKUSER rejected rcpt

	elsif (($from,$remotedomain, $remote, $to, $reason) = ( $ThisLine =~ /CHKUSER rejected rcpt: from <(.*):.*:> remote <(.*):.*:(.*)> rcpt <(.*)> : (.*)/ )) {

		$ChkuserRejectsFrom{$from}++;

		$ChkuserRejectsRemote{$remote}++;

		$Domains{$remote} = $remotedomain if($remotedomain);

		$ChkuserRejectsTo{$to}++;

		$ChkuserRejectsReason{$reason}++;

		$TotalReject++;

		# remove it from previous parse

		if ( defined( $From{$from} ) ) {

			$From{$from}--;

			$TotalFrom--;

		}

	}

	# CHKUSER rejected relaying

	elsif (($from, $remotedomain, $remotedomain2, $remote, $to, $reason) = ( $ThisLine =~ /CHKUSER rejected relaying: from <(.*):.*:> remote <(.*):(.*):(.*)> rcpt <(.*)> : (.*)/ )) {

		$ChkuserRejectsRelayFrom{$from}++;

		$ChkuserRejectsRelayTo{$to}++;

		$ChkuserRejectsRelayRemote{$remote}++;

		if (! $Domains{$remote} ) {

			if ( $remotedomain2 && $remotedomain2 != 'unknown' ) {

				$Domains{$remote} = $remotedomain2;

			}

			elsif ( $remotedomain ) {

				$Domains{$remote} = $remotedomain;

			}

		}

		$ChkuserRejectsReason{$reason}++;

		$TotalRejectRelay++;

		# remove it from previous parse

		if ( defined( $From{$from} ) ) {

			$From{$from}--;

			$TotalFrom--;

		}

	}

	# CHKUSER accepted rcpt

	elsif (($from, $to) = ( $ThisLine =~ /CHKUSER accepted rcpt: from <(.*):.*:> .* rcpt <(.*)> : found existing recipient/ )) {

		$ChkuserAcceptsFrom{$from}++;

		$ChkuserAcceptsTo{$to}++;

		$TotalAccept++;

	}

	# CHKUSER relaying rcpt

	elsif (($from, $to) = ( $ThisLine =~ /CHKUSER relaying rcpt: from <(.*):.*:> .* rcpt <(.*)> : client allowed to relay/ )) {

		$ChkuserAcceptsRelayFrom{$from}++;

		$ChkuserAcceptsRelayTo{$to}++;

		$TotalAcceptRelay++;

	}

	# CHKUSER no auth resource

	elsif (($from, $to) = ( $ThisLine =~ /CHKUSER no auth resource: from <(.*):.*:> .* rcpt <(.*)> :/ )) {

		$ChkuserNoAuthResourceFrom{$from}++;

		$ChkuserNoAuthResourceTo{$to}++;

		$TotalNoAuthResource++;

		# remove it from previous parse

		if ( defined( $From{$from} ) ) {

			$From{$from}--;

			$TotalFrom--;

		}

	}

	# CHKUSER mbx overquota

	elsif (($from, $to) = ( $ThisLine =~ /CHKUSER mbx overquota: from <(.*):.*:> .* rcpt <(.*)> :/ )) {

		$ChkuserOverquotaTo{$to}++;

		$TotalOverquota++;

		# remove it from previous parse

		if ( defined( $From{$from} ) ) {

			$From{$from}--;

			$TotalFrom--;

		}

	}

	# CHKUSER rejected intrusion

	elsif (($from, $to) = ( $ThisLine =~ /CHKUSER rejected intrusion: from <(.*):.*:> .* rcpt <(.*)> :/ )) {

		$ChkuserRejectedIntrusionFrom{$from}++;

		$ChkuserRejectedIntrusionTo{$to}++;

		$TotalRejectedIntrusion++;

		# remove it from previous parse

		if ( defined( $From{$from} ) ) {

			$From{$from}--;

			$TotalFrom--;

		}

	}

	# CHKUSER accepted sender

	elsif (($from, $remote) = ( $ThisLine =~ /CHKUSER accepted sender: from <(.*):.*:> remote <.*:.*:(.*)> rcpt <>/ )) {

		$ChkuserAcceptedSenderFrom{$from}++;

		$ChkuserAcceptedSenderRemote{$remote}++;

	}

	# CHKUSER accepted null sender

	elsif (($remote) = ( $ThisLine =~ /CHKUSER accepted null sender: from <:.*:> remote <.*:.*:(.*)> rcpt <> : accepted null sender always/ )) {

		$ChkuserAcceptedNullSenderRemote{$remote}++;

	}

	# CHKUSER rejected sender

	elsif (($from, $remotedomain, $remotedomain2, $remote, $reason) = ( $ThisLine =~ /CHKUSER rejected sender: from <(.*):.*:> remote <(.*):(.*):(.*)> rcpt <> : (.*)/ )) {

		$ChkuserRejectedSenderFrom{$from}++;

		$ChkuserRejectedSenderRemote{$remote}++;

		if (! $Domains{$remote} ) {

			if ( $remotedomain2 && $remotedomain2 != 'unknown' ) {

				$Domains{$remote} = $remotedomain2;

			}

			elsif ( $remotedomain ) {

				$Domains{$remote} = $remotedomain;

			}

		}

		$ChkuserRejectedSenderReason{$reason}++;

	}

	# simscan-1.1 virus

	elsif ( ($virus, $virusfrom, $virusto, $scantime) = ($ThisLine =~ /simscan:.*virus: (.*) from: (.*) to: (.*) time: (.*)s/)) {

		$Simscan{$virus}++;

		$SimscanTotal++;

		$SimscanVirusTotal++;

		$SimscanFrom{$virusfrom}++;

		$SimscanTo{$virusto}++;

		if ($Maxscantimevirus < $scantime) {

			$Maxscantimevirus = $scantime;

		}

		$Totalscantimevirus += $scantime;

	}

	# simscan-1.2 virus

	elsif (

		(($scantime, $virus, $virusfrom, $virusto ) = ($ThisLine =~ /simscan:\[\d+\]:VIRUS:(.*)s:(.*):.*:(.*):(.*)/)) ||

		(($scantime, $virus, $virusfrom, $virusto ) = ($ThisLine =~ /simscan:\[\d+\]:VIRUS DROPPED:(.*)s:(.*):.*:(.*):(.*)/))

		) {

		$Simscan{$virus}++;

		$SimscanTotal++;

		$SimscanVirusTotal++;

		$SimscanFrom{$virusfrom}++;

		$SimscanTo{$virusto}++;

		if ($Maxscantimevirus < $scantime) {

			$Maxscantimevirus = $scantime;

		}

		$Totalscantimevirus += $scantime;

	}

	# simscan attach

	elsif ( ($attach, $attachfrom, $attachto, $scantime) = ($ThisLine =~ /simscan:.*invalid attachment: (.*) from: (.*) to: (.*) time: (.*)s/) ) {

		$SimscanTotal++;

		$SimscanAttach{$attach}++;

		$SimscanAttachFrom{$attachfrom}++;

		$SimscanAttachTo{$attachto}++;

		$SimscanAttachTotal++;

		if ($Maxscantimeattach < $scantime) {

			$Maxscantimeattach = $scantime;

		}

		$Totalscantimeattach += $scantime;

	}

	# simscan-1.2 attach

	elsif ( ($scantime, $attach, $attachfrom, $attachto ) = ($ThisLine =~ /simscan:\[\d+\]:ATTACH:(.*)s:(.*):.*:(.*):(.*)/)) {

		$SimscanTotal++;

		$SimscanAttach{$attach}++;

		$SimscanAttachFrom{$attachfrom}++;

		$SimscanAttachTo{$attachto}++;

		$SimscanAttachTotal++;

		if ($Maxscantimeattach < $scantime) {

			$Maxscantimeattach = $scantime;

		}

		$Totalscantimeattach += $scantime;

	}

	# simscan-1.2 regex

	elsif ( ($scantime, $regex, $regexfrom, $regexto ) = ($ThisLine =~ /simscan:\[\d+\]:REGEX:(.*)s:(.*):.*:(.*):(.*)/)) {

		$SimscanTotal++;

		$SimscanRegex{$regex}++;

		$SimscanRegexFrom{$regexfrom}++;

		$SimscanRegexTo{$regexto}++;

		$SimscanRegexTotal++;

		if ($Maxscantimeregex < $scantime) {

			$Maxscantimeregex = $scantime;

		}

		$Totalscantimeregex += $scantime;

	}

	# simscan-1.2 passthru

	elsif ( ($passthrulimits, $scantime, $passthruipfrom, $passthrufrom, $passthruto ) = ($ThisLine =~ /simscan:\[\d+\]:PASSTHRU \((.*)\):(.*)s:.*:(.*):(.*):(.*)/)) {

		$SimscanTotal++;

		($ptl1,$ptl2) = split(/\//, $passthrulimits);

		if( $ptl1 >= $ptl2 ) {

			$SimscanPassthruIpFrom{$passthruipfrom}++;

			$SimscanPassthruFrom{$passthrufrom}++;

			$SimscanPassthruTo{$passthruto}++;

			$SimscanPassthruTotal++;

		}

		if ($Maxscantimespam < $scantime) {

			$Maxscantimespam = $scantime;

		}

		$Totalscantimespam += $scantime;

	}

	# simscan-1.2 spam reject

	elsif ( ( $scantime, $spamrejectipfrom, $spamrejectfrom, $spamrejectto ) = ($ThisLine =~ /simscan:\[\d+\]:SPAM REJECT \(.*\):(.*)s:.*:(.*):(.*):(.*)/)) {

		$SimscanTotal++;

		$SimscanSpamrejectIpFrom{$spamrejectipfrom}++;

		$SimscanSpamrejectFrom{$spamrejectfrom}++;

		$SimscanSpamrejectTo{$spamrejectto}++;

		$SimscanSpamrejectTotal++;

		if ($Maxscantimespam < $scantime) {

			$Maxscantimespam = $scantime;

		}

		$Totalscantimespam += $scantime;

	}

	# simscan-1.2 spam dropped

	elsif ( ( $scantime, $spamdroppedipfrom, $spamdroppedfrom, $spamdroppedto ) = ($ThisLine =~ /simscan:\[\d+\]:SPAM DROPPED \(.*\):(.*)s:.*:(.*):(.*):(.*)/)) {

		$SimscanTotal++;

		$SimscanSpamdroppedIpFrom{$spamdroppedipfrom}++;

		$SimscanSpamdroppedFrom{$spamdroppedfrom}++;

		$SimscanSpamdroppedTo{$spamdroppedto}++;

		$SimscanSpamdroppedTotal++;

		if ($Maxscantimespam < $scantime) {

			$Maxscantimespam = $scantime;

		}

		$Totalscantimespam += $scantime;

	}

	# simscan-1.2 clean

	elsif ( ($scantime) = ($ThisLine =~ /simscan:\[\d+\]:CLEAN \(.*\):(.*)s:.*:.*:.*:.*/) ) {

		if ($Maxscantimespam < $scantime) {

			$Maxscantimespam = $scantime;

		}

		$Totalscantimespam += $scantime;

		$SimscanCleanTotal++;

	}

	# simscan-1.2 relayclient

	elsif ( ($scantime) = ($ThisLine =~ /simscan:\[\d+\]:RELAYCLIENT:(.*)s:.*:.*:.*:.*/) ) {

		if ($Maxscantimespam < $scantime) {

			$Maxscantimespam = $scantime;

		}

		$Totalscantimespam += $scantime;

		$SimscanRelayClientTotal++;

	}

	# simscan quarantine

	elsif ( $ThisLine =~ /simscan: Putting the message in quarantine/ ) {

		$Quarantine++;

	}

	# badmailfrom

	elsif ( ($email,$ip) = ($ThisLine =~ /qmail-smtpd: badmailfrom: (.*) at (.*)/) ) {

		$Badmailfromemail{$email}++;

		$Badmailfromip{$ip}++;

		$Badmailfromtot++;

	}

	# badmailto

	elsif ( ($email,$ip) = ($ThisLine =~ /qmail-smtpd: badmailto: (.*) at (.*)/) ) {

		$Badmailtoemail{$email}++;

		$Badmailtoip{$ip}++;

		$Badmailtotot++;

	}

	else {

		# Report any unmatched entries...

		$ThisLine =~ s/^\s+//g;

		$ThisLine =~ s/\s+$//g;

		if ( ! $IgnoreUnmatched && $ThisLine != "" ) {

			push @OtherList,$ThisLine;

		}

	}

}

if ($QmailDetail >= 1) {

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

		$FromThreshold = $QmailThreshold;

	}

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

		$ToThreshold = $QmailThreshold;

	}

	if (($BlockedThreshold < 0) or ($BlockedThreshold eq '')) {

		$BlockedThreshold = $QmailThreshold;

	}

	if (($SimscanThreshold < 0) or ($SimscanThreshold eq '')) {

		$SimscanThreshold = $QmailThreshold;

	}

	if (($SimscanFromThreshold < 0) or ($SimscanFromThreshold eq '')) {

		$SimscanFromThreshold = $QmailThreshold;

	}

	if (($SimscanToThreshold < 0) or ($SimscanToThreshold eq '')) {

		$SimscanToThreshold = $QmailThreshold;

	}

	if (($SimscanAttachThreshold < 0) or ($SimscanAttachThreshold eq '')) {

		$SimscanAttachThreshold = $QmailThreshold;

	}

	if (($SimscanRegexThreshold < 0) or ($SimscanRegexThreshold eq '')) {

		$SimscanRegexThreshold = $QmailThreshold;

	}

	if (($SimscanPassthruIpFromThreshold < 0) or ($SimscanPassthruIpFromThreshold eq '')) {

		$SimscanPassthruIpFromThreshold = $QmailThreshold;

	}

	if (($SimscanPassthruFromThreshold < 0) or ($SimscanPassthruFromThreshold eq '')) {

		$SimscanPassthruFromThreshold = $QmailThreshold;

	}

	if (($SimscanPassthruToThreshold < 0) or ($SimscanPassthruToThreshold eq '')) {

		$SimscanPassthruToThreshold = $QmailThreshold;

	}

	if (($SimscanSpamRejectIpFromThreshold < 0) or ($SimscanSpamRejectIpFromThreshold eq '')) {

		$SimscanSpamRejectIpFromThreshold = $QmailThreshold;

	}

	if (($SimscanSpamRejectFromThreshold < 0) or ($SimscanSpamRejectFromThreshold eq '')) {

		$SimscanSpamRejectFromThreshold = $QmailThreshold;

	}

	if (($SimscanSpamRejectToThreshold < 0) or ($SimscanSpamRejectToThreshold eq '')) {

		$SimscanSpamRejectToThreshold = $QmailThreshold;

	}

	if (($SimscanSpamDroppedIpFromThreshold < 0) or ($SimscanSpamDroppedIpFromThreshold eq '')) {

		$SimscanSpamDroppedIpFromThreshold = $QmailThreshold;

	}

	if (($SimscanSpamDroppedFromThreshold < 0) or ($SimscanSpamDroppedFromThreshold eq '')) {

		$SimscanSpamDroppedFromThreshold = $QmailThreshold;

	}

	if (($SimscanSpamDroppedToThreshold < 0) or ($SimscanSpamDroppedToThreshold eq '')) {

		$SimscanSpamDroppedToThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectsFromThreshold < 0) or ($ChkuserRejectsFromThreshold eq '')) {

		$ChkuserRejectsFromThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectsToThreshold < 0) or ($ChkuserRejectsToThreshold eq '')) {

		$ChkuserRejectsToThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectsRemoteThreshold < 0) or ($ChkuserRejectsRemoteThreshold eq '')) {

		$ChkuserRejectsRemoteThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectsRelayFromThreshold < 0) or ($ChkuserRejectsRelayFromThreshold eq '')) {

		$ChkuserRejectsRelayFromThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectsRelayToThreshold < 0) or ($ChkuserRejectsRelayToThreshold eq '')) {

		$ChkuserRejectsRelayToThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectsRelayRemoteThreshold < 0) or ($ChkuserRejectsRelayRemoteThreshold eq '')) {

		$ChkuserRejectsRelayRemoteThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectsReasonThreshold < 0) or ($ChkuserRejectsReasonThreshold eq '')) {

		$ChkuserRejectsReasonThreshold = $QmailThreshold;

	}

	if (($ChkuserAcceptsFromThreshold < 0) or ($ChkuserAcceptsFromThreshold eq '')) {

		$ChkuserAcceptsFromThreshold = $QmailThreshold;

	}

	if (($ChkuserAcceptsToThreshold < 0) or ($ChkuserAcceptsToThreshold eq '')) {

		$ChkuserAcceptsToThreshold = $QmailThreshold;

	}

	if (($ChkuserAcceptsRelayFromThreshold < 0) or ($ChkuserAcceptsRelayFromThreshold eq '')) {

		$ChkuserAcceptsRelayFromThreshold = $QmailThreshold;

	}

	if (($ChkuserAcceptsRelayToThreshold < 0) or ($ChkuserAcceptsRelayToThreshold eq '')) {

		$ChkuserAcceptsRelayToThreshold = $QmailThreshold;

	}

	if (($ChkuserNoAuthResourceThreshold < 0) or ($ChkuserNoAuthResourceThreshold eq '')) {

		$ChkuserNoAuthResourceThreshold = $QmailThreshold;

	}

	if (($ChkuserOverquotaThreshold < 0) or ($ChkuserOverquotaThreshold eq '')) {

		$ChkuserOverquotaThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectedIntrusionThreshold <0) or ($ChkuserRejectedIntrusionThreshold eq '')) {

		$ChkuserRejectedIntrusionThreshold = $QmailThreshold;

	}

	if (($ChkuserAcceptedSenderFromThreshold <0) or ($ChkuserAcceptedSenderFromThreshold eq '')) {

		$ChkuserAcceptedSenderFromThreshold = $QmailThreshold;

	}

	if (($ChkuserAcceptedSenderRemoteThreshold <0) or ($ChkuserAcceptedSenderRemoteThreshold eq '')) {

		$ChkuserAcceptedSenderRemoteThreshold = $QmailThreshold;

	}

	if (($ChkuserAcceptedNullSenderFromThreshold <0) or ($ChkuserAcceptedNullSenderFromThreshold eq '')) {

		$ChkuserAcceptedNullSenderFromThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectedSenderFromThreshold <0) or ($ChkuserRejectedSenderFromThreshold eq '')) {

		$ChkuserRejectedSenderFromThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectedSenderRemoteThreshold <0) or ($ChkuserRejectedSenderRemoteThreshold eq '')) {

		$ChkuserRejectedSenderRemoteThreshold = $QmailThreshold;

	}

	if (($ChkuserRejectedSenderReasonThreshold <0) or ($ChkuserRejectedSenderReasonThreshold eq '')) {

		$ChkuserRejectedSenderReasonThreshold = $QmailThreshold;

	}

	if (($BadMailToIpThreshold <0) or ($BadMailToIpThreshold eq '')) {

		$BadMailToIpThreshold = $QmailThreshold;

	}

	if (($BadMailToEmailThreshold <0) or ($BadMailToEmailThreshold eq '')) {

		$BadMailToEmailThreshold = $QmailThreshold;

	}

	if (($BadMailFromIpThreshold <0) or ($BadMailFromIpThreshold eq '')) {

		$BadMailFromIpThreshold = $QmailThreshold;

	}

	if (($BadMailFromEmailThreshold <0) or ($BadMailFromEmailThreshold eq '')) {

		$BadMailFromEmailThreshold = $QmailThreshold;

	}

	# start output

	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;

				if ($Domains{$Line}) {

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

				}

				else {

					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;

				if ($Domains{$Line}) {

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

				}

				else {

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

				}

			}

		}

		if ($threshold_reached < 1) {

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

		}

	}

	if ( (keys %Blockeds) ) {

		print "\nBlocked (Threshold of " . $BlockedThreshold . "):\n";

		$threshold_reached=0;

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

			if ($Blockeds{$Line} >= $BlockedThreshold) {

				$threshold_reached=1;

				if ($Domains{$Line}) {

					print "\t" . $Domains{$Line} . " [$Line] - ". $Blockeds{$Line} . " Time(s)" . ($Rbl{$Line} ? " By ".$Rbl{$Line} : "") . "\n";

				}

				else {

					print "\t" . $Line . " - ". $Blockeds{$Line} . " Time(s)" . ($Rbl{$Line} ? " By ".$Rbl{$Line} : "") . "\n";

				}

			}

		}

		if ($threshold_reached < 1) {

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

		}

	}

	# chkuser

	if ( $ShowChkuserRejects ) {

		if ( (keys %ChkuserRejectsFrom) ) {

			print "\nChkuser Rejects From (Threshold of " . $ChkuserRejectsFromThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserRejectsFrom{$Line} >= $ChkuserRejectsFromThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserRejectsFrom{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserRejectsTo) ) {

			print "\nChkuser Rejects To (Threshold of " . $ChkuserRejectsToThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserRejectsTo{$Line} >= $ChkuserRejectsToThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserRejectsTo{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserRejectsRemote) ) {

			print "\nChkuser Rejects Remote (Threshold of " . $ChkuserRejectsRemoteThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserRejectsRemote{$Line} >= $ChkuserRejectsRemoteThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserRejectsRemote{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

	}

	if ( $ShowChkuserRejectsRelay ) {

		if ( (keys %ChkuserRejectsRelayFrom) ) {

			print "\nChkuser Rejects Relay From (Threshold of " . $ChkuserRejectsRelayFromThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserRejectsRelayFrom{$Line} >= $ChkuserRejectsRelayFromThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserRejectsRelayFrom{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserRejectsRelayTo) ) {

			print "\nChkuser Rejects Relay To (Threshold of " . $ChkuserRejectsRelayToThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserRejectsRelayTo{$Line} >= $ChkuserRejectsRelayToThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserRejectsRelayTo{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserRejectsRelayRemote) ) {

			print "\nChkuser Rejects Relay Remote (Threshold of " . $ChkuserRejectsRelayRemoteThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserRejectsRelayRemote{$Line} >= $ChkuserRejectsRelayRemoteThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserRejectsRelayRemote{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

	}

	if ( $ShowChkuserRejects ) {

		if ( (keys %ChkuserRejectsReason) ) {

			print "\nChkuser Rejects Reason (Threshold of " . $ChkuserRejectsReasonThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserRejectsReason{$Line} >= $ChkuserRejectsReasonThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserRejectsReason{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

	}

	if ( $ShowChkuserAccepts ) {

		if ( (keys %ChkuserAcceptsFrom) ) {

			print "\nChkuser Accepts from (Threshold of " . $ChkuserAcceptsFromThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserAcceptsFrom{$Line} >= $ChkuserAcceptsFromThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserAcceptsFrom{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserAcceptsTo) ) {

			print "\nChkuser Accepts to (Threshold of " . $ChkuserAcceptsToThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserAcceptsTo{$Line} >= $ChkuserAcceptsToThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserAcceptsTo{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

	}

	if ( $ShowChkuserAcceptsRelay ) {

		if ( (keys %ChkuserAcceptsRelayFrom) ) {

			print "\nChkuser Accepts Relay from (Threshold of " . $ChkuserAcceptsRelayFromThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserAcceptsRelayFrom{$Line} >= $ChkuserAcceptsRelayFromThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserAcceptsRelayFrom{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserAcceptsRelayTo) ) {

			print "\nChkuser Accepts Relay to (Threshold of " . $ChkuserAcceptsRelayToThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserAcceptsRelayTo{$Line} >= $ChkuserAcceptsRelayToThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserAcceptsRelayTo{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

	}

	if ( $ShowChkuserOther ) {

		if ( (keys %ChkuserNoAuthResourceFrom) ) {

			print "\nChkuser No Auth Resource from (Threshold of " . $ChkuserNoAuthResourceThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserNoAuthResourceFrom{$Line} >= $ChkuserNoAuthResourceThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserNoAuthResourceFrom{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserNoAuthResourceTo) ) {

			print "\nChkuser No Auth resource to (Threshold of " . $ChkuserNoAuthResourceThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserNoAuthResourceTo{$Line} >= $ChkuserNoAuthResourceThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserNoAuthResourceTo{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}

			if ($threshold_reached < 1) {

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

			}

		}

		if ( (keys %ChkuserOverquotaTo) ) {

			print "\nChkuser Over Quota (Threshold of " . $ChkuserOverquotaThreshold . "):\n";

			$threshold_reached=0;

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

				if ($ChkuserOverquotaTo{$Line} >= $ChkuserOverquotaThreshold) {

					$threshold_reached=1;

					if ($Domains{$Line}) {

						print "\t" . $Domains{$Line} . " [$Line] - ". $ChkuserOverquotaTo{$Line} . " Time(s)\n";

					}

					else {

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

					}

				}

			}