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 );
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;
}
$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__