On Tue, 2007-11-13 at 06:32 -0500, Michael Scheidell wrote:
> > -----Original Message-----
> > From: ram [mailto:[EMAIL PROTECTED] 
> > Sent: Tuesday, November 13, 2007 3:33 AM
> > To: users@spamassassin.apache.org
> > Subject: googlepages.com abuse
> > 
> > 
> > I have recently starting seeing spams with URLS containing 
> > Google pages websites 
> > 
> > Currently I am scoring all googlepages.com link mails with 1.5 :-( 
> > How do you folks trap these mails , And how do we report 
> > abuse to google ( if they really bother ) 
> You can't.  Google ignores complaints, and email to @googlepages.com
> will bounce in 5 days due to their refusal to even follow the RFC's and
> have a server to receive email.
> 
> Change the score to 10 and don't look back.
> Let their users have their own isolated piece of the spam infected
> world.
> 

I have written a short script to send the complain to google. AFAIK
Google should not mind a BOT sending them a complain 

I simply alias this script and send the google abuse to this alias 
If anyone wants to use this ( just change the name and id ) 

----
#!/usr/bin/perl
# Script to emulate a browser for posting a abuse complaint to google
use strict;
# Modules with routines for making the browser.
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;
my %tag;

$tag{url}='http://www.google.com/support/pages/bin/request.py?ctx=submitted&confirm=abuse_spam';

my ($URL,$BODY);
while(<>){
    $BODY.=$_;
    if(m;(https?://[\w\_\-\.]+\.googlepages.com);){ 
        $URL=$1;
    }
}
unless($URL) { 
    die "Could not get googlepages URL\n";
}

$tag{fields} = { 
    'extra.Language' => 'en',
    'extra.IssueType' => 'abuse_spam',
    'subject' => '',
    'extra.Name' => 'Ramprasad A Padmanabhan',
    'email' => '[EMAIL PROTECTED]',
    'extra.Name' => $URL,
    'body' => $BODY,
    'Action_Send' => 'Submit'
    };
#print Dumper([\%tag]); exit 0;
my $lwp = new LWP::UserAgent;
if($tag{browser}) { $lwp->agent($tag{browser}); }
my $Page = $lwp->request(POST $tag{url},$tag{fields});
if ($Page->is_success) { print $Page->content; }
else { print $Page->message; }

--------------------------------

Reply via email to