受信メールを日付フォルダにコピーするmaildropレシピ

etc_maildrop_archive

HOME="/home/nikushi"

ARCHIVEBASE="$HOME/Maildir.Archives"

# parse Date: value
D=`egrep ^Date: | \
   sed -e 's/^Date: *//' | \
   perl -MDate::Parse -ne 'print Date::Parse::str2time("$_")' \
   | perl -ne '@t=localtime($_); printf("%d%02d%02d",@t[5]+1900,@t[4]+1,@t[3])'`
if ( "$D" eq "" )
{
   log "[WARN] D=$D, cannot get date on Date header, this mail is not archived."
   cc "/dev/null"
}
else
{
   OUT="$ARCHIVEBASE/.$D"
   RET=`[ ! -d $OUT ] && /usr/local/bin/maildirmake $OUT && echo $OUT created`
   log $RET
   cc $OUT
}

#to "/dev/null"