Преглед на файлове

perl decoding

tags/v3.1
luukvbaal преди 5 години
committed by GitHub
родител
ревизия
de2be5439d
No known key found for this signature in database GPG ключ ID: 4AEE18F83AFDEB23
променени са 1 файла, в които са добавени 3 реда и са изтрити 7 реда
  1. +3
    -7
      bin/mailsync

+ 3
- 7
bin/mailsync Целия файл

@@ -28,13 +28,9 @@ syncandnotify() {
if [ "$newcount" -gt "0" ]; then
notify "$acc" "$newcount" &
for file in $new; do
# Extract subject and sender from mail (room for improvement).
subject=$(grep "^Subject: " "$file" | sed 's/Subject: //' | head -n4)
from=$(grep "^From: " "$file" | awk '{ $1=""; $NF=""; print $0 }' | tr -d "\"\'\<\>" | sed 's/^ \(.*\) $/\1/')
substring="=?"
# Some html emails contain weird Subject and/or Sender formatting, in which case the html tag content is used (room for improvement).
[ "${subject#*$substring}" != "$subject" ] && subject=$(tr '\n' ' ' < "$file" | sed 's/.*<title>\(.*\)<\/title>.*/\1/')
[ "${from#*$substring}" != "$from" ] && from=$(grep ^"From: " "$file" | sed 's/.*<\(.*\)>.*/\1/')
# Extract subject and sender from mail.
from=$(grep "^From: " "$file" | perl -CS -MEncode -ne 'print decode("MIME-Header", $_)' | awk '{ $1=""; $NF=""; print $0 }' | tr -d "\"\'\<\>" | sed 's/^ \(.*\) $/\1/')
subject=$(grep "^Subject: " "$file" | perl -CS -MEncode -ne 'print decode("MIME-Header", $_)' | sed 's/Subject: //')
notify-send "📧$from:" "$subject" &
done
fi


Зареждане…
Отказ
Запис