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 * 1^0 DELAY ?? .
  19 * 1^0 RELEASE ?? .
  20 {
  21   :0
  22   * ! RELEASE ?? .
  23   { RELEASE="`$BIN_DATE -d \"$DELAY\" +'%s (%c)'`" }
  24   DELAY
  25
  26   :0
  27   *$ RELEASE ?? ^\/${RE_NOT_SPACE}+
  28   { RELEASE_TS=$MATCH }
  29
  30   :0
  31   *$  $RELEASE_TS ^0
  32   *$ -$OURDATE_TS ^0
  33   {
  34     :0
  35     *$ RELEASE ?? ^[0-9]+${RE_SPACE}+\(\/[^)]+
  36     { RELEASE_TIME="$MATCH" }
  37
  38     LOG="delay:       delay delivery of $MSGID until $RELEASE_TIME$NL"
  39
  40     RELEASE_TIME
  41
  42     :0 fw
  43     |$FORMAIL -I"X-Postponed: $RELEASE"
  44
  45     :0
  46     $DELAYED_QUEUE
  47   }
  48   RELEASE_TS
  49 }