1.1 --- a/s4.cgi	Wed Jul 29 21:14:28 2015 +0900
     1.2 +++ b/s4.cgi	Thu Jul 30 11:13:53 2015 +0900
     1.3 @@ -1,7 +1,5 @@
     1.4  #!/bin/sh
     1.5  # 愛
     1.6 -PATH=/usr/local/sqlite3/bin:$PATH
     1.7 -myname=`basename $0`
     1.8  mydir=`dirname $0`
     1.9  . $mydir/s4-funcs.sh
    1.10  
    1.11 @@ -14,7 +12,6 @@
    1.12  fi
    1.13  
    1.14  dologin
    1.15 -#gencookie; echo
    1.16  
    1.17  case ${SERVER_SOFTWARE} in
    1.18    bozohttp*)	# Ugly workaround for bozohttpd, which can't send
    1.19 @@ -68,7 +65,7 @@
    1.20        newgname=$gname
    1.21        if [ x"$newgname" != x"$gname" ]; then
    1.22  	err NewGNAME: gname=$newgname
    1.23 -	echo "<p>使用禁止文字を除去し $gname としました。</p>"
    1.24 +	echo "使用禁止文字を除去し $gname としました。" | html p
    1.25  	gname=$newgname
    1.26  	replpar gname string "$gname"
    1.27        fi
    1.28 @@ -76,7 +73,7 @@
    1.29        joingrp "$gname" "$user" yes "$user" as-admin
    1.30      fi
    1.31      GF_STAGE=groupman
    1.32 -    note="<p>グループ名に使用できない文字は自動的に削除されます。</p>"
    1.33 +    note="グループ名に使用できない文字は自動的に削除されます。" | html p
    1.34      m4 -D_TITLE_="グループ作成" \
    1.35         -D_FORM_="$note`genform $formdir/grp.def`" \
    1.36         -D_DUMPTABLE_="`DT_VIEW=grp dumptable html grp 'gname gecos:DESC mtime:TIME' 'order by b.TIME desc'`" \
    1.37 @@ -158,7 +155,7 @@
    1.38      if [ -n "$2" ]; then
    1.39        grp_reg_adm "$@"
    1.40      else
    1.41 -      echo "<p>無効な指定です。普通のアクセスならここに来ないはず。</p>"
    1.42 +      echo "無効な指定です。普通のアクセスならここに来ないはず。"|html p
    1.43      fi
    1.44      ;;
    1.45    "blog")
    1.46 @@ -179,7 +176,7 @@
    1.47      rowid=${2%%[!A-Z0-9a-z_]*}
    1.48      # blogrowid=${3%%[!A-Z0-9a-z_]*}
    1.49      if [ -z "$rowid" ]; then
    1.50 -      echo "<p>話題番号が未指定です。</p>"
    1.51 +      echo "話題番号が未指定です。" | html p
    1.52        return
    1.53      fi
    1.54      owner=`getvalbyid blog owner $2`
    1.55 @@ -195,7 +192,7 @@
    1.56      rowid=${2%%[!A-Z0-9a-z_]*}
    1.57      blogrowid=${3%%[!A-Z0-9a-z_]*}
    1.58      if [ -z "$rowid" -o -z "$blogrowid" ]; then
    1.59 -      echo "<p>表示する記事番号が未指定です。</p>"
    1.60 +      echo "表示する記事番号が未指定です。" | html p
    1.61        return
    1.62      fi
    1.63      owner=`getvalbyid blog owner $blogrowid`
    1.64 @@ -205,7 +202,7 @@
    1.65      if isgrpowner $user $owner; then
    1.66  	: EDIT OK
    1.67      elif [ x"$owner" != x"$user" -a x"$author" != x"$user" ]; then
    1.68 -      echo "<p>本人か所有者しか編集できません.</p>"
    1.69 +      echo "本人か所有者しか編集できません." | html p
    1.70        return
    1.71      fi
    1.72      aid=`query "select id from article where rowid=$rowid;"`
    1.73 @@ -220,7 +217,7 @@
    1.74      contenttype; echo
    1.75      rowid=${2%%[!A-Z0-9a-z_]*}
    1.76      if [ -z "$rowid" ]; then
    1.77 -      echo "<p>話題番号が未指定です。</p>"
    1.78 +      echo "話題番号が未指定です。" | html p
    1.79        return
    1.80      fi
    1.81      . ./s4-blog.sh
    1.82 @@ -229,7 +226,7 @@
    1.83    "gethandout")
    1.84      rowid=${2%%[!A-Z0-9a-z_]*}
    1.85      if [ -z "$rowid" ]; then
    1.86 -      echo "<p>話題番号が未指定です。</p>"
    1.87 +      echo "話題番号が未指定です。" | html p
    1.88        return
    1.89      fi
    1.90      . ./s4-blog.sh
    1.91 @@ -240,18 +237,18 @@
    1.92      m4 -D_TITLE_="検索結果" $layout/html.m4.html
    1.93      kwd=`getpar kwd`
    1.94      if [ -z "$kwd" ]; then
    1.95 -      echo "<p>検索語を指定してください</p>"
    1.96 +      echo "検索語を指定してください" | html p
    1.97      else
    1.98        owner=`getpar owner`
    1.99        owner=${owner:-$2}
   1.100 -      echo "<h2>「$kwd」による検索結果</h2>"
   1.101 +      echo "「$kwd」による検索結果" | html p
   1.102        if [ -n "$owner" ]; then
   1.103  	cond="where key='owner' and val='$owner'"
   1.104  	if isuser $owner; then
   1.105 -	  echo "<p>(`linkhome $owner` さんの記録からの検索)</p>"
   1.106 +	  echo "(`linkhome $owner` さんの記録からの検索)" | html p
   1.107  	else
   1.108  	  linkhome $owner 1>&3
   1.109 -	  echo "<p>(`linkhome $owner` グループからの検索)</p>"
   1.110 +	  echo "(`linkhome $owner` グループからの検索)" | html p
   1.111  	fi
   1.112        fi
   1.113        # article_s:	id=article-id, key='text', val='TEXT'
   1.114 @@ -287,7 +284,7 @@
   1.115      # $2=table_m $3=rowid $4=val
   1.116      if ! isfilereadable $user $2 $3; then
   1.117        contenttype; echo
   1.118 -      echo "<p>このファイルは管理者のみしか見られません</p>"
   1.119 +      echo "このファイルは管理者のみしか見られません" | html p
   1.120        putfooter; exit
   1.121      fi
   1.122      idir=`umask 002; mktempd` || exit 1
   1.123 @@ -331,5 +328,4 @@
   1.124      ;;
   1.125  esac
   1.126  
   1.127 -
   1.128  putfooter