freebsd-nq/etc/periodic/daily/460.status-mail-rejects

#!/bin/sh
#
# $Id: 460.status-mail-rejects,v 1.6 1998/02/05 15:38:17 wosch Exp $
#

if [ -d /etc/mail -a -f /var/log/maillog ]; then
  echo
  echo Checking for rejected mail hosts:

  start=`date -v-1d '+%b %d' | sed 's/0\(.\)$/ \1/'`
  zcat -fc /var/log/maillog.0* /var/log/maillog | grep reject= |
	perl -ne "print \"\$2\n\" 
	if /^$start.*ruleset=check_\S+,\s+arg1=(<[^@]+@)?([^>,]+).*reject=/o;" |
	sort | uniq -c | sort -nr
fi
Check for rejected mail Not commented on by: freebsd-hackers 1997-11-22 04:02:51 +00:00			`#!/bin/sh`
			`#`
Count _all_ rejects, not made by check_mail and check_relay only. There can be private rules which produce rejects. Pointed out by: áÎÄÒÅÊ þÅÒÎÏ× 1998-02-09 11:28:59 +00:00			`# $Id: 460.status-mail-rejects,v 1.6 1998/02/05 15:38:17 wosch Exp $`
Check for rejected mail Not commented on by: freebsd-hackers 1997-11-22 04:02:51 +00:00			`#`
Do not run by default. Can grow your root mailbox up to 2Mb per day since SPAMmers like to retry often 1998-01-18 12:06:40 +00:00
Check for rejected mail Not commented on by: freebsd-hackers 1997-11-22 04:02:51 +00:00			`if [ -d /etc/mail -a -f /var/log/maillog ]; then`
Just list one of each domain that was rejected (although only by Scheck_relay or Scheck_mail). Suggested by: ache 1998-01-23 01:58:18 +00:00			`echo`
			`echo Checking for rejected mail hosts:`
Check for rejected mail Not commented on by: freebsd-hackers 1997-11-22 04:02:51 +00:00
Just list one of each domain that was rejected (although only by Scheck_relay or Scheck_mail). Suggested by: ache 1998-01-23 01:58:18 +00:00			start=`date -v-1d '+%b %d' \| sed 's/0\(.\)$/ \1/'`
Replace sed(1) with perl(1). The 4.4BSD sed programm is 200 times slower than perl or SunOS 5.5.1 sed. 1998-02-05 15:33:54 +00:00			`zcat -fc /var/log/maillog.0* /var/log/maillog \| grep reject= \|`
Count _all_ rejects, not made by check_mail and check_relay only. There can be private rules which produce rejects. Pointed out by: áÎÄÒÅÊ þÅÒÎÏ× 1998-02-09 11:28:59 +00:00			`perl -ne "print \"\$2\n\"`
			`if /^$start.ruleset=check_\S+,\s+arg1=(<[^@]+@)?([^>,]+).reject=/o;" \|`
Count hosts and sort by score. 1998-02-05 15:38:17 +00:00			`sort \| uniq -c \| sort -nr`
Check for rejected mail Not commented on by: freebsd-hackers 1997-11-22 04:02:51 +00:00			`fi`