#!/bin/sh
#
# taken from http://www.ne.jp/asahi/cyber/taki/server/qmail/qmailanalog.html
# modified by Kyoma TAK and Yasuhiro C. Murata 2000/03/17
# 2000/03/18
#

PATH=/usr/local/qmailanalog/bin:/var/qmail/bin:/usr/bin
MAILLOG="/var/log/mail.log.0"
QMAILLOG="/tmp/qmail.$$"
QMAILLOG2="/tmp/qmail.$$2"
#/usr/bin/awk '{$1="";$2="";$3="";$4="";$5="";print}'\
#< $MAILLOG | matchup > $QMAILLOG
/usr/bin/awk '{$1="";$2="";$3="";$4="";$5="";print}'\
< $MAILLOG | matchup > $QMAILLOG 5>$QMAILLOG2
zoverall < $QMAILLOG
#zfailures < $QMAILLOG
#zdeferrals < $QMAILLOG
#zrecipients < $QMAILLOG
#/usr/bin/perl -pe 's/-return-.*=.*@/@/g' < $QMAILLOG | zsenders)
/bin/rm -f $QMAILLOG
/bin/rm -f $QMAILLOG2

#bellow lines modified by mym

#PATH=/usr/local/qmailanalog/bin:/var/qmail/bin:/usr/bin
#MAILLOG="/var/log/mail.log.0"
#QMAILLOG="/tmp/qmail.$$"
#/usr/bin/awk '{$1="";$2="";$3="";$4="";$5="";print}'\
#< $MAILLOG | matchup 5>&1 > $QMAILLOG
#(zoverall < $QMAILLOG | zsenders
#zfailures < $QMAILLOG
#zdeferrals < $QMAILLOG
#zrecipients < $QMAILLOG
#/usr/bin/perl -pe 's/-return-.*=.*@/@/g' < $QMAILLOG | zsenders)

#( echo "To: sryu@ep.sci.hokudai.ac.jp"
#echo "From: epmail@ep.sci.hokudai.ac.jp"
#echo "Subject: maillog"
#echo ""
#zoverall < $QMAILLOG
#zfailures < $QMAILLOG
#zdeferrals < $QMAILLOG
#zrecipients < $QMAILLOG
#zsenders < $QMAILLOG 
#) | qmail-inject -f sryu@ep.sci.hokudai.ac.jp
#/bin/rm -f $QMAILLOG