procmail/tickle

   1 :0
   2 * ORIGINAL_TO ?? ^.+@tickle\.madduck\.net$
   3 * ORIGINAL_TO ?? ^\/[^@]+
   4 {
   5   STAMP
   6   :0
   7   * MATCH ?? ^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]$
   8   { STAMP="$MATCH (`/bin/date -d @$MATCH +%c`)" }
   9
  10   :0 E
  11   * MATCH ?? ^[0-9]+m$
  12   * MATCH ?? ^\/[^m]+
  13   { DATESTR="$DATE + $MATCH months 00:00" }
  14
  15   :0 E
  16   * MATCH ?? ^[0-9]+w$
  17   * MATCH ?? ^\/[^w]+
  18   { DATESTR="$DATE + $MATCH weeks 00:00" }
  19
  20   :0 E
  21   * MATCH ?? ^[0-9]+d?$
  22   * MATCH ?? ^\/[^d]+
  23   { DATESTR="$DATE + $MATCH days 00:00" }
  24
  25   :0 E
  26   * MATCH ?? ^[0-9]+h$
  27   * MATCH ?? ^\/[^h]+
  28   { DATESTR="$DATE + $MATCH hours" }
  29
  30   :0 E
  31   {
  32     LOG="tickle:      invalid date string: $MATCH$NL"
  33     EXITCODE=69
  34     HOST
  35   }
  36
  37   :0
  38   * ! STAMP ?? .
  39   { STAMP=`/bin/date +'%s (%c)' -d "$DATESTR"` }
  40
  41   LOG="tickle:      stamping message $MSGID with $STAMP$NL"
  42
  43   :0 fw
  44   |$FORMAIL -i "X-Tickle: $STAMP"
  45
  46   :0
  47   $BASE/.tickler/
  48 }