X-Git-Url: https://git.madduck.net/etc/mailfilter.git/blobdiff_plain/4341ead2067edf202f5bf36a6179617740b84111..5012327c3710688429161b890226d95b9d99edf8:/procmail/tickle

diff --git a/procmail/tickle b/procmail/tickle
index d865e86..bc4572d 100644
--- a/procmail/tickle
+++ b/procmail/tickle
@@ -1,48 +1,62 @@
 :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
+  LOG="tickle:      '$TICKLE'$NL"
+  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