# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1591956108 -32400
# Node ID e9e86a1fc1f33475e853b8f6a6ae57367dad6eaf
# Parent  2c5a8c5dd1ee6f8d63d80c860adac87552dc7020
[TEST] Post integrity check introduced

diff -r 2c5a8c5dd1ee -r e9e86a1fc1f3 s4-blog.sh
--- a/s4-blog.sh	Thu Jun 11 10:35:19 2020 +0900
+++ b/s4-blog.sh	Fri Jun 12 19:01:48 2020 +0900
@@ -1292,6 +1292,18 @@
   text=`getpar text`
   if [ -n "$text" ]; then
     if $iswritable; then
+      ## BEGIN: 2020-06-11 - Post Integrity Check.  Disable if it slows down..
+      blogid=`getpar blogid | tr -c -d 'a-z0-9'`
+      brid=`query "SELECT rowid FROM blog WHERE id='$blogid';"`
+      if [ x"$rowid" != x"$brid" ]; then
+	_id=`getpar id | tr -c -d 'a-z0-9'`
+	_aid=`query "SELECT rowid FROM article WHERE id='$_id';"`
+	if [ -z "$_aid" ]; then
+	  echo "掲示板から書き込んで下さい。" | html p
+	  return
+	fi
+      fi
+      ## END:
       par2table $formdir/article.def
       st=$?
       case $st in