Why not adopt me?
This distribution is up for adoption!
If you're interested then please contact the PAUSE module admins via
email.
NAME
SyslogScan::Daemon::SpamDetector::SpamSink - notice messages sent to a honeypot
SYNOPSIS
plugin SyslogScan::Daemon::SpamDetector as sd_
sd_plugin SyslogScan::Daemon::SpamDetector::SpamSink
debug 0
logfile /var/
log
/mail.info
DESCRIPTION
Watch the system log files for message sent to spam honeypots.
It looks for the following kind of message line:
$Date
\S+ spamsink: Message-I[dD]: <.*?>
Lines like this can be generate by forwarding mail to a program like:
#!/bin/sh
perl -e '
$x
= <>;
while
(<>) {
last
if
/^$/;
next
unless
/^(Message-I[dD]: .*)/;
$y
= $1;
}
"$y\n"
if
$x
=~ /\@/
&&
$y
=~ /\@/
&&
$x
!~ /mailer-daemon/i
&&
$x
!~ /postmaster/ ;
' | /usr/bin/logger -p mail.info -t spamsink
CONFIGURATION PARAMETERS
The following configuration parameters are supported:
SEE ALSO
SyslogScan::Daemon::SpamDetector
THANK THE AUTHOR
If you need high-speed internet services (T1, T3, OC3 etc), please send me your request-for-quote. I have access to very good pricing: you'll save money and get a great service.
LICENSE
Copyright(C) 2006 David Muir Sharnoff <muir@idiom.com>. This module may be used and distributed on the same terms as Perl itself.