hi ya Mj'ers
i've been playing with a new perl script... for fighting spams...
- it accepts incoming emails from users reporting their spam
and sends back a reply
- than the script is supposed to to move/process that incoming
email and "sort it"
it's a spam collector/analyzer for the purpose of trying to
determine/prove the spammer is in fact a spamer etc..
http://www.UCEAS.net
- when users receive their spam... they send it in to:
SpamCollectorTest@uceas.net
- they get a ack reply
- forward 2 or 3 spams.. and yu can see the 1st or 2nd one
that was read/processed
- the script supposed to than move that new spam from
/var/spool/mail/spamcollector to http://www.uceas.net/SpamCollector/2003/Jan/04
- problem is the "mailbox" is not yet "filled/done" at the time the
scripts and mj is running ...
however, ls -la /var/spool/mail/spamcollector does show that the
unwanted spam was received
and running the script manually does do the right things
====
==== - question ... how od i tell majordomo or sendmail to write the file,
==== so that the other script can read the spam headers and move it aside
====
- yes... there is a /var/spool/mail locking problem if 10 people send in a spam
at the same time ... but thats a later problem to solve..
thanx
alvin
as simplified /etc/mail/aliases
---------------------------------
spamcollector: "|majordomo/wrapper .. newlist ... ", MJ,spamcollector,SpamCollector.pl
spamcollector.pl: "|majordomo/wrapper spamcollector.pl"
-------------------
#!/usr/bin/perl
#
# the mailbox is available if i run this script manually
#
#
if ( ! -f /var/spool/mail/spamcollector ) {
printf "ERROR: no spam to process yet\n";
}
#
# process the incoing spam and move it aside
#
mv /var/spool/mail/spamcollector web_pages/SpamCollector/2003/Jan/04
#
# done script
Follow-Ups:
|
|
