summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
ca0d420)
Create common function to test whether a severity is "strong" (i.e.
release-critical, in the case of Debian).
if ($status{severity} eq 'normal') {
$showseverity = '';
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";
# $showseverity = "<strong>Severity: $status{severity}</strong>;\n";
} else {
$showseverity = "Severity: <em>$status{severity}</em>;\n";
if ($status{severity} eq 'normal') {
$showseverity = '';
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";
$showseverity = "<strong>Severity: $status{severity}</strong>;\n";
} else {
$showseverity = "Severity: <em>$status{severity}</em>;\n";
-# $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
# usage: db2html [-diff] [-stampfile=<stampfile>] [-lastrun=<days>] <wwwbase>
#load the necessary libraries/configuration
if ($data->{severity} eq '' || $data->{severity} eq 'normal')
{ $showseverity= '';
$addseverity= $gDefaultSeverity;
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
{ $showseverity= "<strong>Severity: $data->{severity}</strong>;\n";
$addseverity= $data->{severity};
} else
-# $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 $
+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);
@severities= grep { not exists $gObsoleteSeverities{$_} } @gSeverityList;
@showseverities= @severities;
grep ($_= $_ eq '' ? $gDefaultSeverity : $_, @showseverities);
-@strongseverities= @gStrongSeverities;
%displayshowseverities= %gSeverityDisplay;
1;
%displayshowseverities= %gSeverityDisplay;
1;
-# $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
#
# Usage: process nn
# Temps: incoming/Pnn
- if (grep { $_ eq $data->{severity} } @strongseverities and
- defined $gStrongList) {
+ if (defined $gStrongList and isstrongseverity($data->{severity})) {
$generalcc = join ', ', $generalcc, "$gStrongList\@$gListDomain";
}
if ($ref<0) {
$generalcc = join ', ', $generalcc, "$gStrongList\@$gListDomain";
}
if ($ref<0) {
-if (grep { $_ eq $data->{severity} } @gStrongSeverities and
- defined $gStrongList) {
+if (defined $gStrongList and isstrongseverity($data->{severity})) {
push @bccs, "$gStrongList\@$gListDomain";
}
push @bccs, "$gStrongList\@$gListDomain";
}
-# $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
#
# Usage: service <code>.nn
# Temps: incoming/P<code>.nn
$action= "Severity set to \`$newseverity'.";
do {
&addmaintainers($data->{package}, $data->{severity});
$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;
}
my $addbcc = "$gStrongList\@$gListDomain";
push @bcc, $addbcc unless grep { $_ eq $addbcc } @bccs;
}
}
}
if (defined $_[1] and defined $gStrongList and
}
}
if (defined $_[1] and defined $gStrongList and
- grep { $_ eq $_[1] } @strongseverities) {
+ isstrongseverity($_[1])) {
push @bcc, "$gStrongList\@$gListDomain";
}
if (defined($maintainerof{$p})) {
push @bcc, "$gStrongList\@$gListDomain";
}
if (defined($maintainerof{$p})) {