From bced1252f21af86baa3b91c2b1bf2b3e066a0883 Mon Sep 17 00:00:00 2001
From: cjwatson <>
Date: Sun, 16 Feb 2003 15:20:26 -0800
Subject: [PATCH] [project @ 2003-02-16 15:20:26 by cjwatson] Disable the fixed
 severity in favour of the tag.

---
 debian/changelog      | 1 +
 scripts/config.debian | 3 ++-
 scripts/errorlib.in   | 4 ++--
 scripts/service.in    | 5 ++++-
 4 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 7739e58..87defc6 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -13,6 +13,7 @@ debbugs (2.4.1) UNRELEASED; urgency=low
     notices that were there due to using it. [Colin]
   * Accept ';' as well as '&' as a CGI argument separator. [Colin]
   * db2html now works with the new hashed database layout. [Colin]
+  * Disable the fixed severity in favour of the tag. [Colin]
 
  -- Colin Watson <cjwatson@debian.org>  Mon, 25 Nov 2002 03:50:20 +0000
 
diff --git a/scripts/config.debian b/scripts/config.debian
index 750f238..a4e5667 100644
--- a/scripts/config.debian
+++ b/scripts/config.debian
@@ -1,5 +1,5 @@
 # This is the bugs.debian.org debbugs configuration file.
-# $Id: config.debian,v 1.16 2003/01/28 23:52:08 cjwatson Exp $
+# $Id: config.debian,v 1.17 2003/02/16 15:20:26 cjwatson Exp $
 
 # Domains
 $gEmailDomain = "bugs.debian.org";
@@ -44,6 +44,7 @@ $gShowSeverities = "critical, grave, serious, important, normal, minor, wishlist
 @gSeverityList = ( "critical", "grave", "serious", "important", "normal",
                    "minor", "wishlist", "fixed"
                  );
+%gObsoleteSeverities = ( fixed => 'Use the fixed tag instead.' );
 %gSeverityDisplay = ( "critical", "Critical bugs",
                       "grave", "Grave functionality bugs",
                       "serious", "Serious policy violations",
diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index e424d2f..d86d838 100755
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.17 2002/11/17 22:45:16 cjwatson Exp $
+# $Id: errorlib.in,v 1.18 2003/02/16 15:20:26 cjwatson Exp $
 
 sub F_SETLK { 6; } sub F_WRLCK{ 1; }
 $flockstruct= 'sslll'; # And there ought to be something for this too.
@@ -218,7 +218,7 @@ sub escapelog {
 }
 
 
-@severities= @gSeverityList;
+@severities= grep { not exists $gObsoleteSeverities{$_} } @gSeverityList;
 @showseverities= @severities;
 grep ($_= $_ eq '' ? $gDefaultSeverity : $_, @showseverities);
 @strongseverities= @gStrongSeverities;
diff --git a/scripts/service.in b/scripts/service.in
index 3cd5e52..eb83a10 100755
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.67 2003/02/15 00:44:20 cjwatson Exp $
+# $Id: service.in,v 1.68 2003/02/16 15:20:26 cjwatson Exp $
 # ^ more or less ^
 #
 # Usage: service <code>.nn
@@ -416,6 +416,9 @@ END
         if (!grep($_ eq $newseverity, @gSeverityList, "$gDefaultSeverity")) {
             &transcript("Severity level \`$newseverity' is not known.\n".
  			"Recognized are: $gShowSeverities.\n\n");
+        } elsif (exists $gObsoleteSeverities{$newseverity}) {
+            &transcript("Severity level \`$newseverity' is obsolete. " .
+                        "$gObsoleteSeverities{$newseverity}\n\n");
         } elsif (&setbug) {
             $printseverity= $s_severity;
             $printseverity= "$gDefaultSeverity" if $printseverity eq '';
-- 
2.39.2