Basic troll test for Gmail, sysban
Patch by kareila.
diffs (21 lines):
diff -r 49e2d1187977 -r 7e819df12b80 cgi-bin/sysban.pl
--- a/cgi-bin/sysban.pl Mon May 11 16:46:46 2009 +0000
+++ b/cgi-bin/sysban.pl Mon May 11 17:15:01 2009 +0000
@@ -152,7 +152,16 @@ sub sysban_check {
# see if this domain is banned
my @domains = split(/\./, $1);
return 0 unless scalar @domains >= 2;
- return 1 if $check->('email_domain', "$domains[-2].$domains[-1]");
+ my $domain = "$domains[-2].$domains[-1]";
+ return 1 if $check->('email_domain', $domain);
+
+ # account for GMail troll tricks
+ if ( $domain eq "gmail.com" ) {
+ my ($user) = ($value =~ /^(.+)@/);
+ $user =~ s/\.//g; # strip periods
+ $user =~ s/\+.*//g; # strip plus tags
+ return 1 if $check->('email', "$us...@$domain");
+ }
# must not be banned
return 0;
_______________________________________________
dw-changelog mailing list
[email protected]
http://lists.dwscoalition.org/mailman/listinfo/dw-changelog
