From f4c8d62859f29338803ce5321029e330f8b28031 Mon Sep 17 00:00:00 2001 From: Mike Frysinger Date: Mon, 8 Jun 2015 13:11:32 +0800 Subject: Bug 1167919: See Also: support debbugs.gnu.org tracker r=glob,a=glob --- Bugzilla/BugUrl/Debian.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Bugzilla/BugUrl/Debian.pm') diff --git a/Bugzilla/BugUrl/Debian.pm b/Bugzilla/BugUrl/Debian.pm index 2b611aa57..b726b0b5a 100644 --- a/Bugzilla/BugUrl/Debian.pm +++ b/Bugzilla/BugUrl/Debian.pm @@ -23,7 +23,10 @@ sub should_handle { # Debian BTS URLs can look like various things: # http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=1234 # http://bugs.debian.org/1234 - return (lc($uri->authority) eq 'bugs.debian.org' + # https://debbugs.gnu.org/cgi/bugreport.cgi?bug=123 + # https://debbugs.gnu.org/123 + return ((lc($uri->authority) eq 'bugs.debian.org' + or lc($uri->authority) eq 'debbugs.gnu.org') and (($uri->path =~ /bugreport\.cgi$/ and $uri->query_param('bug') =~ m|^\d+$|) or $uri->path =~ m|^/\d+$|)) ? 1 : 0; @@ -37,7 +40,7 @@ sub _check_value { # This is the shortest standard URL form for Debian BTS URLs, # and so we reduce all URLs to this. $uri->path =~ m|^/(\d+)$| || $uri->query_param('bug') =~ m|^(\d+)$|; - $uri = new URI("http://bugs.debian.org/$1"); + $uri = new URI('https://' . $uri->authority . '/' . $1); return $uri; } -- cgit v1.2.3-24-g4f1b