s4

changeset 709:025ef5578ae0

Warn undeliverable recipient(s) that was removed from rcptlist.
author HIROSE Yuuji <yuuji@gentei.org>
date Thu, 28 May 2020 19:27:03 +0900
parents 9bac1300f259
children 8a31b90f7815
files s4-funcs.sh
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line diff
     1.1 --- a/s4-funcs.sh	Thu May 28 19:26:07 2020 +0900
     1.2 +++ b/s4-funcs.sh	Thu May 28 19:27:03 2020 +0900
     1.3 @@ -2735,7 +2735,8 @@
     1.4  	ar=`getpar supprcpt`
     1.5  	if [ -n "$ar" ]; then
     1.6  	  for a in $ar; do
     1.7 -	    checkdomain "$a" && supprcpt="$supprcpt $a"
     1.8 +	    checkdomain "$a" && supprcpt="$supprcpt $a" ||
     1.9 +		removercpt="$removercpt $a"
    1.10  	  done
    1.11  	fi
    1.12  	subj=`getpar subject`
    1.13 @@ -2786,6 +2787,7 @@
    1.14  	html pre<<EOF
    1.15  `query "$sql"`
    1.16  ${supprcpt:+追加宛先 $supprcpt$nl}(送信者である $gecos さんも含まれます)
    1.17 +${removercpt:+アドレスエラーによる削除(送られません): <em class="warn">$removercpt</em>}
    1.18  EOF
    1.19  	err SendDone: `echo $sql`
    1.20        fi