From: cjwatson <>
Date: Wed, 5 Mar 2003 21:00:17 +0000 (-0800)
Subject: [project @ 2003-03-05 13:00:17 by cjwatson]
X-Git-Tag: release/2.6.0~951
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0e906122587be7140beb7a99ba1371aa1f791c62;p=debbugs.git

[project @ 2003-03-05 13:00:17 by cjwatson]
Produce relative links to bugreport.cgi and pkgreport.cgi. This makes local
testing easier.
---

diff --git a/cgi/common.pl b/cgi/common.pl
index 3d9eae8e..32d9b4f2 100644
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -211,7 +211,7 @@ sub submitterurl {
     my $params = "submitter=" . emailfromrfc822($ref);
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
-    return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . $params);
+    return urlsanit("pkgreport.cgi" . "?" . $params);
 }
 
 sub mainturl {
@@ -219,7 +219,7 @@ sub mainturl {
     my $params = "maint=" . emailfromrfc822($ref);
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
-    return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . $params);
+    return urlsanit("pkgreport.cgi" . "?" . $params);
 }
 
 sub pkgurl {
@@ -228,7 +228,7 @@ sub pkgurl {
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
     
-    return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . "$params");
+    return urlsanit("pkgreport.cgi" . "?" . "$params");
 }
 
 sub srcurl {
@@ -236,7 +236,7 @@ sub srcurl {
     my $params = "src=$ref";
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
-    return urlsanit($debbugs::gCGIDomain . "pkgreport.cgi" . "?" . "$params");
+    return urlsanit("pkgreport.cgi" . "?" . "$params");
 }
 
 sub urlsanit {
@@ -265,7 +265,7 @@ sub bugurl {
     $params .= "&archive=yes" if ($common_archive);
     $params .= "&repeatmerged=no" unless ($common_repeatmerged);
 
-    return urlsanit($debbugs::gCGIDomain . "bugreport.cgi" . "?" . "$params");
+    return urlsanit("bugreport.cgi" . "?" . "$params");
 }
 
 sub dlurl {
@@ -278,12 +278,12 @@ sub dlurl {
     }
     $params .= "&archive=yes" if ($common_archive);
 
-    return urlsanit($debbugs::gCGIDomain . "bugreport.cgi/$filename?$params");
+    return urlsanit("bugreport.cgi/$filename?$params");
 }
 
 sub mboxurl {
     my $ref = shift;
-    return urlsanit($debbugs::gCGIDomain . "bugreport.cgi" . "?" . "bug=$ref&mbox=yes");
+    return urlsanit("bugreport.cgi" . "?" . "bug=$ref&mbox=yes");
 }
 
 sub allbugs {