011e8ccf1f
200 times slower than perl or SunOS 5.5.1 sed.
17 lines
491 B
Bash
Executable File
17 lines
491 B
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# $Id: 460.status-mail-rejects,v 1.4 1998/01/26 02:26:29 brian 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 \"\$1\n\"
|
|
if (/^$start.*ruleset=check_mail, arg1=<.*@([^>]*)>.*reject=/o ||
|
|
/^$start.*ruleset=check_relay, arg1=([^, ]*), .*reject=/o)" |
|
|
sort -u
|
|
fi
|