View in color | License | Download script | History | Other scripts by: andyuk |
24-Mar 16:11 UTC
[0.059] 11.177k
[0.059] 11.177k
spampopper.rREBOL [
Library: [
level: 'beginner
platform: 'all
type: tool
domain: email
tested-under: Linux - Windows
support: None
license: GPL
see-also: none
]
Title: "SpamPopper"
Date: 9-Sep-2004
Name: 'SpamPopper
Version: 1.0.0
File: %spampopper.r
Author: "Andrew Newton"
Purpose: "Connects to POP3 Boxes - Deletes Messages Tagged as *****SPAM*****"
Info: "Removes need to use Procmail or Qmail Scanner to delete spam tagged by Spamassassin"
Info: "Address file is one mailbox per line in format user:%pass--host--com"
eMail: %andrew--techanswers--co--uk
Web: http://www.techanswers.co.uk
]
set '++ func ['word] [set word (get word) + 1]
accounts: read/lines %accounts.txt
curline: 1
foreach line accounts
[
print pick accounts curline
mailbox: open join pop:// [pick accounts curline]
while [not tail? mailbox]
[
msg: import-email first mailbox
if find/match msg/subject "*****SPAM*****"
[
print msg/subject
print "^ Message Deleted"
print " "
remove mailbox
]
mailbox: next mailbox
]
close mailbox
++ curline
] Notes
|