From: doogie <>
Date: Mon, 18 Jun 2001 04:22:04 +0000 (-0800)
Subject: [project @ 2001-06-17 21:22:04 by doogie]
X-Git-Tag: release/2.6.0~1129
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=753c84091976a28e16361f631be094aed17e0e58;p=debbugs.git

[project @ 2001-06-17 21:22:04 by doogie]
Pass all foourl subs thru urlsanit, and then pass urlsanit thru htmlsanit.
---

diff --git a/cgi/common.pl b/cgi/common.pl
index c7161122..2f0dc2b5 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -158,7 +158,7 @@ sub urlsanit {
     my $url = shift;
     $url =~ s/%/%25/g;
     $url =~ s/\+/%2b/g;
-    return $url;
+    return htmlsanit($url);
 }
 
 sub htmlsanit {
@@ -183,12 +183,12 @@ sub bugurl {
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=yes" if ($common_repeatmerged);
 
-    return $debbugs::gCGIDomain . "bugreport.cgi" . "?" . "$params";
+    return urlsanit($debbugs::gCGIDomain . "bugreport.cgi" . "?" . "$params");
 }
 
 sub packageurl {
     my $ref = shift;
-    return $debbugs::gCGIDomain . "package.cgi" . "?" . "package=$ref";
+    return urlsanit($debbugs::gCGIDomain . "package.cgi" . "?" . "package=$ref");
 }
 
 sub allbugs {