summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
57777fe)
Copy all traffic on bugs with release-critical severities to $gStrongList
(debian-bugs-rc for Debian).
# This is the bugs.debian.org debbugs configuration file.
# This is the bugs.debian.org debbugs configuration file.
-# $Id: config.debian,v 1.21 2003/08/06 10:57:23 cjwatson Exp $
+# $Id: config.debian,v 1.22 2003/08/20 23:33:54 cjwatson Exp $
# Domains
$gEmailDomain = "bugs.debian.org";
# Domains
$gEmailDomain = "bugs.debian.org";
$gControlList = "debian-bugs-dist";
$gSummaryList = "debian-bugs-reports";
$gMirrorList = "debian-bugs-mirror"; # sends to all mirrors
$gControlList = "debian-bugs-dist";
$gSummaryList = "debian-bugs-reports";
$gMirrorList = "debian-bugs-mirror"; # sends to all mirrors
+$gStrongList = "debian-bugs-rc";
# Various configurable options
$gMailer = "exim"; # valid: exim, qmail and sendmail
# Various configurable options
$gMailer = "exim"; # valid: exim, qmail and sendmail
-# $Id: process.in,v 1.78 2003/08/07 13:57:06 cjwatson Exp $
+# $Id: process.in,v 1.79 2003/08/20 23:33:54 cjwatson Exp $
#
# Usage: process nn
# Temps: incoming/Pnn
#
# Usage: process nn
# Temps: incoming/Pnn
+ if (grep { $_ eq $data->{severity} } @strongseverities and
+ defined $gStrongList) {
+ $generalcc = join ', ', $generalcc, "$gStrongList\@$gListDomain";
+ }
if ($ref<0) {
&htmllog("Warning","sent",$replyto,"Message ignored.");
&sendmessage(<<END, '');
if ($ref<0) {
&htmllog("Warning","sent",$replyto,"Message ignored.");
&sendmessage(<<END, '');
+if (grep { $_ eq $data->{severity} } @gStrongSeverities and
+ defined $gStrongList) {
+ push @bccs, "$gStrongList\@$gListDomain";
+}
$veryquiet= $codeletter eq 'Q';
if ($codeletter eq 'M' && !@maintaddrs) {
$veryquiet= $codeletter eq 'Q';
if ($codeletter eq 'M' && !@maintaddrs) {
-# $Id: service.in,v 1.84 2003/08/06 18:45:41 cjwatson Exp $
+# $Id: service.in,v 1.85 2003/08/20 23:33:54 cjwatson Exp $
#
# Usage: service <code>.nn
# Temps: incoming/P<code>.nn
#
# Usage: service <code>.nn
# Temps: incoming/P<code>.nn
} else {
$action= "$gBug closed, send any further explanations to $data->{originator}";
do {
} else {
$action= "$gBug closed, send any further explanations to $data->{originator}";
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
if ( length( $gDoneList ) > 0 && length( $gListDomain ) >
0 ) { &addccaddress("$gDoneList\@$gListDomain"); }
$data->{done}= $replyto;
if ( length( $gDoneList ) > 0 && length( $gListDomain ) >
0 ) { &addccaddress("$gDoneList\@$gListDomain"); }
$data->{done}= $replyto;
$action= "$gBug assigned to package \`$newpackage'.";
}
do {
$action= "$gBug assigned to package \`$newpackage'.";
}
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
&addmaintainers($newpackage);
$data->{package}= $newpackage;
} while (&getnextbug);
&addmaintainers($newpackage);
$data->{package}= $newpackage;
} while (&getnextbug);
$noriginator eq '' ? "$gBug reopened, originator not changed." :
"$gBug reopened, originator set to $noriginator.";
do {
$noriginator eq '' ? "$gBug reopened, originator not changed." :
"$gBug reopened, originator set to $noriginator.";
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
$data->{originator}= $noriginator eq '' ? $data->{originator} : $noriginator;
$data->{done}= '';
} while (&getnextbug);
$data->{originator}= $noriginator eq '' ? $data->{originator} : $noriginator;
$data->{done}= '';
} while (&getnextbug);
}
if (&getbug) {
&foundbug;
}
if (&getbug) {
&foundbug;
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
$oldsubmitter= $data->{originator};
$data->{originator}= $newsubmitter;
$action= "Changed $gBug submitter from $oldsubmitter to $newsubmitter.";
$oldsubmitter= $data->{originator};
$data->{originator}= $newsubmitter;
$action= "Changed $gBug submitter from $oldsubmitter to $newsubmitter.";
$extramessage= "(By the way, this $gBug is currently marked as done.)\n";
}
do {
$extramessage= "(By the way, this $gBug is currently marked as done.)\n";
}
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
if (length($gFowardList)>0 && length($gListDomain)>0 ) {
&addccaddress("$gFowardList\@$gListDomain");
}
if (length($gFowardList)>0 && length($gListDomain)>0 ) {
&addccaddress("$gFowardList\@$gListDomain");
}
} else {
$action= "Removed annotation that $gBug had been forwarded to $data->{forwarded}.";
do {
} else {
$action= "Removed annotation that $gBug had been forwarded to $data->{forwarded}.";
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
$data->{forwarded}= '';
} while (&getnextbug);
}
$data->{forwarded}= '';
} while (&getnextbug);
}
$printseverity= "$gDefaultSeverity" if $printseverity eq '';
$action= "Severity set to \`$newseverity'.";
do {
$printseverity= "$gDefaultSeverity" if $printseverity eq '';
$action= "Severity set to \`$newseverity'.";
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
+ if (defined $gStrongList and
+ grep { $_ eq $newseverity } @strongseverities) {
+ my $addbcc = "$gStrongList\@$gListDomain";
+ push @bcc, $addbcc unless grep { $_ eq $addbcc } @bccs;
+ }
$data->{severity}= $newseverity;
} while (&getnextbug);
}
$data->{severity}= $newseverity;
} while (&getnextbug);
}
$action= "Tags removed: " . join(", ", @okaytags);
}
do {
$action= "Tags removed: " . join(", ", @okaytags);
}
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
$data->{keywords} = '' if ($addsub eq "set");
if ($addsub eq "sub") {
foreach my $t (@badtags) {
$data->{keywords} = '' if ($addsub eq "set");
if ($addsub eq "sub") {
foreach my $t (@badtags) {
}
if (&getbug) {
&foundbug;
}
if (&getbug) {
&foundbug;
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
$data->{subject}= $newtitle;
$action= "Changed $gBug title.";
&savebug;
$data->{subject}= $newtitle;
$action= "Changed $gBug title.";
&savebug;
@newmergelist= split(/ /,$data->{mergedwith});
$discref= $ref;
do {
@newmergelist= split(/ /,$data->{mergedwith});
$discref= $ref;
do {
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
$data->{mergedwith}= ($ref == $discref) ? ''
: join(' ',grep($_ ne $ref,@newmergelist));
} while (&getnextbug);
$data->{mergedwith}= ($ref == $discref) ? ''
: join(' ',grep($_ ne $ref,@newmergelist));
} while (&getnextbug);
$action= "Merged @newmergelist.";
for $ref (@newmergelist) {
&getbug || die "huh ? $gBug $ref disappeared during merge";
$action= "Merged @newmergelist.";
for $ref (@newmergelist) {
&getbug || die "huh ? $gBug $ref disappeared during merge";
- &addmaintainers($data->{package});
+ &addmaintainers($data->{package}, $data->{severity});
$data->{mergedwith}= join(' ',grep($_ ne $ref,@newmergelist));
$data->{keywords}= join(' ', keys %tags);
&savebug;
$data->{mergedwith}= join(' ',grep($_ ne $ref,@newmergelist));
$data->{keywords}= join(' ', keys %tags);
&savebug;
push @bcc, "$p\@$gSubscriptionDomain";
}
}
push @bcc, "$p\@$gSubscriptionDomain";
}
}
+ if (defined $_[1] and defined $gStrongList and
+ grep { $_ eq $_[1] } @strongseverities) {
+ push @bcc, "$gStrongList\@$gListDomain";
+ }
if (defined($maintainerof{$p})) {
$addmaint= $maintainerof{$p};
&transcript("MR|$addmaint|$p|$ref|\n") if $dl>2;
if (defined($maintainerof{$p})) {
$addmaint= $maintainerof{$p};
&transcript("MR|$addmaint|$p|$ref|\n") if $dl>2;