#open(M, "| cat") or die;
my $version = '$Id$';
print M <<EOF
-From: distfiles <feedback\@pld-linux.org>
+From: $from <$from\@pld-linux.org>
To: $commits_list
Cc: $from\@pld-linux.org
Message-ID: <$id\@distfiles.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
X-distfiles-version: $version