procmail/delay-delivery

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