[project @ 2001-01-27 22:09:01 by joy]

[debbugs.git] / cgi / bugs-fetch2.pl.in

diff --git a/cgi/bugs-fetch2.pl.in b/cgi/bugs-fetch2.pl.in
index 24c70210c7878cb9bfecd214e07c428fd01bffab..f850b6515e58069cfaea2328ffc468927d9efbb7 100644 (file)
--- a/cgi/bugs-fetch2.pl.in
+++ b/cgi/bugs-fetch2.pl.in
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 require '/etc/debbugs/config';
-require '/var/lib/debbugs/www/cgi/cgi-lib.pl';
+require './cgi-lib.pl';
 
 %map= ($gMirrors);
 
@@ -57,7 +57,7 @@ END
 }
 
 $base= $ENV{'HTTP_REFERER'};
-if ($base =~ s:/Bugs/.*$::) {
+if ($base =~ s:/${gWebHostBugDir}/.*$::) {
     for $y (keys %map) {
        $base= $map{$y} if $base eq $y;
     }
@@ -65,7 +65,7 @@ if ($base =~ s:/Bugs/.*$::) {
     $base= $in{'base'};
 }
 
-$newurl= "$base/Bugs/db/$suburl";
+$newurl= "$base/${gWebHostBugDir}/db/$suburl";
 print <<END;
 Status: 301 Redirect
 Location: $newurl