+debbugs (2.6.1) unstable; urgency=medium
+
+ * Add support for a Done: psuedoheader (closes: #950133)
+
+ -- Don Armstrong <don@debian.org> Fri, 09 Mar 2018 11:17:10 -0800
+
debbugs (2.6.0) unstable; urgency=medium
[ Don Armstrong ]
push @control_bits,$fv;
} else {
# Don't lc owner or forwarded
- $fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version)$/;
+ $fv = lc $fv unless $fn =~ /^(?:owner|forwarded|usertags|version|source-version|done)$/;
$pheader{$fn} = $fv;
}
print {$debugfh} ">$fn~$fv<\n";
}
$receivedat= "done\@$gEmailDomain";
$markaswhat= 'done';
- $set_done= $header{'from'};
+ $set_done= $pheader{'done'} // $header{'from'};
if ( length( $gListDomain ) > 0 && length( $gDoneList ) > 0 ) {
$generalcc= "$gDoneList\@$gListDomain";
push @generalcc, "$gDoneList\@$gListDomain";
# -*- mode: cperl;-*-
# $Id: 05_mail.t,v 1.1 2005/08/17 21:46:17 don Exp $
-use Test::More tests => 126;
+use Test::More tests => 127;
use warnings;
use strict;
ok($status->{subject} eq 'new title','bug 1 retitled');
ok($status->{severity} eq 'wishlist','bug 1 wishlisted');
+# now check to see if we can close a bug using a psuedoheader done
+send_message(to => '1-done@bugs.something',
+ headers => [To => 'control@bugs.something',
+ From => 'foo@bugs.something',
+ Subject => 'Munging a bug',
+ ],
+ body => <<'EOF') or fail 'message to control@bugs.something failed';
+Done: Me Developer <me@bugs.something>
+
+I'm closing this bug for reasons
+EOF
+
+$status = read_bug(bug=>1);
+ok($status->{done} eq 'Me Developer <me@bugs.something>');
+
+
# now we're going to go through and methododically test all of the control commands.
my @control_commands =
(