1 files changed, 51 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/SendReport/EmptyHomes.pm b/perllib/FixMyStreet/SendReport/EmptyHomes.pm
new file mode 100644
index 000000000..9453b4ca5
--- /dev/null
+++ b/perllib/FixMyStreet/SendReport/EmptyHomes.pm
@@ -0,0 +1,51 @@
+package FixMyStreet::SendReport::EmptyHomes;
+
+use Moose;
+use namespace::autoclean;
+
+BEGIN { extends 'FixMyStreet::SendReport::Email'; }
+
+sub build_recipient_list {
+    my $self = shift;
+    my $row = shift;
+    my $areas_info = shift;
+    my %recips;
+
+    my $all_confirmed = 1;
+    foreach my $council ( keys %{ $self->councils } ) {
+        my $contact = FixMyStreet::App->model("DB::Contact")->find( {
+            deleted => 0,
+            area_id => $council,
+            category => 'Empty property',
+        } );
+
+        my ($council_email, $confirmed, $note) = ( $contact->email, $contact->confirmed, $contact->note );
+
+        $council_email = essex_contact($row->latitude, $row->longitude) if $council == 2225;
+        $council_email = oxfordshire_contact($row->latitude, $row->longitude) if $council == 2237 && $council_email eq 'SPECIAL';
+
+        unless ($confirmed) {
+            $all_confirmed = 0;
+            #$note = 'Council ' . $row->council . ' deleted'
+                #unless $note;
+            $council_email = 'N/A' unless $council_email;
+            #$notgot{$council_email}{$row->category}++;
+            #$note{$council_email}{$row->category} = $note;
+        }
+
+        push @{ $self->to }, [ $council_email, $self->councils->{ $council } ];
+        $recips{$council_email} = 1;
+
+        my $country = $areas_info->{$council}->{country};
+        if ($country eq 'W') {
+            $recips{ 'shelter@' . mySociety::Config::get('EMAIL_DOMAIN') } = 1;
+        } else {
+            $recips{ 'eha@' . mySociety::Config::get('EMAIL_DOMAIN') } = 1;
+        }
+    }
+
+    return () unless $all_confirmed;
+    return keys %recips;
+}
+
+1;