> Hi all,
> every day I receive about 1MB of spam from [EMAIL PROTECTED]
> how to block this mail from downloading as well as delete from the pop
server?
> I have tried with Mozilla, but it can't delete that mail from the server
> though blocks it from downloading.
>
> is there any particular spam filter in debian which can solve this ?
>
> pls give a solution.
hmmm
just because i love perl
just because perl gives me time to waste :) We have ...
Cron her and let her go !
Mail Blocker .01 beta
#!/usr/bin/perl
use Net::POP3;
use strict;
my $POP3server = 'vsnl.net'; # Guessing :)
my $username = '[EMAIL PROTECTED]'; # Your user name
my $password = 'k3W1p44S'; # Your password
my $hate_phrase = '[EMAIL PROTECTED]'; # You can play with this :)
### Dont bother with the rest, well unless you want to :)
my $pop3 = Net::POP3->new($POP3server); # Constructor
my $no_of_mails = $pop3->login($username, $password); # Login to the server
exit if ($no_of_mails == 0); # Exit if there are no mails
for (1..$no_of_mails ) {
# Get to doing the job if there are mails
my $data = $pop3->get($_); # Get mail body
$pop3->delete($_) if ($data =~ /$hate_phrase/msi) # Delete mail if body
matches hate phrase
}
$pop3->quit() # Dont forget to quit or POP3 will do nothing !!
# Should be in the class destructor instead of me having to call it... phew
the extra keystrokes !!
--
To unsubscribe, send mail to [EMAIL PROTECTED] with the body
"unsubscribe ilug-cal" and an empty subject line.
FAQ: http://www.ilug-cal.org/node.php?id=3
