procmail/delay-delivery

   1 #TODO: create config/delay-(disabled|tonight|weekend)
   2
   3 :0
   4 * POSTPONED ?? .
   5 {
   6   :0 fw
   7   |$FORMAIL -R X-Postponed X-Was-Postponed
   8 }
   9
  10 :0 E
  11 * ! DISABLE_DELAYS ?? .
  12 * DELAY ?? .
  13 {
  14   #TODO: for tickling, use header date
  15   RELEASE="`$BIN_DATE -d \"$DELAY\" +'%s %c'`"
  16
  17   :0
  18   *$ RELEASE ?? ^\/${RE_NOT_SPACE}+
  19   { RELEASE_TS=$MATCH }
  20
  21   :0
  22   *$  $RELEASE_TS ^0
  23   *$ -$OURDATE_TS ^0
  24   {
  25     :0
  26     *$ RELEASE ?? ^[0-9]+${RE_SPACE}+\/.+
  27     { RELEASE_TIME="$MATCH" }
  28
  29     LOG="delay:       delay delivery of $MSGID until $RELEASE_TIME$NL"
  30     POSTPONED="$RELEASE_TS ($RELEASE_TIME)"
  31
  32     INCLUDERC=$PMDIR/record-delayed-mail
  33     INCLUDERC=$PMDIR/addheaders
  34
  35     :0
  36     $DELAYED_QUEUE
  37   }
  38 }