receive.pl: Preserve envelope From as first line

Things like mbox generation prefer this.

THis bug is propagated to the /var/raw/NN.hdr files. The sed rune to fix is
'1h; 2{p;g;p}; 3,$p'.

    cd /var/raw/
    sudo find -name \*.hdr -print -exec sed -n -i -e '1h; 2{p;g;p}; 3,$p' {} \;

diff --git a/scripts/receive.pl b/scripts/receive.pl
index c99c277ca2ad7723d526cd132bf56cb56b59afda..2796562cfa00382611097df2926f1bf600ff99fc 100755 (executable)
--- a/scripts/receive.pl
+++ b/scripts/receive.pl
@@ -62,6 +62,9 @@ umask(002);
 
 open( FILE, ">T.$id" ) || &failure("open temporary file: $!");
 
+my $envelope = <STDIN>;
+print(FILE $envelope) || &failure("write envelope to temporary file: $!");
+
 printf( FILE
       "Received: (at %s) by $c{MailDomain}; %d %s %d %02d:%02d:%02d +0000\n",
     $recv, $mday, $months[$mon], $year + 1900,