:0
* ORIGINAL_TO ?? ^.+@tickle\.madduck\.net$
* ORIGINAL_TO ?? ^\/[^@]+
{
  STAMP
  :0
  * MATCH ?? ^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]$
  { STAMP=$MATCH }

  :0 E
  * MATCH ?? ^[0-9]+m$
  * MATCH ?? ^\/[^m]
  { DATESTR="$DATE + $MATCH months 00:00" }

  :0 E
  * MATCH ?? ^[0-9]+w$
  * MATCH ?? ^\/[^w]
  { DATESTR="$DATE + $MATCH weeks 00:00" }

  :0 E
  * MATCH ?? ^[0-9]+d?$
  * MATCH ?? ^\/[^d]
  { DATESTR="$DATE + $MATCH days 00:00" }

  :0 E
  * MATCH ?? ^[0-9]+h$
  * MATCH ?? ^\/[^h]
  { DATESTR="$DATE + $MATCH hours" }

  :0 E
  {
    LOG="tickle:      invalid date string: $MATCH$NL"
    EXITCODE=69
    HOST
  }

  :0
  * ! STAMP ?? .
  { STAMP=`/bin/date +%s -d "$DATESTR"` }

  LOG="tickle:      stamping message $MSGID with $STAMP$NL"

  :0 fw
  |$FORMAIL -i "X-Tickle: $STAMP"

  :0
  $BASE/.tickler/
}