Re: Lots of (easily recognisible) spam sent to the BTS today

[Blars Blarson <blarson@blars.org>]

In article <[🔎] 20061030234646.GA27279@javifsp.no-ip.org> jfs@computer.org writes:
>BTW, could it be possible to provide an alternate interface to submit spam?
>(like the 'report-listspam AT lists.debian.org' we can bounce spam from the
>mailing lists to)

Here's a short script I use to process messages sent to owner@bugs
that report spam.  It uses the existing interface.

#!/usr/bin/perl

use strict;
use LWP::Simple;

my @mess = <STDIN>;
my $mess = join('', @mess);
my @bugs = $mess =~ /[^\d](\d{3,8})/gs;

foreach my $bug (@bugs) {
    my $ans = get("http://bugs.debian.org/cgi-bin/bugspam.cgi?bug=$bug";);
}



-- 
Blars Blarson			blarson@blars.org
				http://www.blars.org/blars.html
With Microsoft, failure is not an option.  It is a standard feature.