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