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
|
package FixMyStreet::SendReport;
use Moo;
use MooX::Types::MooseLike::Base qw(:all);
use Module::Pluggable
sub_name => 'senders',
search_path => __PACKAGE__,
except => 'FixMyStreet::SendReport::Email::SingleBodyOnly',
require => 1;
has 'body_config' => ( is => 'rw', isa => HashRef, default => sub { {} } );
has 'bodies' => ( is => 'rw', isa => ArrayRef, default => sub { [] } );
has 'to' => ( is => 'rw', isa => ArrayRef, default => sub { [] } );
has 'bcc' => ( is => 'rw', isa => ArrayRef, default => sub { [] } );
has 'success' => ( is => 'rw', isa => Bool, default => 0 );
has 'error' => ( is => 'rw', isa => Str, default => '' );
has 'unconfirmed_counts' => ( 'is' => 'rw', isa => HashRef, default => sub { {} } );
has 'unconfirmed_notes' => ( 'is' => 'rw', isa => HashRef, default => sub { {} } );
sub should_skip {
my $self = shift;
my $row = shift;
my $debug = shift;
return 0 unless $row->send_fail_count;
return 0 if $debug;
my $now = DateTime->now( time_zone => FixMyStreet->local_time_zone );
my $diff = $now - $row->send_fail_timestamp;
my $backoff = $row->send_fail_count > 1 ? 30 : 5;
return $diff->in_units( 'minutes' ) < $backoff;
}
sub get_senders {
my $self = shift;
my %senders = map { $_ => 1 } $self->senders;
return \%senders;
}
sub reset {
my $self = shift;
$self->bodies( [] );
$self->body_config( {} );
$self->to( [] );
$self->bcc( [] );
}
sub add_body {
my $self = shift;
my $body = shift;
my $config = shift;
push @{$self->bodies}, $body;
$self->body_config->{ $body->id } = $config;
}
1;
|