From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 4 Jul 2017 16:47:45 +0000 (-0700)
Subject: fix usertag_package_domain to strip protocol if its present
X-Git-Tag: release/2.6.0~103
X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=commitdiff_plain;h=aa8c590aff32ef3f9afa0bf4e852034133875ff5

fix usertag_package_domain to strip protocol if its present
---

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index b24edf9..0f23881 100644
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -47,7 +47,7 @@ BEGIN {
 				 qw($gWebDomain $gHTMLSuffix $gCGIDomain $gMirrors),
 				 qw($gPackagePages $gSubscriptionDomain $gProject $gProjectTitle),
 				 qw($gMaintainer $gMaintainerWebpage $gMaintainerEmail $gUnknownMaintainerEmail),
-				 qw($gPackageTrackingDomain),
+				 qw($gPackageTrackingDomain $gUsertagPackageDomain),
 				 qw($gSubmitList $gMaintList $gQuietList $gForwardList),
 				 qw($gDoneList $gRequestList $gSubmitterList $gControlList),
 				 qw($gStrongList),
@@ -214,7 +214,7 @@ Domain where where usertags of packages belong; defaults to $gPackagePages
 
 =cut
 
-set_default(\%config,'usertag_package_domain',$config{package_pages});
+set_default(\%config,'usertag_package_domain',map {defined $_?s{https?://}{}:(); $_} $config{package_pages});
 
 
 =item subscription_domain $gSubscriptionDomain