procmail/delay-delivery

   1 # create table messages (msgid text unique not null, filename text
   2 # primary key not null unique, release_ts integer not null);
   3
   4 :0
   5 * DELAY ?? .
   6 * ! DELAYED ?? .
   7 {
   8   :0
   9   * DELAY ?? ^[0-9]
  10   { DELAY="now + $DELAY" }
  11
  12   #TODO: for tickling, use header date
  13   RELEASE="`$BIN_DATE -d \"$DELAY\" +'%s %c'`"
  14
  15   :0
  16   *$ RELEASE ?? ^\/${RE_NOT_SPACE}+
  17   { RELEASE_TS=$MATCH }
  18
  19   :0
  20   *$  $RELEASE_TS ^0
  21   *$ -$OURDATE_TS ^0
  22   {
  23     :0
  24     *$ RELEASE ?? ^[0-9]+${RE_SPACE}+\/.+
  25     { RELEASE_TIME="$MATCH" }
  26
  27     LOG="delay:       delay delivery of $MSGID until $RELEASE_TIME$NL"
  28
  29     DELAYED_QUEUE_DB=$PMVAR/delayed-queue.sqlite
  30     DO_QUERY="$SQLITE $DELAYED_QUEUE_DB"
  31
  32     DATA="$MSGID"
  33     INCLUDERC=$PMDIR/sql-escape
  34
  35     Q="insert into messages values
  36       ($DATA, '\\'\$DESTFILE\\'', $RELEASE_TS)"
  37     TRAP="$TRAP; $DO_QUERY '$Q'"
  38
  39     :0 fw
  40     |$FORMAIL -I "X-Delayed: $RELEASE_TS ($RELEASE_TIME)"
  41
  42     :0
  43     $DELAYED_QUEUE
  44   }
  45 }