From 0f0a142b8695ead41198a6946249f2e715748d6c Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Thu, 10 Oct 2002 20:16:59 -0800
Subject: [PATCH] [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.

---
 cgi/bugreport.cgi | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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='';
 
-- 
2.39.5