From: Don Armstrong <don@donarmstrong.com>
Date: Thu, 5 Jul 2007 03:48:49 +0000 (-0700)
Subject: add a date to the fakemail
X-Git-Tag: release/2.6.0~527^2~6
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=57165560f89f6df420c7849e77bcf2781c43f0de;p=debbugs.git

add a date to the fakemail
---

diff --git a/Debbugs/Control.pm b/Debbugs/Control.pm
index 859d5e8d..b74fba28 100644
--- a/Debbugs/Control.pm
+++ b/Debbugs/Control.pm
@@ -98,6 +98,8 @@ use Params::Validate qw(validate_with :types);
 use File::Path qw(mkpath);
 use IO::File;
 
+use POSIX qw(strftime);
+
 # These are a set of options which are common to all of these functions 
 
 my %common_options = (debug       => {type => SCALARREF,
@@ -460,12 +462,14 @@ sub __return_append_to_log_options{
      }
      if (not exists $param{message}) {
 	  $action = $param{action} if exists $param{action};
+	  my $date = strftime "%a, %d %h %Y %T +0000", gmtime;
 	  $param{message} = <<END;
 Received: (at fakecontrol) by fakecontrolmessage;
 To: $param{request_addr}
 From: $param{requester}
 Subject: Internal Control
 Message-Id: $action
+Date: $date
 User-Agent: Fakemail v42.6.9
 
 # A New Hope