aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Roles/Abuser.pm
diff options
context:
space:
mode:
authorMarius Halden <marius.h@lden.org>2017-12-20 01:06:27 +0100
committerMarius Halden <marius.h@lden.org>2017-12-20 01:06:27 +0100
commit8b10c8b8d787e680bb085e2a7543dac50fd39742 (patch)
tree391efde6de4944e350cc0dafbd4e1efb0613e9c3 /perllib/FixMyStreet/Roles/Abuser.pm
parenteef35397ccf8242cdc65dc666db2958b1ee35440 (diff)
parent7e15bd3db202363db4bab8fa7c9f462eabe28fce (diff)
Merge tag 'v2.3' into fiksgatami-dev
Diffstat (limited to 'perllib/FixMyStreet/Roles/Abuser.pm')
-rw-r--r--perllib/FixMyStreet/Roles/Abuser.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/Roles/Abuser.pm b/perllib/FixMyStreet/Roles/Abuser.pm
index fc76565ca..e2e9eb19e 100644
--- a/perllib/FixMyStreet/Roles/Abuser.pm
+++ b/perllib/FixMyStreet/Roles/Abuser.pm
@@ -13,9 +13,9 @@ Returns true if the user's email or its domain is listed in the 'abuse' table.
sub is_from_abuser {
my $self = shift;
- # get the domain
my $email = $self->user->email;
- my ($domain) = $email =~ m{ @ (.*) \z }x;
+ my ($domain) = $email =~ m{ @ (.*) \z }x if $email;
+ my $phone = $self->user->phone;
# search for an entry in the abuse table
my $abuse_rs = $self->result_source->schema->resultset('Abuse');
@@ -23,6 +23,7 @@ sub is_from_abuser {
return
$abuse_rs->find( { email => $email } )
|| $abuse_rs->find( { email => $domain } )
+ || $abuse_rs->find( { email => $phone } )
|| undef;
}