From 4e579f9cbf43743f0040f23325994f16027e332c Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sat, 17 Apr 2004 16:54:27 -0800
Subject: [PATCH] [project @ 2004-04-17 17:54:27 by cjwatson] bugs-fetch2
 redirects to bugreport.cgi/pkgreport.cgi URLs rather than obsolete db/ ones.

---
 cgi/bugs-fetch2.pl.in | 17 ++++++-----------
 1 file changed, 6 insertions(+), 11 deletions(-)

diff --git a/cgi/bugs-fetch2.pl.in b/cgi/bugs-fetch2.pl.in
index bfff3c9..2221857 100644
--- a/cgi/bugs-fetch2.pl.in
+++ b/cgi/bugs-fetch2.pl.in
@@ -26,9 +26,7 @@ There should be no nondigits in your entry.
 END
         exit(0);
     }
-    $suburl= $_;
-    $suburl =~ s,^..,$&/$&,;
-    $suburl.= '.html';
+    $suburl= "bugreport.cgi?bug=$_";
 } elsif ($in{'type'} eq 'package') {
     $_= $in{'package'};
     s/^\s+//; s/\s+$//; y/A-Z/a-z/;
@@ -47,7 +45,7 @@ or digit and contain only letters, digits and the characters
 END
         exit(0);
     }
-    $suburl= "pa/l$_.html";
+    $suburl= "pkgreport.cgi?pkg=$_";
 } else {
     print <<END;
 Content-Type: text/plain
@@ -57,16 +55,13 @@ END
     exit(0);
 }
 
-$base= $ENV{'HTTP_REFERER'};
-if ($base =~ s:/${gWebHostBugDir}/.*$::) {
-    for $y (keys %map) {
-	$base= $map{$y} if $base eq $y;
-    }
-} else {
+if (exists $in{'base'}) {
     $base= $in{'base'};
+} else {
+    $base= $gCGIDomain;
 }
 
-$newurl= "$base/${gWebHostBugDir}/db/$suburl";
+$newurl= "http://$base/$suburl";
 print <<END;
 Status: 301 Redirect
 Location: $newurl
-- 
2.39.2