142 lines
4.3 KiB
Bash
Executable File
142 lines
4.3 KiB
Bash
Executable File
#!/bin/sh
|
|
VERSION="0.2.1"
|
|
usage() {
|
|
echo "emailbook $VERSION"'
|
|
A minimalistic address book for e-mails only.
|
|
|
|
Usage: emailbook FILE [OPTIONS]
|
|
|
|
Prints all values in FILE if no option is given.
|
|
|
|
Options:
|
|
-a, --add [KEY] VALUE Add KEY/VALUE pair to FILE. If KEY is omitted,
|
|
VALUE is used as key, too.
|
|
[-s, --search] QUERY Search FILE for entries with keys or values containing QUERY.
|
|
-k, --key QUERY Like `--search` but limit search to keys/aliases.
|
|
-v, --value QUERY Like `--search` but limit search to values.
|
|
-p, --parse SOURCE Parse stdin for e-mail addresses in header and add them to FILE.
|
|
SOURCE might be either --from, --to , --cc, --bcc, or --all.
|
|
-h, --help Show this help.
|
|
-V, --version Print version.
|
|
'
|
|
}
|
|
|
|
checkfilename() {
|
|
[ $QUIET ] || [ -e "$filename" ] \
|
|
|| echo "File $filename not found. Creating it." 1>&2
|
|
}
|
|
|
|
keyexists() {
|
|
escaped=$(echo "$*" | sed 's/[][\.|$(){}?+*^]/\\&/g')
|
|
# also check display name with/without double quotes
|
|
quotestoggled=$(echo "$*" | sed -E 's/^"([^"]+)"( +<[^>]+>)/\1\2/;t;s/^([^"]+?)( +<[^>]+>)/"\1"\2/')
|
|
quotestoggledescaped=$(echo "$quotestoggled" | sed 's/[][\.|$(){}?+*^]/\\&/g')
|
|
grep -q -E "^$escaped( :|\$)" "$filename" 2> /dev/null \
|
|
|| grep -q -E "^$quotestoggledescaped( :|\$)" "$filename" 2> /dev/null
|
|
}
|
|
|
|
addentry() {
|
|
if keyexists "$1"; then
|
|
[ $QUIET ] || echo "! $1 (skipped)"
|
|
else
|
|
[ "$2" ] && line="$1 : $2" || line="$1"
|
|
[ $QUIET ] || echo "+ $line"
|
|
echo "$line" >> "$filename"
|
|
fi
|
|
}
|
|
|
|
add() {
|
|
checkfilename
|
|
case $# in
|
|
1|2) addentry "$@" ;;
|
|
*) echo "Expected one or two arguments after -a!"; exit 1 ;;
|
|
esac
|
|
}
|
|
|
|
addfromstdin() {
|
|
# Skip lines without "@", skip lines containing no-reply (or similar),
|
|
# strip \r, strip leading spaces, do the following replacements:
|
|
# "'John Doe'" <xxx> → "John Doe" <xxx>
|
|
# 'John Doe' <xxx> → John Doe <xxx>
|
|
# "john.doe@example.com" <john.doe@example.com> → <john.doe@example.com>
|
|
# "<john.doe@example.com>" <john.doe@example.com> → <john.doe@example.com>
|
|
# john.doe@example.com → <john.doe@example.com>
|
|
grep '@' \
|
|
| grep -v -i -E '\bnot?[_-]?reply' \
|
|
| sed 's/\r$//' \
|
|
| sed -E 's/^ +//g' \
|
|
| sed -E "s/(\"?)'([^'\"]+)'(\"?)/\1\2\3/" \
|
|
| sed -E 's/^"<?([^">]*)>?" +<\1>/<\1>/' \
|
|
| sed -E 's/^[^<>@ ]*@[^<>@ ]+$/<\0>/' \
|
|
| sort -u \
|
|
| while read -r line; do addentry "$line"; done
|
|
}
|
|
|
|
searchall() {
|
|
# show entries with matching alias first
|
|
searchbyalias "$*"
|
|
searchbyvalueonly "$*"
|
|
}
|
|
|
|
searchbyalias() {
|
|
grep -i -E "$* :" "$filename" | sed -E 's/^[^:]+:\s*//'
|
|
}
|
|
|
|
searchbyvalue() {
|
|
sed -E 's/^[^:]+:\s*//' "$filename" | grep -i -E "$*"
|
|
}
|
|
|
|
searchbyvalueonly() {
|
|
# exclude matches found by searchbyalias
|
|
grep -i -E -v "$* :" "$filename" | sed -E 's/^[^:]+:\s*//' | grep -i -E "$*"
|
|
}
|
|
|
|
parsefields() {
|
|
# Find header fields starting with $1 (p.e. 'To:') plus following lines
|
|
# starting with a space. Split entries at commas except when quoted. Skip
|
|
# empty lines. Decode encoded strings. Squeeze double spaces.
|
|
sed -E '/^\r?$/Q' - \
|
|
| sed -E -n "/^$1:/{:a ; \$!N ; s/\n\s+/ / ; ta ; P ; D}" \
|
|
| sed -E "s/^$1:\\s*//" \
|
|
| grep -v -P '[\x80-\xFF]' \
|
|
| awk -vFPAT='([^,"]*)("[^"]+")?([^,]*)?' -vOFS='\n' \
|
|
'{for(i=1;i<=NF;i++) printf("%s\n",$i)}' \
|
|
| sed -E -e '/^ *$/d' \
|
|
| perl -CS -MEncode -ne 'print decode("MIME-Header", $_)' \
|
|
| sed -E -e 's/ +/ /g' \
|
|
| addfromstdin
|
|
}
|
|
|
|
parse() {
|
|
checkfilename
|
|
case "$1" in
|
|
--all) parsefields '(From|To|Cc|CC|Bcc)' ;;
|
|
# TODO: Include References, In-Reply-To, Reply-To, Return-Path?
|
|
--from) parsefields 'From' ;;
|
|
--to) parsefields 'To' ;;
|
|
--cc) parsefields '(Cc|CC)' ;;
|
|
--bcc) parsefields 'Bcc' ;;
|
|
esac
|
|
}
|
|
|
|
|
|
case "$1" in
|
|
-h|--help|'') usage; exit ;;
|
|
-V|--version) echo "$VERSION"; exit ;;
|
|
esac
|
|
|
|
filename="$1"; shift
|
|
|
|
case "$1" in
|
|
-q|--quiet) shift; QUIET=1 ;;
|
|
esac
|
|
|
|
case "$1" in
|
|
-a|--add) shift; add "$@" ;;
|
|
-s|--search) shift; searchall "$*" ;;
|
|
-k|--key) shift; searchbyalias "$*" ;;
|
|
-v|--value) shift; searchbyvalue "$*" ;;
|
|
-p|--parse) shift; parse "$@" ;;
|
|
*) searchall "$*" ;;
|
|
esac
|