[Highways England] Initialise single-sign on

Initial setup for single sign on

perllib/FixMyStreet/App/Controller/Auth/Social.pm

@@ -308,7 +308,11 @@ sub oidc_callback: Path('/auth/OIDC') : Args(0) {
         $c->log->info("Social::oidc_callback no id_token: " . $oidc->{last_response}->{_content});
         $c->detach('oauth_failure');
     }
-
+    my $message = '';
+    for my $key (sort keys %{$id_token->payload}) {
+        $message .= $key . " : " . $id_token->payload->{$key} . "\n" if $id_token->payload->{$key};
+    }
+    $c->log->debug($message) if $message;
     # sanity check the token audience is us...
     unless ($id_token->payload->{aud} eq $c->forward('oidc_config')->{client_id}) {
         $c->log->info("Social::oidc_callback invalid id_token: expected aud to be " . $c->forward('oidc_config')->{client_id} . " but it was " . $id_token->payload->{aud});

perllib/FixMyStreet/Cobrand/HighwaysEngland.pm

@@ -194,6 +194,35 @@ sub _redact {
     return $s;
 }
 
+=head1 OIDC single sign on
+
+Noational Highways has a single-sign on option
+
+=over 4
+
+=item * Single sign on is enabled if the configuration is set up
+
+=cut
+
+sub social_auth_enabled {
+    my $self = shift;
+
+    return $self->feature('oidc_login') ? 1 : 0;
+}
+
+=item * Different single sign-ons send user details differently, user_from_oidc extracts the relevant parts
+
+=cut
+
+sub user_from_oidc {
+    my ($self, $payload) = @_;
+
+    my $name = join(" ", $payload->{given_name}, $payload->{family_name});
+    my $email = $payload->{email} ? lc($payload->{email}) : '';
+
+    return ($name, $email);
+}
+
 sub munge_report_new_bodies {
     my ($self, $bodies) = @_;
     # On the cobrand there is only the HE body