From 0e906122587be7140beb7a99ba1371aa1f791c62 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Wed, 5 Mar 2003 13:00:17 -0800
Subject: [PATCH] [project @ 2003-03-05 13:00:17 by cjwatson] Produce relative
links to bugreport.cgi and pkgreport.cgi. This makes local testing easier.
---
cgi/common.pl | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
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 {
--
2.39.5