[project @ 2003-02-16 15:20:26 by cjwatson]

[debbugs.git] / scripts / service.in

diff --git a/scripts/service.in b/scripts/service.in
index 3cd5e524c6db41b2b0f8a7ba216400f3ffef5583..eb83a10640c3300119e8e77f56d1c5580a627138 100755 (executable)
--- 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 '';