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