From e251649b3698cc24c18a2d2ef6e582e9d4dd2be2 Mon Sep 17 00:00:00 2001
From: "Paul C. Buetow (mars.fritz.box)" <paul@buetow.org>
Date: Fri, 4 Jul 2014 23:09:03 +0200
Subject: can delay by days

---
 src/muttdelay | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/src/muttdelay b/src/muttdelay
index 48a16e3..66ed6ff 100755
--- a/src/muttdelay
+++ b/src/muttdelay
@@ -3,8 +3,10 @@
 # (c) 2014 by Paul C. Buetow
 
 declare -r VERSION='VERSION_DEVEL'
-declare -r ARG="${1}" ; shift
+declare -r ARG1="${1}" ; shift
+declare -r ARG2="${1}" ; shift
 declare -r DEFAULTRC=/etc/default/muttdelay
+declare -r NOW=$(date +%s)
 
 usage () {
   cat - <<USAGE >&2
@@ -14,30 +16,35 @@ USAGE
 
 # Run by a periodic cron job
 cron () {
-  declare -r now=$(date +%s)
 
   ls "${QUEUE}" |
   while read mail; do
     when=$(sed -E 's/^([0-9]+)\..*/\1/' <<< "${mail}")
-    if [ $now -gt $when ]; then
+    if [ ${NOW} -gt ${when} ]; then
       $MAILCMD < "${QUEUE}/${mail}" && rm "${QUEUE}/${mail}"
     fi
   done
 }
 
-# Run from mutt
-mutt () {
-  echo Not yet implemented
-  exit 3
+# Run from vim
+vim () {
+  declare -r mail="${ARG2}"
+  declare -i days=0
+
+  echo -n 'In how many days should I send this mail?: '
+  read days
+
+  declare -i future=$(( $days * 86400 + $NOW ))
+  cp -v "${mail}" "${QUEUE}/${future}.${NOW}"
 }
 
 source "${DEFAULTRC}"
 
 [ ! -d "${QUEUE}" ] && mkdir "${QUEUE}" && chmod 0700 "${QUEUE}"
 
-case "${ARG}" in
+case "${ARG1}" in
   cron) cron;;
-  mutt) mutt;;
+  vim)  vim;;
   *)    usage;;
 esac
 
-- 
cgit v1.2.3