:0
* ORIGINAL_TO ?? ^.+@tickle\.madduck\.net$
* ORIGINAL_TO ?? ^\/[^@]+
+{ TICKLE="$MATCH" }
+
+:0 E
+*$ ^X-Tickle:${RE_SPACE}+\/${RE_NOT_SPACE}+
+{ TICKLE="$MATCH" }
+
+:0
+* TICKLE ?? .
+* ! DEST ?? .
+* ! TICKLE_DELIVERED ?? .
{
- STAMP
+ DAILY_DELIVERY_TIME=04:20
+ JUST_DATE="`$BIN_DATE -d \"$DATE\" +%x`"
+
:0
- * MATCH ?? ^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]$
- { STAMP=$MATCH }
+ * TICKLE ?? ^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]$
+ { DELAY="@$TICKLE" }
:0 E
- * MATCH ?? ^[0-9]+m$
- * MATCH ?? ^\/[^m]+
- { DATESTR="$DATE + $MATCH months 00:00" }
+ * TICKLE ?? ^[0-9]+h$
+ * TICKLE ?? ^\/[^h]+
+ { DELAY="$DATE + $MATCH hours" }
:0 E
- * MATCH ?? ^[0-9]+w$
- * MATCH ?? ^\/[^w]+
- { DATESTR="$DATE + $MATCH weeks 00:00" }
+ * TICKLE ?? ^[0-9]+m$
+ * TICKLE ?? ^\/[^m]+
+ { DELAY="$JUST_DATE + $MATCH months $DAILY_DELIVERY_TIME" }
:0 E
- * MATCH ?? ^[0-9]+d?$
- * MATCH ?? ^\/[^d]+
- { DATESTR="$DATE + $MATCH days 00:00" }
+ * TICKLE ?? ^[0-9]+w$
+ * TICKLE ?? ^\/[^w]+
+ { DELAY="$JUST_DATE + $MATCH weeks $DAILY_DELIVERY_TIME" }
:0 E
- * MATCH ?? ^[0-9]+h$
- * MATCH ?? ^\/[^h]+
- { DATESTR="$DATE + $MATCH hours" }
+ * TICKLE ?? ^[0-9]+d?$
+ * TICKLE ?? ^\/[^d]+
+ { DELAY="$JUST_DATE + $MATCH days $DAILY_DELIVERY_TIME" }
:0 E
{
- LOG="tickle: invalid date string: $MATCH$NL"
+ LOG="tickle: invalid tickler date string: $TICKLE$NL"
EXITCODE=69
HOST
}
- :0
- * ! STAMP ?? .
- { STAMP=`/bin/date +%s -d "$DATESTR"` }
+ JUST_DATE
+ DAILY_DELIVERY_TIME
- LOG="tickle: stamping message $MSGID with $STAMP$NL"
+ LOG="tickle: delaying message until $DELAY$NL"
+ DELAYED_QUEUE=$TICKLER_QUEUE
- :0 fw
- |$FORMAIL -i "X-Tickle: $STAMP"
-
- :0
- $BASE/.tickler/
+ # unset DISABLE_DELAYS to enable delaying for tickle messages
+ DISABLE_DELAYS
}
+
+TICKLE
+
+# vim:ft=procmail