1.1 --- a/s4-blog.sh	Tue Jun 30 10:55:43 2020 +0900
     1.2 +++ b/s4-blog.sh	Tue Jun 30 11:35:00 2020 +0900
     1.3 @@ -1326,6 +1326,7 @@
     1.4      echo "日記番号指定が無効です。" | html p
     1.5      return
     1.6    fi
     1.7 +  err "blog_reply($$)  Started: `gdate +%S.%03N`"
     1.8    blog_writable $rowid $user; rc=$?
     1.9    if [ $rc = 0 ]; then
    1.10      iswritable=true
    1.11 @@ -1368,6 +1369,7 @@
    1.12        ## END:
    1.13        par2table $formdir/article.def
    1.14        st=$?
    1.15 +      err "blog_reply($$): POSTdone `gdate +%S.%03N`  - st=$st title=$title owner=$owner user=$user, blogid=$blogid"
    1.16        case $st in
    1.17  	0|4)
    1.18  	  [ "$st" = "4" ] && act="書込削除"
    1.19 @@ -1399,6 +1401,7 @@
    1.20  	    -D_FORM_='' \
    1.21  	    -D_DUMPTABLE_="syscmd(cat)" -D_DUMPHEAD_="" \
    1.22  	    $layout/html.m4.html $layout/form+dump-whead.m4.html
    1.23 +  err "blog_reply($$) Finished: `gdate +%S.%03N`"
    1.24  }
    1.25  
    1.26  blog_reply_article() {		# Direct link to article in some blog

     2.1 --- a/s4-funcs.sh	Tue Jun 30 10:55:43 2020 +0900
     2.2 +++ b/s4-funcs.sh	Tue Jun 30 11:35:00 2020 +0900
     2.3 @@ -472,7 +472,7 @@
     2.4  }
     2.5  ismember() {
     2.6    # $1=user, $2=group
     2.7 -err ismem: "select user from grp_mem where gname=$(sqlquote $2) and user='$1';"
     2.8 +#err ismem: "select user from grp_mem where gname=$(sqlquote $2) and user='$1';"
     2.9    test -n "`query \"select user from grp_mem where gname=$(sqlquote \"$2\") and user='$1';\"`"
    2.10  }
    2.11  isuser() {			# Check if $1 is a valid user
    2.12 @@ -1513,7 +1513,7 @@
    2.13        		## dd bs=$CONTENT_LENGTH count=1 of=$tmpf # NOT working
    2.14  		# cat > $tmpf		# too much?
    2.15  		head -c $CONTENT_LENGTH > $tmpf	# safe?
    2.16 -      		(echo CL=$CONTENT_LENGTH; ls -lF $tmpf) 1>&3
    2.17 +      		err "CONTENT_LENGTH=$CONTENT_LENGTH$nl`ls -lF $tmpf`"
    2.18  		s="`cat $tmpf`"
    2.19  		;;
    2.20    esac
    2.21 @@ -2348,7 +2348,7 @@
    2.22      new10=`DT_SQL="$sql" DT_VIEW=replyblog dumptable html blog`
    2.23      cont=`echo "$new10"|grep "^<TR>"|wc -l`
    2.24      cont=$((cont-1))
    2.25 -    err newcount=$cont
    2.26 +    ##err newcount=$cont
    2.27      if [ $cont -gt 0 ]; then
    2.28        #echo "全体の新着記事${cont}傑" | html h2
    2.29        cgi_radio foldtabs yes 'id="new10" accesskey="f"'