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 7739e58b..87defc6e 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 750f2381..a4e5667f 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 e424d2f6..d86d8389 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 3cd5e524..eb83a106 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.5