From: Stephen Gran Date: Sat, 10 May 2008 20:00:52 +0000 (+0100) Subject: Add Date: header manually X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=99e73119fc4698d8149ddf4b4397ba93e98efc2b;p=dak Add Date: header manually --- diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued index d58889f0..fce611e9 100755 --- a/tools/debianqueued-0.9/debianqueued +++ b/tools/debianqueued-0.9/debianqueued @@ -241,7 +241,7 @@ require 5.002; use strict; use POSIX; -use POSIX qw( sys_stat_h sys_wait_h signal_h ); +use POSIX qw( strftime sys_stat_h sys_wait_h signal_h ); use Net::Ping; use Net::FTP; use Socket qw( PF_INET AF_INET SOCK_STREAM ); @@ -2132,10 +2132,12 @@ sub send_mail($$$) { $Email::Send::Sendmail::SENDMAIL = $conf::mail; } + my $date = sprintf "%s", strftime("%a, %d %B %Y %T %z", (localtime(time))); my $message = <<__MESSAGE__; To: $addr From: Archive Administrator Subject: $subject +Date: $date X-Debian: DAK __MESSAGE__