aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Roles/Abuser.pm
diff options
context:
space:
mode:
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;
}