with &trim=no (closes: #188561)
- Fix postfix instructions in README.mail (thanks to Jeff Teunissen)
(closes: #134166)
+ - Display old severity when changing severity (closes: #196947)
-- Colin Watson <cjwatson@debian.org> Fri, 20 Jun 2003 18:57:25 +0100
#!/usr/bin/perl
-# $Id: process.in,v 1.98 2005/07/26 04:30:53 don Exp $
+# $Id: process.in,v 1.99 2005/07/29 04:34:11 don Exp $
#
# Usage: process nn
# Temps: incoming/Pnn
$envelope_from =~ s/^.+?<([^>]+)>.+$/$1/;
}
my ($header,$body) = split /\n\n/, $bug_message, 2;
- # Add X-$gProject-PR-Message: list bug_number, package name, and bug title headers
- $header .= qq(\nX-$gProject-PR-Message: list $bug_number\n).
- qq(X-$gProject-PR-Package: $data->{package}\n).
- qq(X-$gProject-PR-Title: $data->{subject})
- if defined $data;
+ # Add X-$gProject-PR-Message: list bug_number and package name headers
+ if (defined $data and $bfound) {
+ $header .= qq(\nX-$gProject-PR-Message: list $bug_number\n).
+ qq(X-$gProject-PR-Package: $data->{package}\n).
+ qq(X-$gProject-PR-Title: $data->{subject});
+ }
+ else {
+ $header .= qq(\nX-$gProject-PR-Message: list inactivebug);
+ }
print STDERR "Tried to loop me with $envelope_from\n"
and exit 1 if $envelope_from =~ /\Q$gListDomain\E|\Q$gEmailDomain\E/;
print DEBUG $envelope_from,qq(\n);
#!/usr/bin/perl
-# $Id: service.in,v 1.107 2005/07/24 18:42:41 don Exp $
+# $Id: service.in,v 1.108 2005/07/29 04:34:11 don Exp $
#
# Usage: service <code>.nn
# Temps: incoming/P<code>.nn
} elsif (&setbug) {
$printseverity= $data->{severity};
$printseverity= "$gDefaultSeverity" if $printseverity eq '';
- $action= "Severity set to \`$newseverity'.";
+ $action= "Severity set to \`$newseverity' from \`$printseverity'";
do {
&addmaintainers($data);
if (defined $gStrongList and isstrongseverity($newseverity)) {