splice(@files, 10, @files - 10, "...")
if (@files > 10);
- my $message_id =
my $email_head =
-"From: $req_login <$requester>
-Subject: DISTFILES: ${spec}: ${marker}@{files}
+"Subject: DISTFILES: ${spec}: ${marker}@{files}
X-distfiles-program: file-fetcher.pl";
my $email_body =
"$problems
#open(EMAIL, "| cat");
print EMAIL
-"To: $requester
+"From: <distfiles\@distfiles.pld-linux.org>
+To: $requester
$email_head
Message-ID: <$$." . time . "\@distfiles.pld-linux.org>
#open(EMAIL, "| cat");
print EMAIL
-"To: $commits_list
+"From: $req_login <$requester>
+To: $commits_list
$email_head
Message-ID: <$$." . time . "\@distfiles.pld-linux.org>
-Request by: $requester
+Request by: $req_login
$email_body";
cleanup();
my $email_head =
-"From: $from <$from\@pld-linux.org>
-Subject: DISTFILES: ERROR fetching sources for $spec ($branch)
+"Subject: DISTFILES: ERROR fetching sources for $spec ($branch)
X-distfiles-program: request-handler.pl";
my $email_body =
"$msg
open(M, "| /usr/sbin/sendmail -t") or die("/usr/sbin/sendmail not found");
#open(M, "| cat") or die;
print M
-"To: $commits_list
+"From: $from <$from\@pld-linux.org>
+To: $commits_list
$email_head
Message-ID: <$$." . time . "$id\@distfiles.pld-linux.org>
+Requester: $from
+
$email_body";
close(M) or die("problem while sending email");
open(M, "| /usr/sbin/sendmail -t") or die("/usr/sbin/sendmail not found");
#open(M, "| cat") or die;
print M
-"To: <$from\@pld-linux.org>
+"From: <distfiles\@distfiles.pld-linux.org>
+To: <$from\@pld-linux.org>
$email_head
Message-ID: <$$." . time . "$id\@distfiles.pld-linux.org>