On Monday 17 February 2003 6:35am, you wrote:
> > 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 !!
thanks 4 the codes. but how to use this? should I make a shell script &
write down its name in the "run command " field of kmail ? pls. clarify.
thanks in advanced
--
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
