[Mimedefang] Reporting Script

[Link, Pete]

Has anyone written any Mimedefang Reporting Scripts???  Preferably in
Perl???

I wrote a really cheesy one which I am enclosing; however, this is not too
sophisticated and I need a bit more advanced.

Send what you have, anything in Perl will help.  (I be Perl illiterate)

 <<report.txt>> 

Please send.

Thank you,

Pete

-------------- next part --------------
#!/bin/sh
# Setup
rm -rf /tmp/subject
#
cd /var/spool/MIMEDefang
echo 'Number of Busted SPAM Messages Today on machine.domain.net:' > /tmp/report
echo ' ' >> /tmp/report
ls -l | grep -v mdefang-mx.sock | grep -v mimedefang.pid | grep -v mimedefang.sock | grep -c "`date +"%b %e"`" >> /tmp/report
# Today's Dirs
ls -l | grep "`date +"%b %e"`" > /tmp/dirs
cat /tmp/dirs | gawk '{print $9}' > /tmp/dirsreport
# cleanup
cat /tmp/dirsreport | grep -v mdefang-mx.sock | grep -v mimedefang.pid | grep -v mimedefang.sock > /tmp/temp
cat /tmp/temp > /tmp/dirsreport
cat /tmp/dirsreport | while read line
        do
                cd $line
                cat HEADERS | grep From: >> /tmp/subject
                cat HEADERS | grep To: >> /tmp/subject
                cat HEADERS | grep Subject: >> /tmp/subject
        echo 'Mail located in: '$line >> /tmp/subject
        echo '___________________________________________________________________________________________' >> /tmp/subject
                echo ' ' >> /tmp/subject
                cd ..
        done
#
echo ' ' >> /tmp/report
echo 'The subject lines were:' >> /tmp/report
echo ' ' >> /tmp/report
cat /tmp/subject >> /tmp/report
echo ' ' >> /tmp/report
#
echo 'Thank you,' >> /tmp/report
echo 'ME' >> /tmp/report
echo 'me at mydomain.com' >> /tmp/report
mail -s "machine.domain.net Daily SPAM Report" me at mydomain.com < /tmp/report