3 files changed, 123 insertions, 10 deletions

diff --git a/perllib/FixMyStreet/App/Controller/About.pm b/perllib/FixMyStreet/App/Controller/About.pm
index 233da25d3..48a5dfffd 100755
--- a/perllib/FixMyStreet/App/Controller/About.pm
+++ b/perllib/FixMyStreet/App/Controller/About.pm
@@ -23,6 +23,7 @@ sub page : Path("/about") : Args(1) {
     my $template = $c->forward('find_template');
     $c->detach('/page_error_404_not_found', []) unless $template;
     $c->stash->{template} = $template;
+    $c->cobrand->call_hook('about_hook');
 }
 
 sub index : Path("/about") : Args(0) {
diff --git a/perllib/FixMyStreet/App/Controller/Reports.pm b/perllib/FixMyStreet/App/Controller/Reports.pm
index e19c7628f..b0015acc5 100644
--- a/perllib/FixMyStreet/App/Controller/Reports.pm
+++ b/perllib/FixMyStreet/App/Controller/Reports.pm
@@ -71,6 +71,7 @@ sub index : Path : Args(0) {
 
     my $dashboard = eval {
         my $data = FixMyStreet->config('TEST_DASHBOARD_DATA');
+        # uncoverable branch true
         unless ($data) {
             my $fn = '../data/all-reports-dashboard';
             if ($c->stash->{body}) {
@@ -155,6 +156,7 @@ sub ward : Path : Args(2) {
             $c->res->redirect($ward);
             $c->detach;
         }
+        $c->cobrand->call_hook('council_dashboard_hook');
         $c->go('index');
     }
 
@@ -330,17 +332,35 @@ sub body_check : Private {
     # Oslo/ kommunes sharing a name in Norway
     return if $c->cobrand->reports_body_check( $c, $q_body );
 
+    my $body = $c->forward('body_find', [ $q_body ]);
+    if ($body) {
+        $c->stash->{body} = $body;
+        return;
+    }
+
+    # No result, bad body name.
+    $c->detach( 'redirect_index' );
+}
+
+=head2
+
+Given a string, try and find a body starting with/matching that string.
+Returns the matching body object if found.
+
+=cut
+
+sub body_find : Private {
+    my ($self, $c, $q_body) = @_;
+
     # We must now have a string to check
     my @bodies = $c->model('DB::Body')->search( { name => { -like => "$q_body%" } } )->all;
 
     if (@bodies == 1) {
-        $c->stash->{body} = $bodies[0];
-        return;
+        return $bodies[0];
     } else {
         foreach (@bodies) {
             if (lc($_->name) eq lc($q_body) || $_->name =~ /^\Q$q_body\E (Borough|City|District|County) Council$/i) {
-                $c->stash->{body} = $_;
-                return;
+                return $_;
             }
         }
     }
@@ -353,13 +373,9 @@ sub body_check : Private {
 
     if (@translations == 1) {
         if ( my $body = $c->model('DB::Body')->find( { id => $translations[0]->object_id } ) ) {
-            $c->stash->{body} = $body;
-            return;
+            return $body;
         }
     }
-
-    # No result, bad body name.
-    $c->detach( 'redirect_index' );
 }
 
 =head2 ward_check
diff --git a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
index c50721334..a50a22ff9 100644
--- a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
+++ b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm
@@ -1,6 +1,9 @@
 package FixMyStreet::Cobrand::FixMyStreet;
 use base 'FixMyStreet::Cobrand::UK';
 
+use strict;
+use warnings;
+
 use mySociety::Random;
 
 use constant COUNCIL_ID_BROMLEY => 2482;
@@ -62,5 +65,98 @@ sub extra_contact_validation {
     return %errors;
 }
 
-1;
+=head2 council_dashboard_hook
+
+This is for council-specific dashboard pages, which can only be seen by
+superusers and logged-in users with an email domain matching a body name.
+
+=cut
+
+sub council_dashboard_hook {
+    my $self = shift;
+    my $c = $self->{c};
+
+    unless ( $c->user_exists ) {
+        $c->res->redirect('/about/council-dashboard');
+        $c->detach;
+    }
+
+    return if $c->user->is_superuser;
+
+    my $body = $c->user->from_body || _user_to_body($c);
+    if ($body) {
+        # Matching URL and user's email body
+        return if $body->id eq $c->stash->{body}->id;
+
+        # Matched /a/ body, redirect to its summary page
+        $c->stash->{body} = $body;
+        $c->stash->{wards} = [ { name => 'summary' } ];
+        $c->detach('/reports/redirect_body');
+    }
+
+    $c->res->redirect('/about/council-dashboard');
+}
 
+sub _user_to_body {
+    my $c = shift;
+    my $email = lc $c->user->email;
+    return _email_to_body($c, $email);
+}
+
+sub _email_to_body {
+    my ($c, $email) = @_;
+    my ($domain) = $email =~ m{ @ (.*) \z }x;
+
+    my @data = eval { FixMyStreet->path_to('../data/fixmystreet-councils.csv')->slurp };
+    my $body;
+    foreach (@data) {
+        chomp;
+        my ($d, $b) = split /\|/;
+        if ($d eq $domain) {
+            $body = $b;
+            last;
+        }
+    }
+    # If we didn't find a lookup entry, default to the first part of the domain
+    unless ($body) {
+        $domain =~ s/\.gov\.uk$//;
+        $body = ucfirst $domain;
+    }
+
+    $body = $c->forward('/reports/body_find', [ $body ]);
+    return $body;
+}
+
+sub about_hook {
+    my $self = shift;
+    my $c = $self->{c};
+
+    if ($c->stash->{template} eq 'about/council-dashboard.html') {
+        $c->stash->{form_name} = $c->get_param('name') || '';
+        $c->stash->{email} = $c->get_param('username') || '';
+        if ($c->user_exists) {
+            my $body = _user_to_body($c);
+            if ($body) {
+                $c->stash->{body} = $body;
+                $c->stash->{wards} = [ { name => 'summary' } ];
+                $c->detach('/reports/redirect_body');
+            }
+        }
+        if (my $email = $c->get_param('username')) {
+            $email = lc $email;
+            $email =~ s/\s+//g;
+            my $body = _email_to_body($c, $email);
+            if ($body) {
+                # Send confirmation email (hopefully)
+                $c->stash->{template} = 'auth/general.html';
+                $c->detach('/auth/general');
+            } else {
+                $c->stash->{no_body_found} = 1;
+                $c->set_param('em', $email); # What the contact form wants
+                $c->detach('/contact/submit');
+            }
+        }
+    }
+}
+
+1;