1.1 --- a/s4-funcs.sh	Sun May 31 19:06:46 2020 +0900
     1.2 +++ b/s4-funcs.sh	Mon Jun 01 19:31:36 2020 +0900
     1.3 @@ -1459,9 +1459,6 @@
     1.4  		mogrify -quality 75 -resize $maximagexy'>' "$tmpd/$v"
     1.5  		err "Mogrified: `ls -lF $tmpd/$v`"	# 2020-05-31
     1.6  		;;
     1.7 -	      [Aa]pplication/*-empty)
     1.8 -		err "Stream-Empty found: [$v]"; cp "$tmpf" tmp/
     1.9 -		;;
    1.10  	    esac
    1.11  	    if ! echo "$mimetype" | egrep "$file_accept_egrep" >/dev/null 2>&1
    1.12  	    then
    1.13 @@ -3645,6 +3642,7 @@
    1.14    #	6: Password length too short
    1.15    #	7: Password mismatch
    1.16    #	8: Old password incorrect
    1.17 +  #	9: Duplicated post
    1.18    rowid=`getpar rowid`
    1.19    if [ ! -e $1 ]; then
    1.20      echo "テーブル定義ファイルが見付かりません" | html p
    1.21 @@ -3731,6 +3729,22 @@
    1.22      done
    1.23    else
    1.24      # New entry
    1.25 +    # XXX: WORK-AROUND FOR SOME STUPID BROWSER
    1.26 +    #      Avoid empty repost of article.
    1.27 +    if [ x"$tbl" = x"article" ]; then
    1.28 +      # If rowid is empty and ID exists in article-table, that is REPOST!
    1.29 +      aid=`getpar id`
    1.30 +      xaid=`query "SELECT id FROM $tbl WHERE id='$aid';"`
    1.31 +      if [ -n "$xaid" ]; then
    1.32 +	# REPOST of article
    1.33 +	html p <<-EOF
    1.34 +	書き込み直後のリロードなので上書きを回避します。
    1.35 +	最新記事は末尾の「再読み込み」ボタンから見てください。
    1.36 +	EOF
    1.37 +	err "Repost aid=$aid Browser=[$HTTP_USER_AGENT]"
    1.38 +	return 9			# STOP Duplicated posting
    1.39 +      fi
    1.40 +    fi
    1.41      # Generate values() for primary keys
    1.42      for col in `gettblpkey $tbl`; do
    1.43        # Genuine primary keys for _m and _s