--- a/s4.cgi	Wed Jul 29 21:14:28 2015 +0900
+++ b/s4.cgi	Thu Jul 30 11:13:53 2015 +0900
@@ -1,7 +1,5 @@
 #!/bin/sh
 # 愛
-PATH=/usr/local/sqlite3/bin:$PATH
-myname=`basename $0`
 mydir=`dirname $0`
 . $mydir/s4-funcs.sh
 
@@ -14,7 +12,6 @@
 fi
 
 dologin
-#gencookie; echo
 
 case ${SERVER_SOFTWARE} in
   bozohttp*)	# Ugly workaround for bozohttpd, which can't send
@@ -68,7 +65,7 @@
       newgname=$gname
       if [ x"$newgname" != x"$gname" ]; then
 	err NewGNAME: gname=$newgname
-	echo "<p>使用禁止文字を除去し $gname としました。</p>"
+	echo "使用禁止文字を除去し $gname としました。" | html p
 	gname=$newgname
 	replpar gname string "$gname"
       fi
@@ -76,7 +73,7 @@
       joingrp "$gname" "$user" yes "$user" as-admin
     fi
     GF_STAGE=groupman
-    note="<p>グループ名に使用できない文字は自動的に削除されます。</p>"
+    note="グループ名に使用できない文字は自動的に削除されます。" | html p
     m4 -D_TITLE_="グループ作成" \
        -D_FORM_="$note`genform $formdir/grp.def`" \
        -D_DUMPTABLE_="`DT_VIEW=grp dumptable html grp 'gname gecos:DESC mtime:TIME' 'order by b.TIME desc'`" \
@@ -158,7 +155,7 @@
     if [ -n "$2" ]; then
       grp_reg_adm "$@"
     else
-      echo "<p>無効な指定です。普通のアクセスならここに来ないはず。</p>"
+      echo "無効な指定です。普通のアクセスならここに来ないはず。"|html p
     fi
     ;;
   "blog")
@@ -179,7 +176,7 @@
     rowid=${2%%[!A-Z0-9a-z_]*}
     # blogrowid=${3%%[!A-Z0-9a-z_]*}
     if [ -z "$rowid" ]; then
-      echo "<p>話題番号が未指定です。</p>"
+      echo "話題番号が未指定です。" | html p
       return
     fi
     owner=`getvalbyid blog owner $2`
@@ -195,7 +192,7 @@
     rowid=${2%%[!A-Z0-9a-z_]*}
     blogrowid=${3%%[!A-Z0-9a-z_]*}
     if [ -z "$rowid" -o -z "$blogrowid" ]; then
-      echo "<p>表示する記事番号が未指定です。</p>"
+      echo "表示する記事番号が未指定です。" | html p
       return
     fi
     owner=`getvalbyid blog owner $blogrowid`
@@ -205,7 +202,7 @@
     if isgrpowner $user $owner; then
 	: EDIT OK
     elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then
-      echo "<p>本人か所有者しか編集できません.</p>"
+      echo "本人か所有者しか編集できません." | html p
       return
     fi
     aid=`query "select id from article where rowid=$rowid;"`
@@ -220,7 +217,7 @@
     contenttype; echo
     rowid=${2%%[!A-Z0-9a-z_]*}
     if [ -z "$rowid" ]; then
-      echo "<p>話題番号が未指定です。</p>"
+      echo "話題番号が未指定です。" | html p
       return
     fi
     . ./s4-blog.sh
@@ -229,7 +226,7 @@
   "gethandout")
     rowid=${2%%[!A-Z0-9a-z_]*}
     if [ -z "$rowid" ]; then
-      echo "<p>話題番号が未指定です。</p>"
+      echo "話題番号が未指定です。" | html p
       return
     fi
     . ./s4-blog.sh
@@ -240,18 +237,18 @@
     m4 -D_TITLE_="検索結果" $layout/html.m4.html
     kwd=`getpar kwd`
     if [ -z "$kwd" ]; then
-      echo "<p>検索語を指定してください</p>"
+      echo "検索語を指定してください" | html p
     else
       owner=`getpar owner`
       owner=${owner:-$2}
-      echo "<h2>「$kwd」による検索結果</h2>"
+      echo "「$kwd」による検索結果" | html p
       if [ -n "$owner" ]; then
 	cond="where key='owner' and val='$owner'"
 	if isuser $owner; then
-	  echo "<p>(`linkhome $owner` さんの記録からの検索)</p>"
+	  echo "(`linkhome $owner` さんの記録からの検索)" | html p
 	else
 	  linkhome $owner 1>&3
-	  echo "<p>(`linkhome $owner` グループからの検索)</p>"
+	  echo "(`linkhome $owner` グループからの検索)" | html p
 	fi
       fi
       # article_s:	id=article-id, key='text', val='TEXT'
@@ -287,7 +284,7 @@
     # $2=table_m $3=rowid $4=val
     if ! isfilereadable $user $2 $3; then
       contenttype; echo
-      echo "<p>このファイルは管理者のみしか見られません</p>"
+      echo "このファイルは管理者のみしか見られません" | html p
       putfooter; exit
     fi
     idir=`umask 002; mktempd` || exit 1
@@ -331,5 +328,4 @@
     ;;
 esac
 
-
 putfooter