blob: 134e4fd209c1db325c6bec247d83abe8b1aa3744 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#! /bin/bash
# Process each incoming mail
# TODO image/audio mail part
# message for logging delivery
log=$(grep -rlE 'From:\s+<?MDA' ~/Maildir/cur | head -1)
if [ -z $log ]; then
log=~/Maildir/cur/deliver.log
<<-HEADER cat >$log
From: MDA
Content-Type: text/plain; charset=UTF-8
Subject: Delivery Log
HEADER
fi
exec 2>>$log
shopt -s nocasematch
# update index for dovecot
trap 'doveadm force-resync ${mailbox:-/}' EXIT
# temp file for decodemail (GNU Mailutils)
tmp_mailbox=$(mktemp -d); mkdir -p ${tmp_mailbox}/{tmp,new,cur}
cat >${tmp_mailbox}/cur/mail
trap 'rm -rf ${tmp_mailbox}' EXIT
# Restore mail into variables
MAIL="$(decodemail ${tmp_mailbox})"
# TODO process multi-line header field
header="$(<<<"$MAIL" sed '/^$/ q; /^[[:blank:]]/ d;')"
body="$(<<<"$MAIL" sed -n '/^$/,$ p' | sed '1d')"
# vars about output
date=$(date --iso=seconds)
maildir=${HOME}/Maildir
mailbox=
# Set set_stdout
set_stdout() {
filename=${Subject// /_}
path=${maildir}/${mailbox}${mailbox:+/}new/${date//:/}.${filename//[^[:alnum:]_]/}
mkdir -p $(dirname $path)
exec 1>$path
}
print_mail() {
echo "$MAIL"
}
# save each field of header into vars
# TODO Use GNU MailUtils to save header
while IFS=': ' read field value; do
field="${field^^}"
field="${field//-/_}"
declare ${field}="${value}"
done <<<"$header"
# save to mailbox
if [[ "$SENDER" = pham@topo.tw && -n $Chat_Version ]]; then
heading="$(head -1 <<<"${body}")"
if [[ "${heading}" =~ ^"." ]]; then
mailbox=do
heading=${heading#.}
else
mailbox=box
fi
print_mail() {
<<-MAIL cat
From: me
Date: $(date --rfc-email)
Message-ID: ${Message_ID}
Self: true
Subject: ${heading}
$(sed 1d <<<"$body")
MAIL
}
elif [[ "$SUBJECT" =~ 帳單|轉帳|對帳|付款|發票|消費|繳費|收據|費用|Invoice|Billing ]]; then
mailbox=pay
elif [[ "$TO" = dmarc@topo.tw ]]; then
mailbox=DEV/dmarc
elif [[ "$LIST_ID" =~ ^'Open Street Map Taiwan' ]]; then
mailbox=FOSS/osm
elif [[ "$LIST_ID" =~ ^~rjarry/aerc-discuss ]]; then
mailbox=LIST/aerc
elif [[ "$LIST_ID" =~ '<mutt-users.mutt.org>' ]]; then
mailbox=LIST/mutt
elif [[ -n "${LIST_ID}" ]]; then
mailbox=news
elif [[ "$SUBJECT" =~ login|verify|sign-in|密碼|安全性警示|登入 ]]; then
mailbox=login
elif [[ "$SUBJECT" =~ 電子報|newsletter ]]; then
mailbox=news
elif [[ "$TO" = cloudflare@topo.tw ]]; then
mailbox=SRV/cloudflare
elif [[ "$SUBJECT" =~ eDM ]]; then
mailbox=MISC/promote
fi
# deliver mail to mailbox
set_stdout && print_mail
# log to stderr
echo -e ${date} ${mailbox:-INBOX} '\t' ${heading:-${SUBJECT}} >&2
|
