Bug 1223999 - Add See-Also support for aha.io features

2 files changed, 34 insertions, 0 deletions

diff --git a/Bugzilla/BugUrl.pm b/Bugzilla/BugUrl.pm
index c5974d4ad..74a69e6f9 100644
--- a/Bugzilla/BugUrl.pm
+++ b/Bugzilla/BugUrl.pm
@@ -60,6 +60,7 @@ use constant VALIDATORS => {
 # pick the first one that should handle the url. New
 # subclasses should be added at the end of the list.
 use constant SUB_CLASSES => qw(
+    Bugzilla::BugUrl::Aha
     Bugzilla::BugUrl::Bugzilla::Local
     Bugzilla::BugUrl::Bugzilla
     Bugzilla::BugUrl::Launchpad
diff --git a/Bugzilla/BugUrl/Aha.pm b/Bugzilla/BugUrl/Aha.pm
new file mode 100644
index 000000000..a37af3b67
--- /dev/null
+++ b/Bugzilla/BugUrl/Aha.pm
@@ -0,0 +1,33 @@
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This Source Code Form is "Incompatible With Secondary Licenses", as
+# defined by the Mozilla Public License, v. 2.0.
+
+package Bugzilla::BugUrl::Aha;
+use strict;
+use base qw(Bugzilla::BugUrl);
+
+###############################
+####        Methods        ####
+###############################
+
+sub should_handle {
+    my ($class, $uri) = @_;
+
+    return $uri =~ m!^https?://[^.]+\.aha\.io/features/(\w+)-(\d+)!;
+}
+
+sub _check_value {
+    my ($class, $uri) = @_;
+
+    $uri = $class->SUPER::_check_value($uri);
+
+    # Aha HTTP URLs redirect to HTTPS, so just use the HTTPS scheme.
+    $uri->scheme('https');
+
+    return $uri;
+}
+
+1;