From: cjwatson <>
Date: Fri, 11 Oct 2002 04:16:59 +0000 (-0800)
Subject: [project @ 2002-10-10 21:16:59 by cjwatson]
X-Git-Tag: release/2.6.0~1031
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=0f0a142b8695ead41198a6946249f2e715748d6c;p=debbugs.git

[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 77da0e5b..05ccefe0 100755
--- 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='';