Spamcop.net [1] hat ein zweistufiges Report-Verfahren: zuerst werden die zu meldenden Emails an die persönliche Reporter-Adresse geschickt, danach werden sie per Webinterface bestätigt oder gelöscht.
Auch wenn Spamcop es nicht allzu gern sieht, dass die Reports von Skripts bestätigt werden, ist dies der sinnvolle weil Zeit sparende Weg.
Im CPAN [2] findet sich eine feine kleine Klasse WWW::Mechanize::SpamCop [3], die uns das Erstellen eines entsprechenden Perl-Skripts überaus erleichtert. Es könnte beispielsweise so aussehen:
#!/usr/bin/perl
use WWW::Mechanize::SpamCop;
my $s = WWW::Mechanize::SpamCop->new(
login => 'spamsubmitter@example.com',
passwd => 'XyZ'
);
my $res; # number of affected spams
$res = $s->report\_all;
print "report_all: ". $res ."\n";
$res = $s->remove\_unreported; # may be there are some
unreportable mails
print "remove_unreported: ". $res ."\n";Dieses Skript per Cron täglich oder öfter ausgeführt, bestätigt jede gemeldete Spamemail und räumt gleich auch noch den Spamcop-Account auf.
[1] http://www.spamcop.net
[2] http://www.cpan.org
[3] http://search.cpan.org/author/ADAMOWSKI/WWW-Mechanize-SpamCop-0.07/SpamCop.pm