openguides-commits June 2011

openguides-commits@lists.openguides.org

1 participants
3 discussions

r1295 - sites/cambridge.openguides.org/lib/OpenGuides/Local

by svnadmin＠urchin.earth.li

Author: dom Date: 2011-06-03 12:33:54 +0100 (Fri, 03 Jun 2011) New Revision: 1295 Modified: sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm Log: add svn tags Modified: sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm =================================================================== --- sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm 2011-06-03 11:33:36 UTC (rev 1294) +++ sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm 2011-06-03 11:33:54 UTC (rev 1295) @@ -1,3 +1,8 @@ +# $HeadURL$ +# $LastChangedRevision$ +# $LastChangedDate$ +# $LastChangedBy$ +# package OpenGuides::Local::CamGuideSpam; use strict; Property changes on: sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm ___________________________________________________________________ Added: svn:keywords + HeadURL LastChangedRevision LastChangedDate LastChangedBy

11 years, 12 months

r1294 - sites/cambridge.openguides.org/lib/OpenGuides/Local

by svnadmin＠urchin.earth.li

Author: dom Date: 2011-06-03 12:33:36 +0100 (Fri, 03 Jun 2011) New Revision: 1294 Modified: sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm Log: new spamcatcher from Kake Modified: sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm =================================================================== --- sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm 2011-06-03 11:33:14 UTC (rev 1293) +++ sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm 2011-06-03 11:33:36 UTC (rev 1294) @@ -17,45 +17,62 @@ if ( $name eq "Category Board Games" && $content =~ m'http://.*http://.*http://'is ) { $class->notify_admins( %args, + id => "00001", reason => "Edit to board games page with more than two URLs in." ); return 1; } if ( $name eq "Station Tandoori" && $host eq "82.6.101.64" ) { $class->notify_admins( %args, + id => "00002", reason => "82.6.101.64 editing Station Tandoori." ); return 1; } if ( $content =~ /\b(viagra|cialis|supermeganah|tramadol|vicodin|phentermine|zoloft|lolita)\b/is ) { - # $class->notify_admins( %args, reason => "Matches $1" ); + $class->notify_admins( %args, + id => "00003", + reason => "Matches $1" ); return 1; } foreach my $cat ( @cats ) { if ( $cat =~ m'http://'i ) { - $class->notify_admins( %args, reason => "URL in category field" ); + $class->notify_admins( %args, + id => "00004", + reason => "URL in category field" ); return 1; } } foreach my $loc ( @locs ) { if ( $loc =~ m'http://'i ) { - $class->notify_admins( %args, reason => "URL in locales field" ); + $class->notify_admins( %args, + id => "00005", + reason => "URL in locales field" ); return 1; } } + + if ( ( scalar @cats == 1 ) && ( scalar @locs == 1 ) + && $cats[0] eq $locs[0] ) { + $class->notify_admins( %args, + id => "00006", + reason => "category and locale identical" ); + return 1; + } } sub notify_admins { my ( $class, %args ) = @_; my $reason = delete $args{reason}; + my $id = delete $args{id}; my $message = MIME::Lite->new( From => 'kake(a)earth.li', To => 'kake(a)earth.li', Subject => "Attempted spam edit on OGCam", Data => "Someone just tried to edit OGCam, and I said no because " - . "it looked like spam.\n\nReason: $reason\n\n" + . "it looked like spam.\n\nReason: $reason\n\nID: $id\n\n" . "Here's a dump of the details:\n" . Dumper( \%args ), );

11 years, 12 months

r1293 - in sites: . cambridge.openguides.org cambridge.openguides.org/lib cambridge.openguides.org/lib/OpenGuides cambridge.openguides.org/lib/OpenGuides/Local

by svnadmin＠urchin.earth.li

Author: dom Date: 2011-06-03 12:33:14 +0100 (Fri, 03 Jun 2011) New Revision: 1293 Added: sites/cambridge.openguides.org/ sites/cambridge.openguides.org/lib/ sites/cambridge.openguides.org/lib/OpenGuides/ sites/cambridge.openguides.org/lib/OpenGuides/Local/ sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm Log: import current cambridge spam catcher Added: sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm =================================================================== --- sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm (rev 0) +++ sites/cambridge.openguides.org/lib/OpenGuides/Local/CamGuideSpam.pm 2011-06-03 11:33:14 UTC (rev 1293) @@ -0,0 +1,65 @@ +package OpenGuides::Local::CamGuideSpam; + +use strict; + +use Data::Dumper; +use MIME::Lite; + +sub looks_like_spam { + my ( $class, %args ) = @_; + + my $name = $args{node}; + my $content = $args{content}; + my $host = $args{host}; + my @cats = @{ $args{metadata}{category} || [] }; + my @locs = @{ $args{metadata}{locale} || [] }; + + if ( $name eq "Category Board Games" + && $content =~ m'http://.*http://.*http://'is ) { + $class->notify_admins( %args, + reason => "Edit to board games page with more than two URLs in." ); + return 1; + } + + if ( $name eq "Station Tandoori" && $host eq "82.6.101.64" ) { + $class->notify_admins( %args, + reason => "82.6.101.64 editing Station Tandoori." ); + return 1; + } + + if ( $content =~ /\b(viagra|cialis|supermeganah|tramadol|vicodin|phentermine|zoloft|lolita)\b/is ) { + # $class->notify_admins( %args, reason => "Matches $1" ); + return 1; + } + + foreach my $cat ( @cats ) { + if ( $cat =~ m'http://'i ) { + $class->notify_admins( %args, reason => "URL in category field" ); + return 1; + } + } + + foreach my $loc ( @locs ) { + if ( $loc =~ m'http://'i ) { + $class->notify_admins( %args, reason => "URL in locales field" ); + return 1; + } + } +} + +sub notify_admins { + my ( $class, %args ) = @_; + my $reason = delete $args{reason}; + my $message = MIME::Lite->new( + From => 'kake(a)earth.li', + To => 'kake(a)earth.li', + Subject => "Attempted spam edit on OGCam", + Data => "Someone just tried to edit OGCam, and I said no because " + . "it looked like spam.\n\nReason: $reason\n\n" + . "Here's a dump of the details:\n" + . Dumper( \%args ), + ); + $message->send; +} + +1;

11 years, 12 months

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

openguides-commits June 2011