1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
package FixMyStreet::DB::Result::Alert;
# Created by DBIx::Class::Schema::Loader
# DO NOT MODIFY THE FIRST PART OF THIS FILE
use strict;
use warnings;
use base 'DBIx::Class::Core';
__PACKAGE__->load_components("FilterColumn");
__PACKAGE__->table("alert");
__PACKAGE__->add_columns(
"id",
{
data_type => "integer",
is_auto_increment => 1,
is_nullable => 0,
sequence => "alert_id_seq",
},
"alert_type",
{ data_type => "text", is_foreign_key => 1, is_nullable => 0 },
"parameter",
{ data_type => "text", is_nullable => 1 },
"parameter2",
{ data_type => "text", is_nullable => 1 },
"confirmed",
{ data_type => "integer", default_value => 0, is_nullable => 0 },
"lang",
{ data_type => "text", default_value => "en-gb", is_nullable => 0 },
"cobrand",
{ data_type => "text", default_value => "", is_nullable => 0 },
"cobrand_data",
{ data_type => "text", default_value => "", is_nullable => 0 },
"whensubscribed",
{
data_type => "timestamp",
default_value => \"ms_current_timestamp()",
is_nullable => 0,
},
"whendisabled",
{ data_type => "timestamp", is_nullable => 1 },
"user_id",
{ data_type => "integer", is_foreign_key => 1, is_nullable => 0 },
);
__PACKAGE__->set_primary_key("id");
__PACKAGE__->belongs_to(
"user",
"FixMyStreet::DB::Result::User",
{ id => "user_id" },
{ is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
);
# Created by DBIx::Class::Schema::Loader v0.07010 @ 2011-05-11 14:21:33
# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:6MMiFASvNi/pG74uxcspuQ
# You can replace this text with custom code or comments, and it will be preserved on regeneration
# FIXME: this is more or less duplicated from problem. need to stick somewhere common
=head2 is_from_abuser
$bool = $alert->is_from_abuser( );
Returns true if the user's email or its domain is listed in the 'abuse' table.
=cut
sub is_from_abuser {
my $self = shift;
# get the domain
my $email = $self->user->email;
my ($domain) = $email =~ m{ @ (.*) \z }x;
# search for an entry in the abuse table
my $abuse_rs = $self->result_source->schema->resultset('Abuse');
return
$abuse_rs->find( { email => $email } )
|| $abuse_rs->find( { email => $domain } )
|| undef;
}
=head2 confirm
$alert->confirm();
Sets the state of the alert to confirmed.
=cut
sub confirm {
my $self = shift;
return if $self->confirmed == 1 and $self->whendisabled ne 'null';
$self->confirmed(1);
$self->whendisabled(undef);
return 1;
}
1;
|
