[project @ 2003-08-23 13:17:32 by cjwatson]

Create common function to test whether a severity is "strong" (i.e.
release-critical, in the case of Debian).

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index dad91a0c7ebbcf94a12051c0991ebc1df7fe750e..5fe8db54e18e84350e762858b277d5a142ec8519 100755 (executable)
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -165,7 +165,7 @@ my @tpacks = splitpackages($tpack);
 
 if  ($status{severity} eq 'normal') {
        $showseverity = '';
-#} elsif (grep($status{severity} eq $_, @strongseverities)) {
+#} elsif (isstrongseverity($status{severity})) {
 #      $showseverity = "<strong>Severity: $status{severity}</strong>;\n";
 } else {
        $showseverity = "Severity: <em>$status{severity}</em>;\n";

diff --git a/cgi/common.pl b/cgi/common.pl
index 927386030637b638dc9942946378746748cf2d75..7064600c922ce454e58dfcd2514384a4f558f15e 100644 (file)
--- a/cgi/common.pl
+++ b/cgi/common.pl
@@ -210,7 +210,7 @@ sub htmlindexentrystatus {
 
     if  ($status{severity} eq 'normal') {
         $showseverity = '';
-    } elsif (grep($status{severity} eq $_, @debbugs::gStrongSeverities)) {
+    } elsif (isstrongseverity($status{severity})) {
         $showseverity = "<strong>Severity: $status{severity}</strong>;\n";
     } else {
         $showseverity = "Severity: <em>$status{severity}</em>;\n";

diff --git a/scripts/db2html.in b/scripts/db2html.in
index df45f848eee71b9abfe1beff5e84c14b98796de6..dab1399ca7bf7111e012a372ee3e3766d6d858c7 100755 (executable)
--- a/scripts/db2html.in
+++ b/scripts/db2html.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: db2html.in,v 1.19 2003/08/06 10:57:23 cjwatson Exp $
+# $Id: db2html.in,v 1.20 2003/08/23 13:17:32 cjwatson Exp $
 # usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
 
 #load the necessary libraries/configuration
@@ -142,7 +142,7 @@ for $f (@files)
         if ($data->{severity} eq '' || $data->{severity} eq 'normal') 
                {       $showseverity= '';
             $addseverity= $gDefaultSeverity;
-        } elsif (grep($data->{severity} eq $_, @strongseverities)) 
+        } elsif (isstrongseverity($data->{severity})) 
                {       $showseverity= "<strong>Severity: $data->{severity}</strong>;\n";
             $addseverity= $data->{severity};
         } else 

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index 1ca19961c2abffa144e7690dd59ccb54d301f6a8..cdddadaa0fdf0eeec10cd4832c88a73253a2aaba 100755 (executable)
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.35 2003/08/22 01:41:54 cjwatson Exp $
+# $Id: errorlib.in,v 1.36 2003/08/23 13:17:32 cjwatson Exp $
 
 use Mail::Address;
 
@@ -379,11 +379,16 @@ sub escapelog {
        return \@log;
 }
 
+sub isstrongseverity {
+    my $severity = shift;
+    $severity = $gDefaultSeverity if $severity eq '';
+    return grep { $_ eq $severity } @gStrongSeverities;
+}
+
 
 @severities= grep { not exists $gObsoleteSeverities{$_} } @gSeverityList;
 @showseverities= @severities;
 grep ($_= $_ eq '' ? $gDefaultSeverity : $_, @showseverities);
-@strongseverities= @gStrongSeverities;
 %displayshowseverities= %gSeverityDisplay;
 
 1;

diff --git a/scripts/process.in b/scripts/process.in
index d5b2cf57861cc03b07cda84b35a78a79beb1eb58..c340880d086bee1ee66a68e773cd7b512d78ffcc 100755 (executable)
--- a/scripts/process.in
+++ b/scripts/process.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: process.in,v 1.79 2003/08/20 23:33:54 cjwatson Exp $
+# $Id: process.in,v 1.80 2003/08/23 13:17:32 cjwatson Exp $
 #
 # Usage: process nn
 # Temps:  incoming/Pnn
@@ -266,8 +266,7 @@ if ($codeletter eq 'D' || $codeletter eq 'F')
            $generalcc=''; 
        }
     }
-    if (grep { $_ eq $data->{severity} } @strongseverities and
-            defined $gStrongList) {
+    if (defined $gStrongList and isstrongseverity($data->{severity})) {
         $generalcc = join ', ', $generalcc, "$gStrongList\@$gListDomain";
     }
     if ($ref<0) {
@@ -622,8 +621,7 @@ END
 }
 
 @bccs = @addsrcaddrs;
-if (grep { $_ eq $data->{severity} } @gStrongSeverities and
-        defined $gStrongList) {
+if (defined $gStrongList and isstrongseverity($data->{severity})) {
     push @bccs, "$gStrongList\@$gListDomain";
 }
 

diff --git a/scripts/service.in b/scripts/service.in
index 8473e37a4ff8dcde5e157cee79bb4c0149486484..b2b063b8855d12b8059d0b6358e25c5e14df7202 100755 (executable)
--- a/scripts/service.in
+++ b/scripts/service.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: service.in,v 1.86 2003/08/22 01:41:54 cjwatson Exp $
+# $Id: service.in,v 1.87 2003/08/23 13:17:32 cjwatson Exp $
 #
 # Usage: service <code>.nn
 # Temps:  incoming/P<code>.nn
@@ -425,8 +425,7 @@ END
            $action= "Severity set to \`$newseverity'.";
            do {
                 &addmaintainers($data->{package}, $data->{severity});
-                if (defined $gStrongList and
-                        grep { $_ eq $newseverity } @strongseverities) {
+                if (defined $gStrongList and isstrongseverity($newseverity)) {
                     my $addbcc = "$gStrongList\@$gListDomain";
                     push @bcc, $addbcc unless grep { $_ eq $addbcc } @bccs;
                 }
@@ -1029,7 +1028,7 @@ sub addmaintainers {
            }
        }
         if (defined $_[1] and defined $gStrongList and
-                grep { $_ eq $_[1] } @strongseverities) {
+                isstrongseverity($_[1])) {
             push @bcc, "$gStrongList\@$gListDomain";
         }
         if (defined($maintainerof{$p})) {