[project @ 2002-11-01 14:33:51 by cjwatson]

Use mainturl() rather than the old /db/ma link.

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index b99decb150a5c9e9ee3dc79162995ff2c8d670c3..a5b57d0bedc7822513f3ffabcce38836a137c4ab 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -14,7 +14,7 @@ require './common.pl';
 require '/etc/debbugs/config';
 require '/etc/debbugs/text';
 
-use vars(qw($gHTMLTail $gSpoolDir $gWebDomain));
+use vars(qw($gHTMLTail $gSpoolDir));
 
 my %param = readparse();
 
@@ -100,7 +100,7 @@ $short = $ref; $short =~ s/^\d+/#$&/;
 $tmaint = defined($maintainer{$tpack}) ? $maintainer{$tpack} : '(unknown)';
 $tsrc = defined($pkgsrc{$tpack}) ? $pkgsrc{$tpack} : '(unknown)';
 $descriptivehead= $indexentry."Maintainer for $status{package} is\n".
-            '<a href="http://'.$debbugs::gWebDomain.'/db/ma/l'.&maintencoded($tmaint).'.html">'.htmlsanit($tmaint).'</a>';
+            '<a href="'.mainturl($tmaint).'">'.htmlsanit($tmaint).'</a>';
 $descriptivehead.= ";\nSource for $status{package} is\n".
            '<a href="'.srcurl($tsrc)."\">$tsrc</a>" if ($tsrc ne "(unknown)");
 $descriptivehead.= ".</p>";