Merge tag 'v2.0.4' into fiksgatami-dev

1 files changed, 27 insertions, 0 deletions

diff --git a/perllib/FixMyStreet/App/Response.pm b/perllib/FixMyStreet/App/Response.pm
new file mode 100644
index 000000000..16ebf995f
--- /dev/null
+++ b/perllib/FixMyStreet/App/Response.pm
@@ -0,0 +1,27 @@
+# This package exists to try and work around a big bug in Edge:
+# https://developer.microsoft.com/en-us/microsoft-edge/platform/issues/8572187/
+
+package FixMyStreet::App::Response;
+use Moose;
+extends 'Catalyst::Response';
+
+around 'redirect' => sub {
+    my $orig = shift;
+    my $self = shift;
+    my ($location, $status) = @_;
+
+    return $self->$orig() unless @_;  # getter
+
+    my $agent = $self->_context->request->user_agent;
+    return $self->$orig(@_) unless $agent =~ /Edge\/14/;  # Only care about Edge
+
+    # Instead of a redirect, output HTML that redirects
+    $self->body(<<END
+<meta http-equiv="refresh" content="0; url=$location">
+Please follow this link: <a href="$location">$location</a>
+END
+    );
+    return $location;
+};
+
+1;