Bug 17377

	The script /etc/periodic/daily/460.status-mail-rejects
	only shows which hosts are rejected, to see why one has
	to scan the log anyway.

Fix: 

This gives the following report:
  54 <mlmopps@ public.com  resolve 
  21 <jnmk@ jnmklj.net  exist 
   9  c126.h202052094.is.net.tw  http://mail-abuse.org/rss 
   4 <bcg@ hp020  exist 
   4  05-021.006.popsite.net  http://mail-abuse.org/dul/enduser.htm 
   2 <ping@ dk.net  denied 

The last word of the line in the log is enough to identify the reason; the
username helps identifying the sender, if the customer calls the
supportline.--CrTsUSaZPCrppUbMKMNFaUQJAj8ENHoTe4qfNtJq46kRfi3b
Content-Type: text/plain; name="file.diff"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment; filename="file.diff"

*** /etc/periodic/daily/460.status-mail-rejects	Wed Sep 29 06:19:05 1999
--- ./460.status-mail-rejects	Wed Mar 15 00:04:57 2000
***************
*** 9,15 ****
  
    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
--- 9,15 ----
  
    start=`date -v-1d '+%b %d' | sed 's/0\(.\)$/ \1/'`
    zcat -fc /var/log/maillog.0* /var/log/maillog | grep reject= |
! 	perl -ne "print \"\$1 \$2 \$3\n\" 
! 	if /^$start.*ruleset=check_\S+,\s+arg1=(<[^@]+@)?([^>,]+).*reject=.*( .*$)/o;" |
  	sort | uniq -c | sort -nr
  fi
How-To-Repeat: 
	
	Read the dayly reports sent by mail ;-)