[project @ 2002-10-10 21:16:59 by cjwatson]

If displaying an archived bug, print a message to that effect and warn that
it can't be changed.

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 77da0e5babcfc90add31fe8ff5612957e5c81420..05ccefe0cd004b488a70eff1643a748da5f529c2 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 $gWebDomain));
+use vars(qw($gHTMLTail $gSpoolDir $gWebDomain));
 
 my %param = readparse();
 
@@ -101,6 +101,9 @@ $descriptivehead.= ".";
 
 my $buglog = buglog($ref);
 open L, "<$buglog" or &quit("open log for $ref: $!");
+if ($buglog !~ m#^\Q$gSpoolDir/db-h/#) {
+    $descriptivehead .= "\n<br>Bug is <strong>archived</strong>. No further changes may be made.";
+}
 
 my $log='';