header unfolding

[modbot-mtm.git] / stump / bin / processApproved

diff --git a/stump/bin/processApproved b/stump/bin/processApproved
index 1b2f17642ae80b0eeee4629dfb2e2bdc1222ce18..cd1f13c32e2cd19bb274a19c3bc79c07d8d5905e 100755 (executable)
--- a/stump/bin/processApproved
+++ b/stump/bin/processApproved
@@ -31,18 +31,21 @@ post() {
   (
     echo Path: "$PATH_SUFFIX"
 
-    cat $MNG_ROOT/etc/added-headers | grep ': ' 
+    perl <$MNG_ROOT/etc/added-headers -ne '
+        next unless m/\:/;
+        s/\[REFERENCE\]/[$ENV{"WEBSTUMP_MESSAGENUM"}]/g
+            if defined $ENV{"WEBSTUMP_MESSAGENUM"};
+        print or die $!;
+    '
     # I do grep above because a lot of users inserts empty
     # lines in the added headers.
 
-    echo Date: `date -R`
     cat $TMPFILE                                       \
       | formail -f -a "Newsgroups: $NEWSGROUP"         \
            -I Path:                                    \
             -I X-Moderate-For:                          \
             -I Return-Path:                             \
             -I X-Mailer:                                \
-           -I "Date:"                                  \
             -I "X-400-Received:"                        \
            -I Received: -I "From "                     \
            -a "Approved: $PMUSER_APPROVAL"             \