procmail/delay-delivery

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