X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=tools%2Fdebianqueued-0.9%2Fdebianqueued;h=410e5716bab366c54d35d563ffcf6aade053e428;hb=6ad61ef85be7237455f7fe8216289fcef31ae1f0;hp=d58889f057e05a1afc44a4ac262fed0c131cc459;hpb=6515924b7fc3953e258f4ac6fbec646bf77debc5;p=dak.git

diff --git a/tools/debianqueued-0.9/debianqueued b/tools/debianqueued-0.9/debianqueued
index d58889f0..410e5716 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 );
@@ -1169,6 +1169,8 @@ sub process_commands($) {
 
 	if ($pgplines < 3) {
 		msg( "log,mail", "$commands isn't signed with PGP/GnuPG\n" );
+		msg( "mail", "or the uploaded file is broken. Make sure to transfer in binary mode\n" );
+		msg( "mail", "or better yet - use dcut for commands files\n");
 		goto remove;
 	}
 	
@@ -2132,10 +2134,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 <dak\@ftp-master.debian.org>
 Subject: $subject
+Date: $date
 X-Debian: DAK
 __MESSAGE__